besoin code enregistrer tous les bulletins en pdf

Question

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>

f894009 · Answer

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	emp.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Besoin code enregistrer tous les bulletins en pdf

1 réponse

Discussions similaires

Newsletters