Eviter message d'erreur

kikim

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

XLDnaute Barbatruc
Re : Eviter message d'erreur

Bonjour kikim,

Peut-être comme celà ?

Code:
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL