impression suivant date

[arvin]

bonjour à tous !!

j'aurais besoin d'un coup de main : je souhaite quand j'ouvre 1 classeur avoir 1 user form avec des dates et selon la date que je choisie : si j'ai choisi 1 samedi ou 1 dimanche , il imprime la feuille 1,2,3 et 4 sinon il imprime la feuille 1 ,2 et 3

lors de l'impression il mettra en en tete de chaque feuille la date que j'ai séléctionné

pensez vous cela possible?

merci à tous

 

[Franck]

salut !

A ta place je créerais une un "Select Case". J'ai pris comme exemple que ta variable s'appelle toto, et qu'elle contient Samedi ou Dimanche ou ce que tu veux.
Tu peux rajouter autant de "Case" que tu veux.
A toi de faire un lien entre ton Userform qui doit te renvoyer la valeur de toto.

Sub impression()

Select Case toto

Case toto="Samedi"
Sheets(Array("Feuil1", "Feuil2")).Select
Sheets("Feuil1").Activate

Case toto="Dimanche"
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil1").Activate

End Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub


Bon courage !

Franck