Code pour enregistrer tous les bulletins en pdf

bsr

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

Bonsoir,

Si tu faisais le tour des sujets similaires ! Ce serait étonnant que tu ne trouves pas comment faire...

svp

j'ai vraiment besoin d'aide ,j'ai passé longtemps à chercher mais sans aucune solution à ce problème

Ce n'est tout de même pas sorcier de trouver que la méthode d'enregistrement en pdf est ExportAsFixedFormat et qu'elle s'applique à un classeur, une feuille, une plage, un graphique.

    ActiveSheet.ExportAsFixedFormat xlTypePDF, chemin & NomFichier.pdf, OpenAfterPublish:= False

Je conseille d'utiliser des variables pour composer le chemin et le nom du fichier, d'autant que tu as à distinguer les noms...

Bsr

malheureusement

je n'ai pas réussi

voici le fichier

le bouton se trouve dans la feuille bulletin_sem2

print imprime tous les bulletins

je veux insérer un code dans le bouton pdf qu' il puisse enregistrer tous les bulletins en format pdf

merci d avance

Ma réponse sur ton autre sujet !