Bonjour à tous,

Tout d'abord merci pour ce super forum qui m'a dépanné plus d'une fois.
Je suis novice en VBA mais j'arrive toujours à m'en sortir à peu près mais la je bloque depuis des heures.
Je vous explique mon "problème" :
J'ai un menu déroulant dans ma feuille 1 qui va chercher des infos dans un tableau (qui me sert de base de données) dans ma feuille 2. J'ai ensuite un bouton qui me permet d'exporter chaque choix de mon menu déroulant dans un fichier PDF mais malheureusement après génération mon fichier PDF ne contient qu'une seule personne de mon menu déroulant, je pense que mon code n'est pas adapté et qu'il écrase chaque personne lors de chaque "passage".
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export_PDF()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("C9")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    sNomFichierPDF = ThisWorkbook.Path & "\" & Worksheets("Sheet1").Range("C9") & ".pdf"
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Next
End Sub
J'ai essayé d'adapter le code de #kiki29 présent ici : https://www.developpez.net/forums/d4...ro-pdfcreator/ mais je n'y arrive pas

Merci d'avance pour votre aide.

Cdt