XL 2019 Macro imprimer plage définie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Freedal

XLDnaute Junior
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. 🙂
 

Pièces jointes

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.🙂
 
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
 

Pièces jointes

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
 

Pièces jointes

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"

1641137120282.png


mais ici c'est la "Feuil1"

1641137195448.png


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

1641137582187.png


*Merci de ton retour

@Phil69970
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
6
Affichages
2 K
Retour