Imprimer plusieurs feuilles dans une même macro

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 !

panpan13009

XLDnaute Nouveau
Bonjour,

je souhaiterais ajouter un bouton pour pouvoir imprimer deux feuilles à la suite dans une même macro.

Par ex pour la première feuille j'ai

Sub Imprimer_Devis()
'
' Imprimer_Devis Macro
' Macro enregistrée le 22/10/99 par VdM
'

'
Range("A1:F49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

End Sub


mais pourquoi il est noté au début Range("A1:F49").Select alors que ce qu'il faut enregistrer est de A1 à AV60

Je souhaiterais donc à la suite de devis-dessus imprimer la feuille Funé de A1 à A59 feuille qui est seule et à imprimer une seule fois.

Pourriez vous me réécrire la macro en corrigeant s'il y a des fautes au dessus et en rajoutant la deuxieme feuille

Merci à tous et toutes
 
Re : Imprimer plusieurs feuilles dans une même macro

Bonjour panpan13009

Voici le code
VB:
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

A+
 
- 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
4
Affichages
177
Retour