Eviter message d'erreur

[kikim]

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

 

[Papou-net]

Re : Eviter message d'erreur

Bonjour kikim,

Peut-être comme celà ?

Sub renommer()

Dim nom As String, lettre As String
Dim fichiers, dossier, fs, f

[B][COLOR="RoyalBlue"]On Error Resume Next
[/COLOR][/B]
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

Espérant t'avoir aidé.

Cordialement.

 

[kikim]

Re : Eviter message d'erreur

Re le forum,

Certe tu ma bien aider🙂
Merci beaucoup Papou-net
Crdt,