Macro pour trouver le bon fichier

Fermé
pseudo_polo - Modifié par pseudo_polo le 21/10/2011 à 18:44
Bonjour,

J'update un fichier en rajoutant à la fin la date p ex "nomfichier_21102011.xls". Or, j'ai besoin d'ouvrir ces fichiers par une macro. Problème: comment trouver ces fichiers???

J'ai écrit ce code mais il ne marche pas "run time error 1004"!!

Qq'un aurait-il une idée pourquoi ma macro ci-dessous ne marche pas???

Merci à tous et bon WE!!!!

pseudo_polo


Sub Search_For_Files_Mix_dashboard()
'
' Search_For_Files_Mix_dashboard


Dim Chemin$, Fichier$

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Windows("macro_update_filiales_ sheets.xls").Activate
Sheets("update").Select

Mth = Sheets("update").Range("A1").Value
Model = Sheets("update").Range("A2").Value

Chemin = "\\fr-xxxx-s12v1.xxxxxxxEU.NMCorp.xxxxxx.Biz\data\SALES00.SHR\SALES ALLOCATION & ORDERING - FY11\Caro\Distribution Dashboard\FY11\" & Mth & "\Volume and Mix\Mix Dashboard\copies" 'chemin de mon dossier
Fichier = Chemin & "\" & Model & "_Mix_" 'format d'un fichier \Volume and Mix\Mix Dashboard\copies\1series
Debug.Print Fichier
Debug.Print Dir(Fichier & "*")
Workbooks.Open Dir(Fichier & "*") ' ouverture d'un fichier dont le nom est plus ou moins proche
End Sub
A voir également: