Bonjour Bidexcel le forum
oui tu as cette possibilité, mais si tu ne veux pas changer l’ordre des feuilles dans le classeur quand tu as un ordre à respecter, voilà la macro qui fait tout toute seule
a+
Papou
Bonjour
Je viens de tester ton fichier c'est super! C'est exactement la piste que je cherche depuis plusieurs mois déjà. Serait-il possible de pousser un peu plus loin ta macro sur des zones d'impressions ?
Dans mon fichier si joint j'avais fait une macro pour déterminer l'impression de 4 feuilles présentes dans l'onglet "COMPTE1" (voir macro "Sub impression" ci-dessous.
Serait-il possible de combiner ses 4 pages sur un seul et même pdf ?
Je maîtrise pas très bien les macros mais au niveau du fichier de sortie du pdf ça serait cool qu'il ait le nom avec la ligne de code suivante :
nom = adr & "RG " & Format(Sheets("COMPTE1").Cells(6, 1), "yyyy")
Merci infiniment de ton aide si c'est réalisable .
Sub Impression()
'Zone d'impression et impression du patrimoine Financier
ActiveSheet.PageSetup.PrintArea = "AK2:AR" & Range("AK65536").End(xlUp).Row
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.BlackAndWhite = False
.Zoom = 85
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Zone d'impression et impression du tableau dépenses
Range("AT2:BA28").Select
ActiveSheet.PageSetup.PrintArea = "$AT$2:$BA$28"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$AT$2:$BA$28"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = False
.FirstPageNumber = 1
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 75
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Zone d'impression et impression du tableau ressources (Il n'y a pas besoin de toucher aux paramètres car elles restent inchangés)
ActiveSheet.PageSetup.PrintArea = "BI2:BP" & Range("BO65536").End(xlUp).Row
With ActiveSheet.PageSetup
.Zoom = 72
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Zone d'impression et impression du tableau de garde
Range("BX2:CE20").Select
ActiveSheet.PageSetup.PrintArea = "$BX$2:$CE$20"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = False
.FirstPageNumber = 1
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 89
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub