Bonjour,
Comme je t'ai dis dans mon précédent message, tu peux compter le nombre de pdf qui commencent avec un nom standard :
Public Sub Test()
Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fil As Scripting.File
Dim i As Long
i = 0
Set fso = New Scripting.FileSystemObject
Set fld = fso.GetFolder("TonRépertoire")
For Each fil In fld.Files
If fil.name like "exemple n*.pdf" Then
i = i + 1
End If
Next fil
MsgBox i
end sub
Tu renommes i par nb_pdf par exemple, et tu lances ce code avant ton code pour enregistrer les feuilles, tu incrémentes simplement nb_fichiers à chaque enregistrement et le reste suivra, ton code donnerait :
Sub EnregPDF()
'
Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fil As Scripting.File
Dim nb_fichiers As Long
Dim ws As Worksheet, Chemin$, Fichier$, nF$, n%
Chemin = "C:\Users\clima\Desktop\Nouveau SUIVI\PDF\"
nb_fichiers = 0
Set fso = New Scripting.FileSystemObject
Set fld = fso.GetFolder(Chemin)
For Each fil In fld.Files
If fil.name like "*.pdf" Then
nb_fichiers = nb_fichiers + 1
End If
Next fil
For Each ws In ActiveWorkbook.Worksheets
Fichier = ws.Range("G10") & "*" & ".pdf"
nF = Dir(Chemin & Fichier): n = 0
Do While nF <> ""
n = n + 1
nF = Dir()
Loop
If n > 0 Then ws.Range("G10") = ws.Range("G10") & "_" & n
Next ws
For Each ws In ActiveWorkbook.Worksheets
nb_fichiers = nb_fichiers + 1
Fichier = ws.Range("G10") & "_" & nb_fichiers & ".pdf"
ws.ExportAsFixedFormat xlTypePDF, Chemin & Fichier
Next ws
End Sub
Essaye ce code