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

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

Bonjour et bienvenue,

Il est opportun de joindre un fichier pour faciliter les réponses.

Est-ce que tu peux l'anonymer et le joindre?

Sinon l'idée est celle-ci:

sheets("NomFeuille").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonChemin & Fichier, Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

IL faut définir préalablement le nom du fichier et son chemin.

Cordialement

Bonsoir,

merci pour cette réponse rapide

Je ne sais pas joindre le fichier car il est trop volumineux

Bonsoir ddetp88,

Je joins un classeur avec les 2 onglets utilisés, toujours mieux que rien ;o)

J'ai travaillé de mon coté.

Cette procédure est à adapter.

Sub pdf()
Dim MonChemin$, Fichier$
MonChemin = ThisWorkbook.Path & "C:\Mes Documents\......." 'Affecte le path à la variable
Fichier = "NomFichieràDéfinir.pdf" '........................Affecte le nom du fichier à la variable
'la mise en page doit être faite
With ActiveSheet
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonChemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Je regarde tes fichiers en attendant

Cordialement

J'ai quelques difficultés avec ton fichier.

Il y a des liaisons avec d'autres fichiers que je n'ai pas réussi à supprimer. Est-ce ça???

A tel point que j'ai refais un test sur un document vierge et là ça fonctionne.

Je te mets les fichiers en PJ.

Bonjour ddetp88, bonjour aux autres également,

Pourrais-tu expliciter le pourquoi du comment du $ dans la déclaration de ta variable ?

Ça serait super sympa.

Merci beaucoup par avance.

Bonjour,

Ce sont des équivalences $ pour remplacer AS string et % pour remplacer as integer.

Cordialement

Consulte ce lien:

https://www.excel-pratique.com/fr/vba/variables

Sérieux?

Damn it, je ne suis jamais tombé sur cette information.

Les joies de l'autodidactisme.

Merci beaucoup !

Ah oui, super !

Je crois que j'avais volontairement laissé les symboles de côté dans un 1er temps pour me concentrer sur la compréhension globale des choses lors de l'apprentissage.

Mais c'est toujours bon à savoir.

par ddetp88 » 13 avril 2020, 23:03

J'ai quelques difficultés avec ton fichier.

Il y a des liaisons avec d'autres fichiers que je n'ai pas réussi à supprimer. Est-ce ça???

A tel point que j'ai refais un test sur un document vierge et là ça fonctionne.

Bonjour ddetp88,

oui, il y a bien des liaisons avec d'autres onglets de mon fichier initial ... Ce dernier est trop lourd pour être téléchargé dans son entièreté sur le forum donc j'ai juste joint les 2 onglets concernés.

Je vais tester ton code aujourd'hui et te tiens au courant .

Merciiiiii

et belle journée

Un retour sur l'utilisation du fichier ?

Merci !

Bonjour,

Désolée pour la réponse tardive mais je n'ai pas eu le temps d'y travailler.

Je m'y attelle actuellement et te fais un retour;

Merci pour ton aide

Re... ddept88

J'ai essayé d'adapter ton code mais j'ai un message d'erreur "l'objet invoqué s'est déconnecté de ses clients"

Je joins un fichier test un peu plus étoffé que le précédent.

MERCIIIII d'avance pour ton retour

Bonne journée

Bonjour,

Laisse seulement thisworkbook.path.

Tu retrouveras le fichier pdf dans le dossier où est situé ton fichier excel.

Excellente journée!

Sub Image3_Cliquer()

Dim MonChemin$, Fichier$
MonChemin = ThisWorkbook.Path & "\" 'Affecte le path à la variable
'la mise en page doit être faite
With ActiveSheet
   Fichier = .[C1] & " " & .[G1] & ".pdf" '........................Affecte le nom du fichier à la variable
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonChemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

End Sub

j'essaie et reviens vers toi

merci

ddetp88 a écrit :

Bonjour,

Laisse seulement thisworkbook.path.

Tu retrouveras le fichier pdf dans le dossier où est situé ton fichier excel.

Excellente journée!

Sub Image3_Cliquer()

Dim MonChemin$, Fichier$
MonChemin = ThisWorkbook.Path & "\" 'Affecte le path à la variable
'la mise en page doit être faite
With ActiveSheet
   Fichier = .[C1] & " " & .[G1] & ".pdf" '........................Affecte le nom du fichier à la variable
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonChemin & Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

End Sub

Je désespère ...ddetp88

encore et toujours la même erreur l'objet s'est déconnecté de ses clients

Sur qu'elle ligne l'erreur se produit ?

Lance la macro pas à pas et trouve la ligne en erreur.