Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche

J

Jean-Paul COURET

Guest
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
 

Pièces jointes

  • PartFac2004.zip
    35.5 KB · Affichages: 14
W

wape

Guest
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
 

Discussions similaires

Réponses
3
Affichages
348
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…