Autres Sans supprimer les classeurs : est-il possible de les renommer en supprimant les " - copie" en fin du noms de mes classeurs ?

[Usine à gaz]

Bonjour à toutes et à tous (lol ça faisait longtemps) 🤪

J'en ai une petite en cette fin d'après-midi.

Dans un dossier, j'ai un nombre important de classeurs qui ont en fin de noms " - copie"
Est-il possible de les supprimer ?

Auriez-vous la solution ?
En cas, je joins une photo.

Merci à toutes et à tous,
lionel 🤪

 

[TooFatBoy]

Hi,

https://www.bulkrenameutility.co.uk/

 

[laurent950]

Bonsoir @Usine à gaz @TooFatBoy

Sub RenommerCopiesExcel()
    Dim chemin As String
    Dim fichier As String
    Dim nouveauNom As String
 
    ' <-- Modifiez ici le chemin de votre dossier
    chemin = "C:\Votre\Dossier\"
 
    ' Cherche tous les fichiers "*.*      '  Cherche tous les fichiers Excel
    fichier = Dir(chemin & "*.*")         '  fichier = Dir(chemin & "*.xls*") inclut .xls, .xlsx, .xlsm
 
    Do While fichier <> ""
        ' Vérifie si le nom contient " - copie"
        If InStr(fichier, " - copie") > 0 Then
            ' Crée le nouveau nom en enlevant " - copie"
            nouveauNom = Replace(fichier, " - copie", "")
            ' Renomme le fichier
            Name chemin & fichier As chemin & nouveauNom
        End If
    
        ' Passe au fichier suivant
        fichier = Dir
    Loop
 
    MsgBox "Renommage terminé."
End Sub

 

[Jacky67]

Bonjour à toutes et à tous (lol ça faisait longtemps) 🤪

J'en ai une petite en cette fin d'après-midi.

Dans un dossier, j'ai un nombre important de classeurs qui ont en fin de noms " - copie"
Est-il possible de les supprimer ?
Regarde la pièce jointe 1222133
Auriez-vous la solution ?
En cas, je joins une photo.

Merci à toutes et à tous,
lionel 🤪

Bonjour à tous
S'il s'agit de supprimer les fichiers....

Sub supprime()
    Dim Fichier As String, chemin As String
    chemin = "C:\Users\xxx\yyyy\"    ' a adapter
    If MsgBox("Attention, aucun retour possible" & vbLf & "Confirmer", 292, "Attention") = 7 Then Exit Sub
    Fichier = Dir(chemin)
    Do While Fichier <> ""
          If InStr(Fichier, "- copie") Then
            Kill chemin & Fichier
        End If
        Fichier = Dir
    Loop
End Sub

 

[Usine à gaz]

Bonsoir @Usine à gaz @TooFatBoy

Sub RenommerCopiesExcel()
    Dim chemin As String
    Dim fichier As String
    Dim nouveauNom As String
 
    ' <-- Modifiez ici le chemin de votre dossier
    chemin = "C:\Votre\Dossier\"
 
    ' Cherche tous les fichiers "*.*      '  Cherche tous les fichiers Excel
    fichier = Dir(chemin & "*.*")         '  fichier = Dir(chemin & "*.xls*") inclut .xls, .xlsx, .xlsm
 
    Do While fichier <> ""
        ' Vérifie si le nom contient " - copie"
        If InStr(fichier, " - copie") > 0 Then
            ' Crée le nouveau nom en enlevant " - copie"
            nouveauNom = Replace(fichier, " - copie", "")
            ' Renomme le fichier
            Name chemin & fichier As chemin & nouveauNom
        End If
   
        ' Passe au fichier suivant
        fichier = Dir
    Loop
 
    MsgBox "Renommage terminé."
End Sub

Bonsoir Laurent,
Merci pour ce retour.
Je vais tenter et je te dirai.
lionel,

 

[Usine à gaz]

Bonjour à tous
S'il s'agit de supprimer les fichiers....

Sub supprime()
    Dim Fichier As String, chemin As String
    chemin = "C:\Users\xxx\yyyy\"    ' a adapter
    If MsgBox("Attention, aucun retour possible" & vbLf & "Confirmer", 292, "Attention") = 7 Then Exit Sub
    Do While Fichier <> ""
        Fichier = Dir(chemin)
        If InStr(Fichier, "- copie") Then
            Kill chemin & Fichier
        End If
        Fichier = Dir
    Loop
End Sub

Bonsoir Jacky67,
Merci pour ce retour.
Il ne s'agit pas de les supprimer mais de les renommer.
lionel,

 

[Staple1600]

Bonjour le fil

[Pour infos]
Lionel
tu avais déjà eu le problème jadis

Autres Publié dans la discussion 'supprimer les dossiers et classeur qui ont " - copie" en fin de leurs noms'

10 Avril 2025

Bonjour à la communauté.
Perso, j'ai un petit fichier ".bat" dans la racine des dossiers, et je le lance de temps en temps.
Il est très évolutif.

@echo off
cls
erase * - copie.* /q /s /f
@echo Fin du nettoyage

Pas besoin de lancer Excel ou autre...
Denis.

Bonjour DenisHen 🙂
Merci pour ton retour.
Mais comment ça fonctionne ?
Merci,
lionel 🤪

• Usine à gaz

les solutions de l'époque doivent toujours fonctionner

(dont la mienne avec Power Shell 😉 )

 

[Usine à gaz]

Bonjour le fil

[Pour infos]
Lionel
tu avais déjà eu le problème jadis

Autres Publié dans la discussion 'supprimer les dossiers et classeur qui ont " - copie" en fin de leurs noms'

10 Avril 2025

Bonjour à la communauté.
Perso, j'ai un petit fichier ".bat" dans la racine des dossiers, et je le lance de temps en temps.
Il est très évolutif.

@echo off
cls
erase * - copie.* /q /s /f
@echo Fin du nettoyage

Pas besoin de lancer Excel ou autre...
Denis.

Bonjour DenisHen 🙂
Merci pour ton retour.
Mais comment ça fonctionne ?
Merci,
lionel 🤪

• Usine à gaz

les solutions de l'époque doivent toujours fonctionner

(dont la mienne avec Power Shell 😉 )

Bonjour JM,
Content de te lire à nouveau.

Mais il ne s'agit pas de supprimer mais de renommer les classeurs,
lionel

 

[TooFatBoy]

Je vois que ta longue absence ne t'a pas changé. 👍
Je suis toujours aussi content d'essayer de t'aider.


Bye

 

[Jacky67]

Bonsoir Jacky67,
Merci pour ce retour.
Il ne s'agit pas de les supprimer mais de les renommer.
lionel,

RE
Et pourtant, dans la demande, il est écrit 😎
Est-il possible de les supprimer ?

 

[Staple1600]

Re

@Usine à gaz

Dans un dossier, j'ai un nombre important de classeurs qui ont en fin de noms " - copie"
Est-il possible de les supprimer ?

Ton premier message pouvait prêter à confusion.
Au moins que ce soit pour supprimer ou renommer, tu auras désormais moult solutions 😉
Mais si dans ton dossier, tu as les originaux, Windows bronchera normalement.
Exemple: si tu as test.xlsx et test_copie.xlsx et que tu veuilles renommer test_copie.xlsx en test.xslx, normalement Windows affichera
un message de ce type

 

[Usine à gaz]

Re

@Usine à gaz

Ton premier message pouvait prêter à confusion.
Au moins que ce soit pour supprimer ou renommer, tu auras désormais moult solutions 😉
Mais si dans ton dossier, tu as les originaux, Windows bronchera normalement.
Exemple: si tu as test.xlsx et test_copie.xlsx et que tu veuilles renommer test_copie.xlsx en test.xslx, normalement Windows affichera
un message de ce type
Regarde la pièce jointe 1222138

Re JM 😉
Tu as raison, je vais renommer le fil.
Et merci pour tes explications et conseils.
Bonne fin de journée,
lionel,

 

[Usine à gaz]

RE
Et pourtant, dans la demande, il est écrit 😎
Est-il possible de les supprimer ?

Re Jacky,

Mon titre de fil n'était pas clair.
Suite au signalement de JM Staple1600
Je l'ai renommé.
lionel 🤪

 

[job75]

Bonsoir Lionel, le fil,

Normalement quand on crée la copie d'un fichier le nom est suivi de " - Copie" avec une majuscule.

Et il peut y avoir plusieurs copies successives donc :

Sub Epurer_Noms_Fichiers()
Dim chemin$, fso As Object, f As Object, nom$
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Sélectionnez un dossier"
    If .Show = False Then End
    chemin = .SelectedItems(1) & "\"
End With
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each f In fso.getFolder(chemin).Files
    nom = f.Name
    Name chemin & nom As chemin & Replace(Replace(nom, " - copie", ""), " - Copie", "")
Next
MsgBox "Epurage terminé"
End Sub

A+