cedric cadre
XLDnaute Nouveau
Bonjour,
voila, je désire créeer un bouton sur mon excel dans le feuille "impression" qui me permettre d'imprimer un PDf avec les feuilles désirées, celles ci sont cochées dans ma feuille impression (dans la colone B).
ma macro donne ceci :
Sub ImpressionGlobale()
If Sheets("Impression").Range("B3").Value <> "" Then Sheets("Calcul Global").PrintOut
If Sheets("Impression").Range("B4").Value <> "" Then Sheets("ALEO").PrintOut
If Sheets("Impression").Range("B5").Value <> "" Then Sheets("AGsun").PrintOut
If Sheets("Impression").Range("B6").Value <> "" Then Sheets("KINGSPAN").PrintOut
If Sheets("Impression").Range("B7").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B8").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B9").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B10").Value <> "" Then Sheets("SILIKEN").PrintOut
If Sheets("Impression").Range("B11").Value <> "" Then Sheets("Boitier").PrintOut
If Sheets("Impression").Range("B12").Value <> "" Then Sheets("DEVIS").PrintOut
If Sheets("Impression").Range("B13").Value <> "" Then Sheets("presentation").PrintOut
If Sheets("Impression").Range("B14").Value <> "" Then Sheets("Calcul PV").PrintOut
If Sheets("Impression").Range("B15").Value <> "" Then Sheets("Page1").PrintOut
If Sheets("Impression").Range("B16").Value <> "" Then Sheets("PageN").PrintOut
End Sub
le problème c'est que cela me génère autant d'impression PDF que de feuilles, or je ne veut qu'un seul PDF en sortie.
j'ai trouvé cette ligne de commande sur internet :
Sheets(Array("Feuil2", "Feuil3")).PrintOut Copies:=1
je souhaiterai pouvoir l'adapter à mon cas précis car je pense que cela doit être la solution, mais je n'arrive pas à trouver comment faire.
Des idées?
Merci pour vos réponses.
voila, je désire créeer un bouton sur mon excel dans le feuille "impression" qui me permettre d'imprimer un PDf avec les feuilles désirées, celles ci sont cochées dans ma feuille impression (dans la colone B).
ma macro donne ceci :
Sub ImpressionGlobale()
If Sheets("Impression").Range("B3").Value <> "" Then Sheets("Calcul Global").PrintOut
If Sheets("Impression").Range("B4").Value <> "" Then Sheets("ALEO").PrintOut
If Sheets("Impression").Range("B5").Value <> "" Then Sheets("AGsun").PrintOut
If Sheets("Impression").Range("B6").Value <> "" Then Sheets("KINGSPAN").PrintOut
If Sheets("Impression").Range("B7").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B8").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B9").Value <> "" Then Sheets("HYE").PrintOut
If Sheets("Impression").Range("B10").Value <> "" Then Sheets("SILIKEN").PrintOut
If Sheets("Impression").Range("B11").Value <> "" Then Sheets("Boitier").PrintOut
If Sheets("Impression").Range("B12").Value <> "" Then Sheets("DEVIS").PrintOut
If Sheets("Impression").Range("B13").Value <> "" Then Sheets("presentation").PrintOut
If Sheets("Impression").Range("B14").Value <> "" Then Sheets("Calcul PV").PrintOut
If Sheets("Impression").Range("B15").Value <> "" Then Sheets("Page1").PrintOut
If Sheets("Impression").Range("B16").Value <> "" Then Sheets("PageN").PrintOut
End Sub
le problème c'est que cela me génère autant d'impression PDF que de feuilles, or je ne veut qu'un seul PDF en sortie.
j'ai trouvé cette ligne de commande sur internet :
Sheets(Array("Feuil2", "Feuil3")).PrintOut Copies:=1
je souhaiterai pouvoir l'adapter à mon cas précis car je pense que cela doit être la solution, mais je n'arrive pas à trouver comment faire.
Des idées?
Merci pour vos réponses.