Bonjour,
Dans la colonne G, les noms ont déjà une extension .pdf.
Dans ton code, tu ajoutes encore un .pdf
sNomFic = Me.ListBox1.List(Me.ListBox1.ListIndex) & ".pdf"
Tu te retrouves donc avec :
10220EL10 - 2016 CIRCUITAGE ECLAIRAGE ET ECLAIRAGE SECOURS RDC BAS ET SOUS SOL 2.pdf.pdf
Ce qui donne l'erreur.
Enlève le .pdf dans la colonne G.
Pour le faire rapidement ... CTRL+H
Rechercher .pdf
Remplacer par rien
Remplacer tout
Gelinotte