Bonjour à tous,
Est-il possible d'adapter la macro ci-dessous pour que la recherche se fasse dans des fichiers aléatoires ?
Je m'explique. Mes stats sortent dans des sous dossiers en fonction de la date.
Ex : C:\stats\jours\01_01_13\stats_01_01_13.xls
C:\stats\jours\02_01_13\stats_02_01_13.xls.
etc...
Si je copie manuellement mes fichiers .xls dans le fichier \jours, j'arrive à aller les rechercher automatiquement, mais je n'arrive pas à écrire ma macro pour aller les rechercher dans les sous dossiers qui se créent tous les jours (je ne peux pas agir sur ce point)
Ma Macro :
Dim wbks As Workbook, nom$
nom = "C:\stats\jours\" & Feuil2.Range("L3").Value & ".xls"
If Dir(nom, vbDirectory) = "" Then MsgBox "Le nom de fichier est erroné ou n'existe pas.": Jour.Show
Set wbks = Workbooks.Open(nom)
wbks.ActiveSheet.Cells.Copy Windows("Stats_tel.xlsm").ActiveSheet.Cells
wbks.Close 0
End Sub
La date à rechercher est celle reprise dans la cellule Feuil2.Range("L3"). Celle-ci est complétée grâce au formulaire.
Merci d'avance pour votre aide.
Est-il possible d'adapter la macro ci-dessous pour que la recherche se fasse dans des fichiers aléatoires ?
Je m'explique. Mes stats sortent dans des sous dossiers en fonction de la date.
Ex : C:\stats\jours\01_01_13\stats_01_01_13.xls
C:\stats\jours\02_01_13\stats_02_01_13.xls.
etc...
Si je copie manuellement mes fichiers .xls dans le fichier \jours, j'arrive à aller les rechercher automatiquement, mais je n'arrive pas à écrire ma macro pour aller les rechercher dans les sous dossiers qui se créent tous les jours (je ne peux pas agir sur ce point)
Ma Macro :
Dim wbks As Workbook, nom$
nom = "C:\stats\jours\" & Feuil2.Range("L3").Value & ".xls"
If Dir(nom, vbDirectory) = "" Then MsgBox "Le nom de fichier est erroné ou n'existe pas.": Jour.Show
Set wbks = Workbooks.Open(nom)
wbks.ActiveSheet.Cells.Copy Windows("Stats_tel.xlsm").ActiveSheet.Cells
wbks.Close 0
End Sub
La date à rechercher est celle reprise dans la cellule Feuil2.Range("L3"). Celle-ci est complétée grâce au formulaire.
Merci d'avance pour votre aide.