VBA : impossible d’ouvrir un workbook (erreur 1004)

[laurent182]

Bonjour à tous,
Je vous écris car j’ai un problème pour ouvrir un classeur depuis VBA Excel.
Voici mon code (simplifié) :

Sub Macro1()
    
    Dim Repertoire As String
    Dim Fichier As String
    Dim i As Integer
 
For i = 5 To 10
            
    Repertoire = Cells(i, 14).Value
    Fichier = Cells(i, 15).Value

    Workbooks.Open Filename:=(Repertoire & "\" & Fichier)
  
Next i

End Sub

Il me renvoie l’erreur « Erreur d’éxecution ‘1004’ : La méthode ‘Open’ de l’objet ‘Workbooks ‘ a échoué ».

Si j’ajoute un « Msgbox (Repertoire & "\" & Fichier) », il m’affiche le bon chemin.
SI je tape directement le chemin « Workbooks.Open Filename:=( " c:\test.xlsx ") », le fichier s’ouvre.

Je n’arrive pas à trouver d’où vient l’erreur.

En vous remerciant par avance…

 

[laurent182]

Re : VBA : impossible d’ouvrir un workbook (erreur 1004)

Merci pour votre réponse.
Voila le fichier correspondant. En espérant que cela vous aidera.

 

[laurent182]

Re : VBA : impossible d’ouvrir un workbook (erreur 1004)

Oui j'ai tenté plusieurs lecteurs et emplacements différents, mais toujours le même résultat.

 

[laurent182]

Re : VBA : impossible d’ouvrir un workbook (erreur 1004)

J'ai modifié les noms pour l'exemple, mais dans le fichier original il y a à chaque fois un chemin unique qui renvoi vers un fichier unique.
Par exemple : F:\Projet1\Fichier1.xlsx; F:\Projet2\Fichier2.xlsx; ect..