comment alléger ce code ?

[kinel]

Bonjour à tous

j'utilise ce code quand je suis sur la feuil4 pour imprimer une partie de la feuil5 sans quitter la feuil4

Sheets("Feuil5").Select
Range("N1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Feuil4").Select

pouvez vous m'expliquer comment éviter le select ?

Merci

 

[youky(BJ)]

Re : comment alléger ce code ?

Bonjour kinel,
C'est bête comme chou,

Sheets("Feuil5").PrintOut

Perso j'utilise le codename de la feuille que tu peux le voir dans la fenêtre des projets , exemple Feuil5 (Feuil5)
Le 1er Feuil5 est le codename et l'autre le .name
Cela donne Feuil5.PrintOut qui permet de renommer l'onglet sans avoir de bug.
Bruno

 

[Robert]

Re : comment alléger ce code ?

Bonjour Kinel, bonjour le forum,

Essaie comme ça :

Sheets("Feuil5").PrintOut Copies:=1

[Édition]
Bonjour Youky on s'est croisé...

 

[kinel]

Re : comment alléger ce code ?

super

merci beaucoup

Kinel