Recherche

[Jean-Paul COURET]

Dans un répertoire j'ai plusieurs fichiers représentant les mois, dans chaque fichier j'ai des onglets representant les jours.

Je voudrais que sur le clic d'un bouton d'un autre fichier du même répertoire, celà récupère le valeur d'une date sur un DTPicker et ouvre directement le fichier du mois à l'onglet représentant la date choisie sur le DTPicker.

En pièce jointe je mets le fichier de recherche

 

[wape]

Bonjour Jean-Paul et le forum,

Essaye d'ajouter le code ci-dessous dans la procédure CommandButton13_Click() :

Dim sFileName As String

sFileName = "h:\Part Fac\2004\fac" & Format(Calendar1.Month, "00") & "04.xls"
Workbooks.Open Filename:=sFileName
ActiveWorkbook.Worksheets(Calendar1.Day).Activate


Slts

wape