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