Discussion :

[kikim78]

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

[laetitia]

re la maniere brute en debut de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

mais il vaut mieux gerer l'erreur avec une etiquette "goto"fait une recherche sur la gestions des erreurs sujet interessant
si pas suffisant rajouter en debut de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

un peu comme ton post precedent!!!

[kikim78]

Re le forum

On Error Resume Next

c'est exactement ça ce que je cherche!
Merci beaucoup Laetita.

Crdt,

[patricktoulon]

bonjour a tous

tu pourais metre une condition du genre quand tu clique sur le bouton appelant ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
private  commandbutton1_click()
if sheets("feuil1").range ("a5000".value ="non" then exit sub
' 
else if  sheets("feuil1").range ("a5000".value ="" then
sheets("feuil1").range(A5000).value ="non"
call renommer
end if

donc quand tu clique pour renomer ton fichier si la cellulea5000 est rempli avec "non" tu est ejecté de la sub si il y a rien ta macro sera appelée
quand tu reouvrira ton fichier pour le renomer
la condition precedement cité t ejectera de ta sub si la cellule est rempli par "non"

la tu gere par l erreur tu l'evite ce n'est pas la meme chose


il y en a une autre aussi tu pourai utilise la fonction save setting afin d'evite de touche a la feuille si tu fais une rechercehe sur ce forum tu trouvera de la doc la dessus


voila
au plaisir

[laetitia]

re, bonsoir patrick effectivement ton analyse est trés bonne au lieu de gerer une erreur autant l'eviter quand c'est possible . j'ai repondu un peu hativement ce matin bravo
passe une bonne soirée a+ leti