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
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
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