Abominatutor
XLDnaute Nouveau
Bonjour a tous,
Voila j'ai un petit soucis surement très banale je n'en doute pas mais sur lequel je bloque !
J'ai un fichier dans lequel plusieurs onglet sont caché (12) J'ai une feuille de base sur lequel j'ai crée 12bouton 1 Bouton qui sert a imprimer chacune des feuilles qui est caché qui corresponde au 12mois de l'année. Le problème est que quand j'appuie sur mon bouton pour imprimer la page que je veux, tout s'imprime comme il le faux sauf que le bouton sur lequel je clique s'imprime aussi sur une deuxième feuille ! Alors que je ne veux que la feuille indiqué et non pas le bouton sur lequel je clique.
Mon code est tout simple le bouton est sur un onglet nommée "Navette" et l'onglet a imprimer s'appelle "Nav-Fev"
Private Sub CommandButton1_Click()
Sheets("Nav-Fev").Visible = True
Sheets("Nav-Fev").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
Sheets("Nav-Fev").Visible = False
End Sub
Merci par avance a tous !
EDIT : Problème résolus !
Voila j'ai un petit soucis surement très banale je n'en doute pas mais sur lequel je bloque !
J'ai un fichier dans lequel plusieurs onglet sont caché (12) J'ai une feuille de base sur lequel j'ai crée 12bouton 1 Bouton qui sert a imprimer chacune des feuilles qui est caché qui corresponde au 12mois de l'année. Le problème est que quand j'appuie sur mon bouton pour imprimer la page que je veux, tout s'imprime comme il le faux sauf que le bouton sur lequel je clique s'imprime aussi sur une deuxième feuille ! Alors que je ne veux que la feuille indiqué et non pas le bouton sur lequel je clique.
Mon code est tout simple le bouton est sur un onglet nommée "Navette" et l'onglet a imprimer s'appelle "Nav-Fev"
Private Sub CommandButton1_Click()
Sheets("Nav-Fev").Visible = True
Sheets("Nav-Fev").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
Sheets("Nav-Fev").Visible = False
End Sub
Merci par avance a tous !
EDIT : Problème résolus !
Dernière modification par un modérateur:
