Renommer d'un coup une centaine de fichiers word

Bonjour

Existe t'il un moyen de renommer une série de fichier (+ de 200)?

ex:

A-2019-03-12-BlaBlaBla-Dupont Tintin-Haddock Milou

en

A-2019-03-12-Dupont Tintin-Haddock Milou

En fait effectuer juste la suppression de Blablabla dans tous les fichiers

Merci

Bonjour,

Une macro à coller dans un module standard de l'éditeur VBA Excel (accessible via ALT + F11) :

Sub RenommageSérie()

Dim fichier As String, repertoire As String, NomComplet As String
Début:
'Boîte de dialogue (choix du répertoire)
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choisir un répertoire"
    .Show
    If .SelectedItems.Count > 0 Then repertoire = .SelectedItems(1) & "\" Else GoTo Début
End With
'Boucle sur chaque fichier
fichier = Dir(repertoire, 0)
While fichier <> ""
    NomComplet = repertoire & fichier
    Name NomComplet As Replace(NomComplet, "-BlaBlaBla", "") 'Renommage
    fichier = Dir
Wend

End Sub

Bonjour et Merci pour l'aide

Bonjour,

J'imagine que la macro répond à ton besoin du coup. Pense à indiquer que le sujet est résolu !