Besoin code enregistrer tous les bulletins en pdf
hicham2610
Messages postés
187
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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> |
A voir également:
- Besoin code enregistrer tous les bulletins en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Code ascii - Guide
- Audacity enregistrer son pc - Guide
- Code de deblocage de tous les telephones (pdf) - Guide
- Code puk bloqué - Guide
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 feuilles
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 feuilles
Sub 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