XL 2013 Créer plusieur PDF avec RechercheV

[netparty]

Bonjour à tous et bon dimanche

je cherche a automatiser la création de plusieurs pdf en choissisant dans une Listbox quels fiche doit être créée.
Pour cela j'ai une 2ème feuille qui me sert de presentation avec un rechercheV.
Si je les fait un par un pas de soucis mais comment faire une boucle sur le rechercheV pour sortir les PDF demandé.

Merci à tous
bonne journée

 

[sousou]

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

 

[netparty]

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

 

[sousou]

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

 

[netparty]

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

Merci de ton aide
Bonne soirée