Victor, a rotina abaixo verifica se o Diretório e o Arquivo existem, altere o Path e o Nome do Arquivo para o seu e faça os testes.

Private Sub VerificaArquivo()
    Dim FileName As String, Path As String, meuArqu

    Path = "C:Documents and Settingsmauro.coutinhoMeus documentos"
    meuArqu = "NomeMeuArquivo.xls"
   
   'VERIFICA SE O CAMINHO EXISTE
    If Not Dir(Path, vbDirectory) = vbNullString Then
         'SE EXISTIR
         'adiciona a barra, se não houver
         If Right(Path, 1) <> "" Then Path = Path & ""
            'monta o caminho completo do arquivo
            FileName = Dir(Path & meuArqu)

        Else

            MsgBox "O CAMINHO :" & Chr(13) & Path & Chr(13) & "NÃO EXISTE"
            Exit Sub
    End If
      
    'VERIFICA SE O ARQUIVO EXISTE
    If FileName = "NomeMeuArquivo.xls" Then
       'SE EXISTIR, Coloque aqui sua chamada para abrir o arquivo
        MsgBox "OK, Arquivo encontrado"
       Exit Sub
    Else
            MsgBox "O Arquivo:" & Chr(13) & meuArqu & Chr(13) & "NÃO existe !!!"
    End If
        
End Sub

[]s

Eu fiz os testes e deu que o arquivo não existe, mas eu verifiquei o caminho e está correto. tem com eu mandar a planilha pelo fórum pra vc ver?

Victor, você pode anexar a planilha aqui no Forum mesmo, quando for postar uma mensagem, role a tela para baixo e tem a opção para anexar.

Apesar que eu acredito que não irá resolver, mas, quanto a mensagem, está dizendo que o Arquivo não existe ou que o Caminho não existe ?
Seja qual for a msg, a rotina funciona corretamente, e não teria como eu fazer uma simulação com os mesmos Diretórios que estão em sua rotina, e alias acredito que estejam em Rede devido a Letra "Z".

Faça o seguinte teste, localize o Arquivo em questão manualmente pelo Explorer, depois clique na barra de endereço, selecione tudo, copie e cole na rotina que enviei, acerte o nome do arquivo e refaça os testes, lembrando que qualquer erro de digitação, espaço pode ocasionar o erro.

[]s

Mauro, o problema é que eu uso computador compartilhado, dessa forma, o Z é o Diretório que eu criei pra acessar o computador do meu chefe e pégar as informações. Na verdade o programa vai ficar na máquina do meu chefe e vamos acessar pelomenos 4 pessoas de máquinas diferentes. tem um jeito para abreviar o caminho, sem colocar o Z ou C, só fazendo mensão a pasta que os arquivos estão?

Quanto a planilha, vc tem razão, nãoia conseguir testar os meus diretórios.

Vitor, quanto a questão :

Eu fiz os testes e deu que o arquivo não existe, mas eu verifiquei o caminho e está correto

Na rotina que sugeri acima, qual o retorno ? Que o Arquivo não existe ou o Caminho não existe ?

Eu insisto nesta questão, pelo fato de, Se o caminho está Ok, e não é retornado erro na rotina referente ao mesmo, então, o erro está no Nome do arquivo qdo o mesmo é referenciado nos Combobox.

E como postou somente parte da rotina que está utilizando, fica dificil verificar, poste a rotina inteira par vermos qual variável e como está definindo.
Por exemplo, você está utilizando para abrir o arquivo :
Workbooks.Open ComboBoxProdutos.Value
Mas na parte da rotina que postou, não tem a identificação aonde é captado o nome do arquivo que deve estar no ComboBoxProdutos.
[]s

Pois é, eu achei o erro. O problema era no caminho mesmo, vc estava certo. Aquele "Z" estava dando erro. Se eu colocar o arquivo na minha máquina e mudar o caminho eu consigo acessar tudo numa boa.
Depois que eu fiz isso, eu consegui acessar, mas percebi outro problema na rotina, os dados ficam em forma de texto. E na planilha, eu preciso que eles estejam formatados como número prq lá vai ser feita a compilação dos dados e produção dos relatórios.
Mas como está em formato de texto, ela não faz nenhum tipo de operação numérica.
pode me ajudar?

Vitor, vamos por parte, se a questão deste Tópico foi resolvida, abra um outro Tópico para esta nova questão, afim de mantermos em ordem o forum.

Nesta nova duvida coloque qual rotina está utilizando para enviar os dados para o novo arquivo, pois acredito que os mesmos devem ser provenientes de userforms (textbox) e se for se faz necessário formatar antes de enviar para a planilha:

Só um exemplo :
With .Cells(1, 1)
.Value = Now
.NumberFormat = "mm/dd/yyyy"
End With

Se eu enviar uma data proveniente de um Textbox, entre outras opções, uma delas seria feito da forma acima.
Mas isso continuamos no Tópico que abrir.

[]s