Bonjour,

Je tente d'ouvrir un fichier contenant une certaine chaine de caractère dans un répertoire variable, mais la fonction workbooks.open filename ne me permet pas d'ouvrir le fichier
Je test d'abord la présence du répertoire contenant le fichier, puis je récupère le nom du fichier contenant la chaine "ADR-SHL_NOK" avec la msgbox je m'aperçoit que le nom complet du fichier est bien récupéré "ADR-SHL_NOK_20170718.csv"
Mais impossible d'ouvrir ce fichier, message d'erreur : "Erreur d'execution '1004' : Désolé ... Nous ne trouvons pas ADR-SHL_NOK_20170718.csv. Peut-être l'avez vous déplacé, renommé ou supprimé ?"
Pourtant le fichier est bien présent et n'a pas été modifié.


voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
If Not Dir("D:\GED\SIEL\Suivi - Contrôle - Script SIG\Contrôle DOE\PM\" & numéro & "\V" & j & "\") = "" Then
 
myfile = Dir("D:\GED\SIEL\Suivi - Contrôle - Script SIG\Contrôle DOE\PM\" & numéro & "\V" & j & "\ADR-SHL_NOK*")
 
If myfile <> "" Then
MsgBox myfile
Workbooks.Open Filename:=myfile
 
Else
MsgBox "Fichier introuvable"
Exit Sub
End If
msgbox "Répertoire inexistant"
End if

Merci de votre aide, je sèche complètement
Bien cordialement