[pobrouwers]

Re,

Je viens de créer une macro mais j'ai un message d'erreur.
Erreur d'execution 58 ce fichier existe déja
Pourquoi a votre avis ?

voici le code

Sub RemameFiles()
Dim i As Integer
Dim ii As Integer
Dim Fichier As String
Dim NewName As String
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
      For ii = 1 To 78
        ii = ii + 1
        NewName = "\test" & ii & ".xls"
        For i = 1 To .FoundFiles.Count
        Fichier = .FoundFiles(i)
        Name Fichier As TxbBrowseForFolder & "\" & NewName
 
        Next i
      Next ii
    Else
        MsgBox "Pas de fichier(s) trouvé(s)"
    End If
End With
 
End Sub