Macro impression
dbosquet
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une macro dans un "thisworkbooks" pour imprimer automatiquement les feuilles d'un fichier. J'ai programmé la macro pour que l'impression se fasse en double mais cela ne me sorte qu'une seule feuille. Pouvez-vous m'aider. Ci-dessous la macro :
Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
Set Book = App.Workbooks.Open("J:\aa\bb\cc\dd.xlsm")
Set Sheet = Book.Sheets("Principal")
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
App.Quit
End Sub
Merci pour vos réponses et votre aide
J'ai une macro dans un "thisworkbooks" pour imprimer automatiquement les feuilles d'un fichier. J'ai programmé la macro pour que l'impression se fasse en double mais cela ne me sorte qu'une seule feuille. Pouvez-vous m'aider. Ci-dessous la macro :
Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
Set Book = App.Workbooks.Open("J:\aa\bb\cc\dd.xlsm")
Set Sheet = Book.Sheets("Principal")
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
App.Quit
End Sub
Merci pour vos réponses et votre aide
