@fabio-rs

Já deu uma pesquisada aqui no fórum pra ver se não encontra alguma coisa parecida com o que precisa?

@teleguiado

estive procurando  consegui alguns comando me auxiliaram mas não consegui obter o resultado esperado

obrigado pela informação 

@teleguiado

desculpa se não fui claro 

' pega o valor da  célula C3 e verifica se tem um diretório aberto
' se não tiver cria um diretório e salva a OS com o macro salvarOS Modulo 3
' se tiver o diretório apenas faz executar macro SalvarOS do modulo 3

'o macro salvarOS faz o que preciso porem salva na mesma pasta do arquivo raiz
' gostaria que abrisse um diretório e fosse executado dentro dele este Macro

estou anexando o arquivo com alguns testes dentro inclusive um macro de manipulação  de diretório ATENÇÃO tem um modelo que achei que ele apaga o diretório e depois cria novamente, está comentado

@fabio-rs

Veja se é isso.

@teleguiado

Boa noite, é isso mesmo  muitíssimo obrigado pela ajuda

tenhas um otimo dia 

Teleguiado,

Bom dia inseri a planilha junto nos meus controles e acontece o seguinte

se houver outra planilha dentro da pasta ele trava  

marquei onde ele trava,

 diz que o arquivo já existe mesmo não existindo, apenas a pasta ja existe com outro arquivo dentro

de resto esta fazendo tudo certo se não tem pasta abre normal como esperava, salva se o comando criou mesmo

@fabio-rs

O problema é que o arquivo existente na pasta e o que esta sendo comparado com o código é diferente nessa parte ele verifica se o arquivo existe na pasta e se não existe ele cria a pasta porem existe a pasta e a pasta não esta vazia. O nome do arquivo que ele compara é o valor da célula A1 e o valor da célula C3 (Ordem ijf 8383.xlsx). Altere o arquivo para o mesmo formato que esta no código que não acontece o erro.

i = nomepasta & "\" & ThisWorkbook.Sheets("OS").Range("A1").Value & " " & Range("C3").Value & ".xlsx"

If Dir(i) <> "" Then

Veja se é isso.

@teleguiado

obrigado pela ajuda mas vou desistir do projeto por ora, esta enrolado e estou incomodando demais ,

Agradeço imensamente a ajuda .

Não me aprofundei no seu código, porém aparentemente só precisa de pequenos ajustes.

Preenchi algumas linhas  na sub que criou com as dúvidas.

Sub preciso()

Dim Pasta As String

'pega a celula C3
Pasta = ActiveWorkbook.Path & "\" & Plan1.Range("C3")

'verifica se tem um diretório aberto
If Dir(Pasta, vbDirectory) = "" Then
     'se não tiver cria um diretório
     MkDir (Pasta)
End If

'executar macro SalvarOS do modulo 3
Call SalvarOS(Pasta)

'o macro salvar OS faz o que preciso porem salva na mesma pasta do arquivo raiz
' gostaria que abrisse um diretorio e fox=sse executado dentro dele este Macro

'#### Na sua macro SalvarOS esta definido pra salvar sempre na pasta raiz:
     b = Application.ActiveWorkbook.Path & "\" 'etc etc etc
'#### Altere para salvar no diretorio na celula "C3":
     b = Pasta & "\" 'etc etc etc

End Sub