Exporter en pdf plusieurs feuilles générées par une liste déroulante

ibru_7113 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
ibru_7113 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonsoir,
J'ai créé un fichier excel qui comporte entre autres un onglet ELEVES et un onglet Bulletin
Voici le code que j'utilise pour prévisualiser les bulletins des élèves générés via une liste déroulante en I1 qui reprend le numéro des élèves de sheets ELEVES A3 à A32
Sub Image2_Cliquer()
Dim Liste As String, A As Range
With Sheets("Bulletin")
Liste = .Range("I1").Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each A In Range(Liste)
.[I1] = A.Value
.PrintPreview
Next A
End With
End Sub
Ce code fonctionne très bien mais j'aimerai également créer un code pour exporter en pdf toutes les feuilles générées
Quelqu'un pourrait-il m'aider car tous mes essais sont restés sans résultat?
Merciiiiiiiiii
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

le plus simple c'est de générer un pdf par feuille comme ceci:


https://forums.commentcamarche.net/forum/affich-36518314-export-pdf#1

sinon on peut générer un pdf par feuilles sélectionnées, mais c'est plus complexe

voilà
1
ibru_7113 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Merci
Je teste cela et te tiens au courant
Bonne journée
0