Discussion :

[Marc31]

Bonjour,

J'aimerais savoir si on peut modifier plusieurs noms de fichier word en vba.
Par exemple j'ai 37 fichiers word avec un nom du genre:
- Aigrefeuille_novembre13
- Aussonne_novembre13
- Blagnac_novembre13
- Colomiers_novembre13
- etc....37 fois

Et je souhaite modifier le nom des fichiers sans avoir à modifier chacun des fichiers manuellement.
Au final, je veux que le nom des fichiers word deviennent:
- Aigrefeuille_decembre13
- Aussonne_decembre13
- Blagnac_decembre13
- Colomiers_decembre13
Pour les 37 fichiers.....

Bonne journée

[Marc-L]

Bonjour,

certainement …

Mais encore une fois, il y a un forum dédié pour Word !

[Marc31]

Et oui mais je travaille sur excel, en passant par des userform pour faire ça donc c'est pour cela que je viens sur le forum excel....

[Marc-L]

Et pourquoi ne pas monter directement ta procédure et l'Userform dans Word, m'enfin ?‼

[defluc]

Code :

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

Name Chemin & "Aigrefeuille_novembre13" As Chemin & "Aigrefeuille_decembre13"

[Marc31]

Oui c'est vrai mais je dois inconsciement avoir une préference pour excel....désolé

Alors j'ai essayé du faire du code mais je suis pas doué....

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
22
23
24
25
26
27
28
29
30
31
32
Private Sub CommandButton2_Click()
For i = 1 To 3
 
            Set WordApp = CreateObject("word.application")
 
            WordApp.Visible = False   'mettre False pour garder Word masqué
 
        If i = 1 Then
 
        ElseIf i = 2 Then
 
                newname = "Aucamville13"
 
            Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "C:\Users\Desktop\Convert_word_pdf\Essai4\Doc_word4\Aucamville13.doc")
 
            ActiveDocument.SaveAs Filename:="C:\Users\Desktop\Convert_word_pdf\Essai4\Doc_word4\" & newname & ".doc", FileFormat:=wdFormatDocument97
 
            ElseIf i = 3 Then
 
                    newname = "Aussonne13"
 
            Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\Aussonne13.doc")
 
            ActiveDocument.SaveAs Filename:="C:\Users\Desktop\Convert_word_pdf\Essai4\Doc_word4\" & newname & ".doc", FileFormat:=wdFormatDocument97
 
         End If
 
             WordApp.Quit
 
             Next i
 
End Sub

[Invité]

je commence à me poser les mêmes question que Marc, le nom de tes fichiers sont dans des cellules Excel.

tes doc à renommer ce font sur la base d'un modèle, ou sont déjà existant sur ton disque dur. dans ton poste tu ouvre une doc et tu l'enregistre sous alors que le renommage ce fait très bien avec FSO.

[Marc-L]

Et même sans FSO, et c'est peut-être plus rapide ‼

[Marc31]

Non le nom des fichiers ne sont pas dans excel.
Mes fichiers se trouvent dans un dossier, il y a plusieurs fichier word du style:
-Aussonne_Novembre13.doc
- Aigrefeuille_Novembre13.doc
- Blagnac_Novembre13.doc
- etc....

J'ai plus de 60 fichiers word à renommer comme ceci:
- Aussonne_Decembre13.doc
- Aigrefeuille_Decembre13.doc
- Blagnac_Decembre13.doc
- etc....

J'aimerais automatiser pour eviter de le faire à la main...

[Marc-L]

Donc consulter l'aide et l'exemple de la fonction Dir et de l'instruction Name …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

un fichier VBCSRIPT [.VBS] le ferait sans problème plus d'Excel Word et autre un double click sur le ficher et ça marche!

[Marc-L]

Franchement, pour renommer des fichiers d'un répertoire,
je l'effectue directement avec l'Invite de commandes en une seule ligne …

[Marc31]

Ah je suis preneur, comment vous faites avec l'invite de cmd???

[Marc-L]

ren /? pour obtenir l'aide …

Si par exemple les fichiers sont dans le dossier D:\Docs Word :

ren "D:\Docs Word\*novembre.doc*" "*decembre.doc*" …

[Marc31]

Merci je vais faire comme ça en attendant de trouver plus pratique....

[Invité]

Merci je vais faire comme ça en attendant de trouver plus pratique....

pourtant Marc t'as donné la solution!

Code :

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

shell ren "D:\Docs Word\*novembre.doc*"  "decembre.doc*"

[Marc31]

Oui c'est vrai que la solution est bien mais il faut tout ecrire on ne peut pas faire de copier coller donc c'est pas trop pratique

[defluc]

Et si tu veux absolument le faire à partir d'un bouton de formulaire comme dans ton exemple :

Code :

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

1
2
3
Private Sub CommandButton2_Click()
  Shell "command.com /c ren ""D:\Docs Word\*novembre.doc*"" ""*decembre.doc*"""
End Sub

[Invité]

Oui c'est vrai que la solution est bien mais il faut tout ecrire on ne peut pas faire de copier coller donc c'est pas trop pratique

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Fichier As String
Fichier = Dir("D:\Docs Word\*novembre.doc*")
While Fichier <> ""
    Shell "ren " & Chr(34) & "D:\Docs Word\" & Fichier & Chr(34) & " " & Chr(34) & Replace(Fichier, "novembre", "decembre") & Chr(34)
    Fichier = Dir
Wend
End Sub

[Marc31]

Merci pour les tentatives mais il me marque fichier introuvable et surligne cette ligne :Shell "ren " & Chr(34) & "D:\Docs Word\" & Fichier & Chr(34) & " " & Chr(34) & Replace(Fichier, "novembre", "decembre") & Chr(34