Re le forum,

Est il possible de modifier la macro pour eviter un message d'erreur quand on clique une 2 eme fois sur bouton macro " la macro detecte que les fichiers sont deja renommer alors affiche message d'erreur"

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub renommer()
 
    Dim nom As String, lettre As String
    Dim fichiers, dossier, fs, f
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dossier = fs.getfolder(Range("A2"))
    Set fichs = dossier.Files
 
    For Each f In fichs
        nom = ""
        For j = 1 To Len(f.Name)
            lettre = Mid(f.Name, j, 1)
            If lettre <> "_" And lettre <> "-" Then
                nom = nom & lettre
            End If
        Next j
        f.Name = nom
    Next f
 
End Sub