[pobrouwers]

Re ChTi160

Merci pour ta réponse mais je viens de trouver...

voici le code ...

Sub RemameFiles()
Dim i As Integer
Dim ii As Integer
Dim Fichier As String
Dim NewName As String
Dim rep As String
Dim rep1 As Variant
Dim fs As FileSearch

Set fs = Application.FileSearch

With fs
    .NewSearch
    .LookIn = Me.TxbBrowseForFolder.Value
    .SearchSubFolders = True
    .FileType = msoFileTypeExcelWorkbooks
    .Execute msoSortByFileName, msoSortOrderAscending
    
    If .Execute() > 0 Then
On Error Resume Next
        For i = 1 To .FoundFiles.Count
        For ii = 1 To 78
        ii = ii + 1
        Fichier = .FoundFiles(i)
        rep1 = Split(Fichier, "\")
        rep = Left(Fichier, Len(Fichier) - Len(rep1(UBound(rep1))))
        Name Fichier As rep & "test" & ii & ".xls"
Next ii
        Next i
    Else
        MsgBox "Pas de fichier(s) trouvé(s)"
    End If
End With

End Sub

le 1er probleme etait le nouveau nom, ce n'était pas le bon chemin