Eviter message d'erreur
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
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
Bonjour,
Merci de rester sur ton premier fil, cela permettra de mieux comprendre et suivre ta demande ->
https://forum.excel-pratique.com/excel/macro-renommer-fichiers-t14628.html
Merci de ta participation
Le sujet est verrouillé.
A bientôt
Dan