Sub CreerLiens()
Dim chemin$, c As Range
chemin = ThisWorkbook.Path & "\Dossier PDF\_" 'avec tiret bas
With Sheets("Archives")
For Each c In Intersect(.Range("P3:P10000"), .UsedRange)
If c <> "" Then If Dir(chemin & c) <> "" Then .Hyperlinks.Add c(1, 2), chemin & c, TextToDisplay:=c.Text
Next
End With
End Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & "_" & LeParcours & ".pdf"
If LeParcours <> "" Then ActiveSheet.ExportAsFixedFormat xlTypePDF, LeRep & LeParcours
Oui bien sûr puisqu'il n'y a plus de tiret.c'était bien AM16 le problème, du coup dans ta macro pour créer les liens vers "Dossier PDF" il faut enlever le tiret sur cette ligne de commande ???;
chemin = ThisWorkbook.Path & "\Dossier PDF\_" 'avec tiret bas
Sub OterTiret1()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\Dossier PDF\"
fichier = Dir(chemin & "_*.pdf") '1er fichier, avec tiret bas
While fichier <> ""
If fichier <> "_.pdf" Then Name chemin & fichier As chemin & Mid(fichier, 2) 'renomme
fichier = Dir
Wend
End Sub
Sub OterTiret2()
Dim chemin$, f As Object
chemin = ThisWorkbook.Path & "\Dossier PDF\"
For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(chemin).Files
If f.Name Like "_?*.pdf" Then Name chemin & f.Name As chemin & Mid(f.Name, 2) 'renomme
Next
End Sub