Macro pour ouvrir un classeur excel

[fredtu]

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.

 

[Pierrot93]

Re : Macro pour ouvrir un classeur excel

Bonjour,

regarde ceci :

Dim nom As String
With Feuil2.Range("L3")
    nom = "C:\stats\jours\" & Format(.Value, "dd_mm_yy") & "\" & "stats_" & Format(.Value, "dd_mm_yy") & ".xls"
End With

en supposant une date dans la cellule en question...

bon après midi
@+

 

[fredtu]

Re : Macro pour ouvrir un classeur excel

Bonjour Pierrot,

Je teste demain au boulot.

merci.

Bon am