XL 2013 Créer plusieur PDF avec RechercheV

Bonjour
La modification du bouton
Private Sub CommandButton1_Click()
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
Set k = ThisWorkbook.Names("Tableau_DB").RefersToRange
Set k1 = k.Find(Me.ListBox1.List(n, 3))
fich = k1.Offset(0, 2).Value
Call pdf(fich)
End If
Next
la modification de la procédure pdf
Sub pdf(fich)
Dim SousDossier As String
Dim chemin As String
Dim NomFichier As String

NomFichier = fich & "-" & "ENTETE" & ".pdf"
.............

End Sub

Bonjour sousou

Merci pour ton aide le fichier fonctionne presque il sort bien plusieurs PDF,mais le contenu de chaque PDF est identique

bonne journée

RE
Je ne m'était pas intéressé au contenu
C'est fait : il te suffit de modifier la cellule de recherche, ici je la passe en paramètre au modele pdf

sousou à dit:

RE
Je ne m'était pas intéressé au contenu
C'est fait : il te suffit de modifier la cellule de recherche, ici je la passe en paramètre au modele pdf

Cliquez pour agrandir...

Merci de ton aide
Bonne soirée