• Initiateur de la discussion Initiateur de la discussion Adelaide79
  • Date de début Date de début

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 !

Adelaide79

XLDnaute Nouveau
Bonjour,

J'ai créer une macro sur une feuille pour un changement de date en automatique.

Lorsque l'impression se lance cela imprime une feuille par une feuille est il possible de faire lancer une impression global et en recto/verso.

Merci pour votre aide
 
Bonjour Adelaide79 et bienvenue,

Un exemple de code:
Code:
'Imprime plusieurs feuilles en m tps...
Sub Imprimer_Devis()
   ' Avec la feuille Devis
  With Sheets("Devis")
     ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:AV60"
     ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
   End With
   ' Avec la feuille Devis
  With Sheets("Funé")
     ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:A59"
     ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
   End With
End Sub

Une autre solution consiste à boucler sur tous les onglets de ton classeur...
 
Ca c'est ma formule et meme quand je l'imprime en PDF il ouvre autant de fichier PDF qu'il y a de jours:

Option Explicit
Sub xx()
Dim i As Long

For i = Sheets("Feuil3").Range("B1") To Sheets("Feuil3").Range("B2")
Range("E1") = i
ActiveSheet.PrintOut

Next i

End Sub
 
Code:
Code:
Option Explicit
Sub xx()
Dim i As Long
Dim valDte As Date
Dim Ws As Worksheet

Set Ws = ThisWorkbook.Sheets("Feuil3")

With ThisWorkbook.Sheets("MECAN 2017")
For i = 1 To Ws.Range("B65536").End(xlUp).Row
    valDte = Ws.Cells(i, 2)
    .Range("E1") = valDte
    'Range("E1") = i
    'ActiveSheet.PrintOut
    .PrintOut
Next i
End With
Set Ws = Nothing
End Sub
 
Dernière édition:
- 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

  • Question Question
Microsoft 365 Publipostage WORD
Réponses
2
Affichages
884
Réponses
7
Affichages
163
Réponses
75
Affichages
1 K
Réponses
18
Affichages
332
Réponses
4
Affichages
131
Réponses
4
Affichages
243
Retour