XL 2019 Macro imprimer plage définie

[Freedal]

Bonjour à tous,
j'ai un bouton associé à une macro pour imprimer ma feuille, mais je souhaiterai définir la plage précise à imprimer dans la macro (D3:I18)
Voici le code mais je ne sais pas intégrer la plage:
Sub Bouton_impression1()
ActiveSheet.PrintOut Copies:=1, collate:=True, IgnoreprintAreas:=False, Preview:=True
End Sub

Merci si vous pouvez m'aider et je vous souhaite un joyeux noél.

 

[riton00]

Bonsoir,

Un essai, mais attention je pense plutôt à D3:T18 que D3:I18 à voir



Slts

 

[dysorthographie]

Bonjour,
Il faut définir un zone d'impression.

ActiveSheet.PageSetup.PrintArea = "D3:I18"

 

[Freedal]

Avec un peu de retard, bonjour et merci riton00 et dysorthographie.
j'ai mis ce code et ça fonctionne très bien :
Sub Bouton_impression1()
ActiveSheet.PageSetup.PrintArea = "$D$4:$T$18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Si je pouvais l' imprimer en PDF et qui nommerai ce fichier PDF avec un nom se trouvant dans une cellule .
D'après vous, est-ce réalisable?
Merci d'avance.

 

[riton00]

Re Freedal

Si je pouvais l' imprimer en PDF et qui nommerai ce fichier PDF avec un nom se trouvant dans une cellule .
D'après vous, est-ce réalisable?

Voir avec cet essai... la macro peut largement être amélioré

Ça enregistre sous la racine de c:\ dans un répertoire PDF créée à cet occasion avec le nom qui ce trouve dans la cellule H6 "TOTO & TITI" Et imprime aussi en même temps
"Ps: la destination sous la racine de C:\PDF\ peut être modifier sans problème"

Slts

 

[Freedal]

Bonjour à tous et bonne année 2022.
Merci riton00 pour ta réponse. Dans ma macro au lieu de nommer la feuille par son nom car problème si je la renomme, il y aurait 53 modules à modifier.
Si je la nomme par son n° : Sheets(1).Select
Le code final me donne cela:
Sub Bouton_impresion01()
Sheets(1).Select
Range("C3:U19").Select
ActiveSheet.PageSetup.PrintArea = "$C$3:$U$19"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets(1).Select
Range("A2").Select
End Sub

Qu'en pensez vous?
merci d'avance

 

[Phil69970]

Bonjour @Freedal

Si je la nomme par son n° : Sheets(1).Select

Dans ma macro au lieu de nommer la feuille par son nom car problème si je la renomme, il y aurait 53 modules à modifier.

Je pense que tu fais une grave erreur car sheet(1) veut juste dire feuille N° 1

Ici c'est la "Feuille travail prest"

mais ici c'est la "Feuil1"

Il est préférable de mettre le codename de la feuille donc ici Feuil2

*Merci de ton retour

@Phil69970

 

[Freedal]

Bonjour @Freedal




Je pense que tu fais une grave erreur car sheet(1) veut juste dire feuille N° 1

Ici c'est la "Feuille travail prest"

Regarde la pièce jointe 1126259

mais ici c'est la "Feuil1"

Regarde la pièce jointe 1126260

Il est préférable de mettre le codename de la feuille donc ici Feuil2

Regarde la pièce jointe 1126262

*Merci de ton retour

@Phil69970

MerciSheets(2).Select

 

[Freedal]

Merci Phil69970
si je mets : Sheets(2).Select
ça ne fonctionne pas, pourtant c'est bien la feuil2

 

[Phil69970]

Re

MerciSheets(2).Select

NON tu as faux si tu veux faire référence au codename de de la "feuille travail prest" il faut l'appeler comme ceci

Feuil2.select

@Phil69970