Salut,
Voici une fonction qui te retourne les fichiers trouvés dans ton repertoire avec ta doucle condition :
Private Function ChercheFichier(Nomf$, Rep$, SousNomF$, Optional Sourep As Boolean)
Dim I As Long, Tablo
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(.FoundFiles.Count)
For I = 0 To .FoundFiles.Count
If Right(.FoundFiles, Len(SousNomF)) = SousNomF Then Tablo(I) = .FoundFiles(I)
Next I
End With
On Error GoTo 0
ChercheFichier = Tablo
End Function
'Dans ta proc principale, comme tu commences ta numérotation à 1000
'A tester et à adapter, tu peux utiliser les valeurs d'une cellule...
sub Princ
dim Numero as long, T
Numero=1000
T=cherchefichier("Photo","C:\dossier\2004","Toto.xls")
if isarray(t) then Numero=Numero & Ubound(t)+1
Nomfichier="Photo_" & Numero & "_Toto" & ".xls"
Thisworkbooksaveas Nomfichier
end sub
A+++