[VBA-E] Automation excel and SaveAs Fichier Word

Bonjour,

ma question va peut être paraître stupide...

Via un fichier Excel je créé un fichier Word via :

Code:

1
2
 
Call Word_Ouvrir_document(NomFichier, True)

Dont la Sub est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visible As Boolean)
 
Word_Création_Lien_OLE
 
With Word_Application
   .Visible = Visible
   .Documents.Open _
                  Filename:=Nom_Document, _
                  ConfirmConversions:=True, _
                  ReadOnly:=False, _
                  AddToRecentFiles:=False, _
                  PasswordDocument:="", _
                  PasswordTemplate:="", _
                  Revert:=False, _
                  WritePasswordDocument:="", _
                  WritePasswordTemplate:="", _
                  Format:=wdOpenFormatAuto
End With
 
End Sub

Ensuite j'avoue ne pas arriver à Sauvegarder le fichier Word via ActiveDocument.SaveAS.

Où est mon erreur ? Comment faire référence au fichier WOrd ouvert ?

Merci