bonjour à tous après avoir rechercher dans le forum, je n'arrive toujours pas à solutionner mon problème, je voudrais rechercher le fichier nom_feuille dans mon repertoire puis l'ouvrir si il le trouve.
voici mon code,
En vous remerciant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 With Application.FileSearch .LookIn = "S:/utilisateur/" .SearchSubFolders = True .Filename = nom_feuille .MatchAllWordForms = True If .Execute() > 0 Then Workbooks.Open ("S:/utilisateur/" & nom_feuille & ".xls") Else e = MsgBox("Aucun fichier n'a été trouvé, Veuillez recommencer en entrant le bon nom du fichier", vbExclamation, "Quantité vendue sur une période") End If![]()
Partager