Bonjour reinruof77
Pour moi, c'est assez normal
1) tu écrase ton fichier PDF à chaque fois
Sub imprim()
Dim sh As Worksheet, adr$, nom$
adr = ThisWorkbook.Path & "\"
Set sh = Feuil4
nom = adr & sh.Range("C2") & (" CTS du site ") & sh.Range("G3") '& ".pdf"
Feuil4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=0
End Sub
"nom" ne change pas
Edit : c'est dû au problème de ligne
A changer
li = ListView1.ListItems.Item(i).ListSubItems(31)
2) Dans ton code, lors de l'exécution, ta variable "li" contient 95 !?
A+