Appliquer une macro personnelle sur plusieurs fichiers vba

Question

Bonjour à tous, 

je me permets de vous contacter car j 'ai un soucis: j'aimerais appliquer ma macro personnelle sur plusieurs fichiers qui commence toujours par Tableau de bord appro 29 07 14 et il y a que la date qui change.
Est ce que il y a un moyen de masquer la date pour pouvoir appliquer ma macro sur tous les fichiers? 

J'ai trouvé ce code mais je n'arrive pas à l'appliquer.

Dim mDate As String
      Dim Fichier As String
      mDate = Replace(Date, "/", "")
     Fichier = "Tableau de bord appro_" & mDate & ".xls"


Je remercie quiconque aura pris de son temps pour examiner ma question

jordane45 · Answer

Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

PS : J'ai édité ton message pour les ajouter.

jordane45 · Answer

Sans plus d'infos sur ton moyen de parcourir ton répertoire... voici ce que je peux te proposer... Sub test() Dim Fichier As String Fichier = "Tableau de bord appro_*.xls" directory = "c:/Temp/" arrFiles = GetFileList(Fichier) If arrFiles <> False Then NbResultat = UBound(arrFiles) - 1 Debug.Print NbResultat For i = 1 To NbResultat Debug.Print arrFiles(i) Next End If End Sub Function GetFileList(FileSpec As String) As Variant ' Returns an array of filenames that match FileSpec ' If no matching files are found, it returns False Dim FileArray() As Variant Dim FileCount As Integer Dim FileName As String On Error GoTo NoFilesFound FileCount = 0 FileName = Dir(FileSpec) If FileName = "" Then GoTo NoFilesFound ' Loop until no more matching files are found Do While FileName <> "" FileCount = FileCount + 1 ReDim Preserve FileArray(1 To FileCount) FileArray(FileCount) = FileName FileName = Dir() Loop GetFileList = FileArray Exit Function ' Error handler NoFilesFound: GetFileList = False End Function

loulou69 · Answer

Bonjour

Fichier=Dir ("Tableau de bord appro_*.xls")
While Fichier<>""
   Call Mamacro(Fichier)
   Dir() 'passer au fichier suivant
Wend