XL 2019 Macro imprimer plage définie

Freedal · 24 Décembre 2021

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 · 24 Décembre 2021

Bonsoir,

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

Slts

dysorthographie · 24 Décembre 2021

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

Code:

ActiveSheet.PageSetup.PrintArea = "D3:I18"

Freedal · 31 Décembre 2021

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 · 31 Décembre 2021

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 · 2 Janvier 2022

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 · 2 Janvier 2022

Bonjour @Freedal

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

Freedal à dit:
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 · 2 Janvier 2022

Phil69970 à dit:
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 · 2 Janvier 2022

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

Phil69970 · 2 Janvier 2022

Re

Freedal à dit:
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

XL 2019 Macro imprimer plage définie

Freedal

XLDnaute Junior

Pièces jointes

riton00

XLDnaute Impliqué

Pièces jointes

dysorthographie

XLDnaute Accro

Freedal

XLDnaute Junior

riton00

XLDnaute Impliqué

Pièces jointes

Freedal

XLDnaute Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Freedal

XLDnaute Junior

Freedal

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Discussions similaires