Discussion :

[Biker-Robby]

Bonjour à tous,
J'aimerai créer un bouton (macro) dont sa fonction devrait se limiter à sélectionner une zone précise de la feuille d'Excel (par exemple entre A1 et S36) et à ouvrir la fenêtre d'impression (ctrl+P).

Pourriez-vous m'aider ?
Merci

Robby

[Jean-Philippe André]

bonjour,
tu peux avoir un code dans ce style :

Code :

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

Range("A1:S36").Select

ou si tu veux définir une zone d'impression

Code :

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

ActiveSheet.PageSetup.PrintArea = "$A$1:$S$36"

enfin pour avoir la fenetre d'impression :

Code :

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

Range("A1:S36").Printout Preview:=True

simple aussi, le macro recorder : Outils>Macro>NOuvelle Macro, qui enregistre sous forme VBA les actions que tu effectues dans l'interface d'Excel

[Biker-Robby]

Cher jpcheck, merci pour ta réponse.

Le code "Range("A1:S36").Printout Preview:=True" marche très bien, mais il ouvre l'aperçu de la feuille et non pas la fenêtre d'impression.

Y a-t-il une autre commande ? (je ne suis pas fort en macro).

J'ai essayé aussi l'enregistrement d'une nouvelle macro, le déroulement fonctionne très bien jusqu'au choix dans le menu Fichier - Imprimer et là, dès que la fenêtre "imprimer" s'ouvre je n'ai plus accès à la petite fenêtre de la macro pour stopper l'enregistrement. Le seul choix que j’ai c’est de cliquer sur OK et l’impression démarre…

Robby

[Niagala]

Re

Consultes ce fichier s'il peut t'aider

[Biker-Robby]

Merci à tous !

Grace à vos réponses, j'ai pu m'orienter et peaufiner ma démarche.
Voici le code que j’ai employé :

' définir la zone d'impression sur une plage de cellules :
ActiveSheet.PageSetup.PrintArea = "$A$1:$s$36"

' afficher la boîte de dialogue pour le choix de l'imprimante :
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Feuil1.PrintOut

Voilà et à bientôt...

Robby