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

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:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
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
0