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
jordane45
Messages postés38136Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention16 avril 2024344 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