Discussion :

[tacleur]

Bonjour à tous,

Après des heures de test, je viens vers vous.

Je souhaite modifier un texte dans une cinquantaine de fichier Word d'un répertoire.

J'ai commencé par créer une macro sous Word pour que ma macro soit appliquée à l'ensemble des fichiers.

Voici mon code :

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
 
 
Sub test2()
 
Dim Repertoire As String
'Dim wbook As Workbook
Repertoire = "C:\Users\test\Desktop\dossier test\"
 
unFichier = Dir(Repertoire & "*.docx")
While unFichier <> ""
 
    Set wbook = Workbooks.Open(Repertoire & unFichier)
    Set myRange = ActiveDocument.Content
    myRange.Find.Execute FindText:="Test 1", ReplaceWith:="Test 2", _
    Replace:=wdReplaceAll
    wbook.Close False
    unFichier = Dir
Wend
End Sub

A la ligne Set wbook j'ai une erreur 424 'objet requis
Je ne sais pas si je pars sur la bonne méthode.

Je songe donc a peut être créer un fichier Bash avec la macro.

Avez vous une idée d'où provient mon erreur de code? Que pensez vous de l'idée de réaliser celui ci sous bash?

Merci pour votre précieuse aide

[Jean-Philippe André]

Salut,

Tu fais tourner ce code sous Word ou sous Excel ?
Les classeurs partent à partir de (Excel.Application.)Workbooks si tel est le cas.

As tu coché la reference Excel ?

[tacleur]

Bonjour
Merci pour votre retour
Je fais tourner ce code sous Word.
Est ce plus facile sous Excel?

Merci à vous

[Jean-Philippe André]

Salut,

Lorsque tu pilotes une autre application que celle dans laquelle tu codes, il y a toujours des efforts à faire pour que cela soit souple.

As-tu bien ajouté la référence à Excel ?

Pour manipuler les classeurs, il faut lancer une application Excel d'abord

Code :

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

Dim xlApp as New Excel.Application

puis l'utiliser pour ouvrir tes classeurs

Code :

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

Set wbook = xlApp.Workbooks.Open(Repertoire & unFichier)

et potentiellement fermer à la fin Excel.

Code :

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

xlApp.Quit

Reste qu'avant tout cela, il faut penser à déclarer toutes tes variables pour les utiliser ensuite, c'est une règle de base en programmation

[tacleur]

Merci à vous

Je souhaite ouvrir le fichier Word , appliquer la macro et fermer Word

Comment parcourir les fichiers Word d’un dossier automatiquement ?

Merci à vous

[tacleur]

Bonjour à tous,

Je me permets de revenir vers car je n'ai pas trouvé le moyen d'appliquer une macro VBA à plusieurs fichiers word en automatique.

Merci pour votre aide,

Excellente journée,

[Canvas]

Bonsoir,

Ceci devrait marcher :

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
33
34
35
36
37
38
 
Sub RechercherRemplacer()
   Dim objDoc As Document
   Dim Dossier As String
   Dim Fichiers As String   
   Dim TxtRecherche As String
   Dim TxtRemplace As String
 
   Dossier = "C:\tmp"
   Fichiers = Dir(Dossier & "\" & "*.docx", vbNormal)
   TxtRecherche = "Test 1"
   TxtRemplace = "Test 2"
 
   While Fichiers <> ""
        Set objDoc = Documents.Open(FileName:=Dossier & "\" & Fichiers)
        With objDoc
            With Selection
                .HomeKey Unit:=wdStory
                With Selection.Find
                    .text = TxtRecherche
                    .Replacement.text = TxtRemplace
                    .Forward = True
                    .Wrap = wdFindContinue
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                End With
                Selection.Find.Execute Replace:=wdReplaceAll
            End With
            objDoc.Save
            objDoc.Close
            Fichiers = Dir()
        End With
  Wend
End Sub

[deedolith]

Bonjour à tous,

Code :

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

1
2
3
 
unFichier = Dir(Repertoire & "*.docx")
Set wbook = Workbooks.Open(Repertoire & unFichier)

Tu essaye d'ouvrir un fichier Word avec Excel, un peut normal que ca ne fonctionne pas.

De plus, soit moderne et passe plutôt par la librairie Scripting.FileSystemObject lorsque tu manipule le système de fichiers, l'instruction Dir réserve de sales surprises.

[Hugo_pack]

Salut,

Tu pourrais essayer cette version si j’ai bien compris ton besoin :
Sub test2()

Dim Repertoire As String
Dim wbook As Workbook
Dim myRange As Range

Repertoire = "C:\Users\test\Desktop\dossier test\"
unFichier = Dir(Repertoire & "*.docx")

While unFichier <> ""

Set wbook = Workbooks.Open(Repertoire & unFichier, ReadOnly:=True)
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="Test 1", ReplaceWith:="Test 2", _
Replace:=wdReplaceAll

wbook.Close False
unFichier = Dir
Wend
End Sub

Tcha