Besoin code enregistrer tous les bulletins en pdf
hicham2610
Messages postés
204
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonsoir
svp
comment modifier ce code vba afin qu'il puisse enregistrer tous les bulletins en pdf sur bureau au lieu de les imprimer.
Le code:
merci beaucoup
svp
comment modifier ce code vba afin qu'il puisse enregistrer tous les bulletins en pdf sur bureau au lieu de les imprimer.
Le code:
Sub Print_All() For I = 1 To [N7] [N5] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next [N5] = 1 End Sub
merci beaucoup
| Message édité par la modération |
| Merci d'utiliser la coloration syntaxique lorsque du code source est
présent dans votre message afin de rendre celui-ci plus lisible. |
| Plus d'informations sur cet article : Utilisation des balises <code></code> |
1 réponse
-
Bonjour,
Question: vous selectionnez les feuilles d'un fichier ouvert????
Si c'est le cas:
A adapter a votre contexte de facon a faire une boucle sur les feuillesSub enr_feuille_PDF() 'ici plusieur feuille ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Selection.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\TestFolder\temp.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
