Macro pour imprimer un onglet different suivant une date

Bonjour j'ai 2 fichiers excel dans le meme dossier, je voudrais par macro
recuperer la date du jour avec AUJOURDHUI() pour pouvoir si on est le 1, imprimer l'onglet 1 du deuxieme fichier, si on est le 2 imprimer l'onglet 2 du deuxieme fichier etc.....

si quelqu'un sait....

merci d'avance !

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wbk As Workbook Application.ScreenUpdating = False Set wbk = Workbooks.Open(ActiveWorkbook.Path & "\TonDeuxiemeFichier.xls") Select Case Day(Date) Case 1: wbk.Sheets("feuil1").PrintOut Case 2: wbk.Sheets("feuil2").PrintOut End Select wbk.Close Set wbk = Nothing Application.ScreenUpdating = True

---

Bonjour,
En reprenant le code de mercatog mais qui tiendra peut être mieu compte du etc

si c'est bien le premier onglet pour le premier jour, et ainsi de suite, tu peux utiliser leur index plutôt que le nom
Pour remplacer le select case

Code:

---

wbk.Sheets( Day(Date)).PrintOut

---

ca donnerai ça ?

Code:

---

1 2 3 4 5 6 7 8

Dim wbk As Workbook Application.ScreenUpdating = False Set wbk = Workbooks.Open(ActiveWorkbook.Path & "\TonDeuxiemeFichier.xls") wbk.Sheets( Day(Date)).PrintOut End Select wbk.Close Set wbk = Nothing Application.ScreenUpdating = True

---

faut que j'essaie au boulot...

Sans le End select
à condition que tu as en permanence les feuilles à imprimer de 1 à 31 (en index)
ou bien, nommer les feuilles Feuil1, Feuil2...Feuil31
et faire ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim wbk As Workbook Application.ScreenUpdating = False Set wbk = Workbooks.Open(ActiveWorkbook.Path & "\Vendredi.xls") On Error Resume Next wbk.Sheets("Feuil" & Day(Date)).PrintOut wbk.Close Set wbk = Nothing Application.ScreenUpdating = True End Sub

---

MERCI