Discussion :

[djoumusic]

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 !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

wbk.Sheets( Day(Date)).PrintOut

[djoumusic]

ca donnerai ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djoumusic]

MERCI