Appliquer une macro personnelle sur plusieurs fichiers vba

soukaina - Modifié par jordane45 le 29/07/2014 à 13:06
 loulou69 - 29 juil. 2014 à 17:22
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

3 réponses

jordane45
Messages postés
36054
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 août 2022
358
29 juil. 2014 à 13:07
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.
0
jordane45
Messages postés
36054
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 août 2022
358
29 juil. 2014 à 15:33
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


0
Bonjour

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