Discussion :

[rikbaldarn]

Bonjour à tous,

Je chercher à partir d'un fichier Excel, à modifier un fichier Word en changeant quelques données et en l'enregistrant sous un nom différent. La première étape (changement de données) est ok. Le problème est quand je veux enregistrer sous le document Word ainsi modifié. D'une part j'ai la boite de dialogue Enregistrer Sous qui s'ouvre (en mentionnant TOTO.docx), et d'autre part j'ai une erreur 4198 sur Excel. sur la ligne SaveAs... Je souhaite à enregistrer sous le doc sans contrôle et sans manipulation, pour pouvoir passer au suivant.

Quelqu'un aurait une idée ?

Merci d'avance

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
Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    strReplace = Cells(4, 1).Value
 
    Set strFichier = objWord.Documents.Open("C:\TOTO.docx")
    objWord.Selection.Find.ClearFormatting
    objWord.Selection.Find.Replacement.ClearFormatting
    With objWord.Selection.Find
        .Text = "<NOM1>"
        .Replacement.Text = strReplace
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    objWord.Selection.Find.Execute Replace:=2
 
    'MsgBox ActiveDocument.Name
    With ActiveDocument
        .SaveAs Filename:="C:\TEST.docx"
        .Save
        .Close
    End With
 
    'objWord.ActiveDocument.Close
    objWord.Quit
    Set objWord = Nothing

[Promethee25]

Bonjour,

Tu as une variable objet correspondant à ton fichier; pourquoi ne l'utilises-tu pas?

Code :

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

1
2
    With strFichier
        .SaveAs Filename:="C:\TEST.docx"

[rikbaldarn]

C'est vrai. Mais j'ai toujours les 2 mêmes problème : boite de dialogue et erreur 4198

Merci pour la réponse rapide !

[clementmarcotte]

Bonjour,

Bonjour à tous,

Je chercher à partir d'un fichier Excel, à modifier un fichier Word en changeant quelques données et en l'enregistrant sous un nom différent. La première étape (changement de données) est ok. Le problème est quand je veux enregistrer sous le document Word ainsi modifié. D'une part j'ai la boite de dialogue Enregistrer Sous qui s'ouvre (en mentionnant TOTO.docx), et d'autre part j'ai une erreur 4198 sur Excel. sur la ligne SaveAs... Je souhaite à enregistrer sous le doc sans contrôle et sans manipulation, pour pouvoir passer au suivant.

Quelqu'un aurait une idée ?

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
    'MsgBox ActiveDocument.Name
    With ActiveDocument
        .SaveAs Filename:="C:\TEST.docx"
        .Save
        .Close
    End With
 
    'objWord.ActiveDocument.Close
    objWord.Quit
    Set objWord = Nothing

À première vue, mais sans tester, tu fais croire à Excel que c'est lui qui doit enregistrer un activedocument, alors que l'activedocument doit être enregistré par Word.

Essaie comme cela

Code :

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

1
2
3
4
5
With objWord.ActiveDocument
        .SaveAs Filename:="C:\TEST.docx"
        .Save
        .Close
    End With

[rikbaldarn]

RESOLU !

Après un essai sur un autre poste, je n'ai pas eu ce problème du tout.
J'ai finalement trouvé que mon souci venait du complément Word "abDocs Word Addin" (installé par défaut sur mon portable Acer). Une simple désactivation de ce complément, et tout fonctionne à merveille.

Merci à tous