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 ?‼

[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.

[defluc]

Code :

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

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