Un macro imprimer plusieurs feuilles d'excel
Résolu/Fermé
A voir également:
- Un macro imprimer plusieurs feuilles d'excel
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment imprimer un tableau excel sur une seule page - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
- Formule excel - Guide
1 réponse
Bonjour,
Normalement le code suivant devrait fonctionner
Sub Impression_a_partir_feuille2()
On Error GoTo fin
Nb_Feuille = ActiveWorkbook.Sheets.Count
For i = 1 To Nb_Feuille
Sheets(i).Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1, _
Collate:=True, IgnorePrintAreas:=False
Next i
fin:
End Sub
WeaponEDGE
Normalement le code suivant devrait fonctionner
Sub Impression_a_partir_feuille2()
On Error GoTo fin
Nb_Feuille = ActiveWorkbook.Sheets.Count
For i = 1 To Nb_Feuille
Sheets(i).Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1, _
Collate:=True, IgnorePrintAreas:=False
Next i
fin:
End Sub
WeaponEDGE
