Discussion :

[sat478]

Bonjour,

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

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

Code :

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

1
2
 
Call Word_Ouvrir_document(NomFichier, True)

Dont la Sub est :

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

[SilkyRoad]

bonjour

tu peux adapter une syntaxe de ce type

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
Dim docWord As Object 'Word.Document
 
With Word_Application.Visible = Visible
 
Set docWord = Word_Application.Documents.Open _
                  (filename:=Nom_Document, _
                  ConfirmConversions:=True, _
                  ReadOnly:=False, _
                  AddToRecentFiles:=False, _
                  PasswordDocument:="", _
                  PasswordTemplate:="", _
                  Revert:=False, _
                  WritePasswordDocument:="", _
                  WritePasswordTemplate:="", _
                  Format:=wdOpenFormatAuto)
 
docWord.SaveAs "C:\leDocument.doc"

bonne soiree
michel