Ouvrir LE document word

[Gllou06]

Bonjour

Ma macro ci-jointe fonctionne mais à chaque lancement, une "document2" s'ouvre par dessus celui qui m'intéresse. Que fais-je comme erreur ou quel code me manque-t-il pour n'ouvrir que celui qui est appelé ?
Merci pour votre aide.
Cordialement.

Sub IMP_Document()
Sheets("Activité").Activate

'Déclaration des variables
Set wApp = CreateObject("word.Application")
Set oDoc = wApp.Documents.Add(ThisWorkbook.Path & "\" & "DOCAUTO01.doc")
'...

'Rendre Word Visible
wApp.Visible = True

'Active l'application Word
Application.ActivateMicrosoftApp xlMicrosoftWord

End Sub​

 

[Staple1600]

Bonsoir à tous

Pour ouvrir, c'est plutôt this way, non ?

Sub a()
'ouvrir un fichier Word existant
With CreateObject("word.Application")
.Documents.Open ThisWorkbook.Path & "\" & "DOCAUTO01.doc"
.Visible = True
End With
End Sub

 

[Gllou06]

Bonsoir à tous

Pour ouvrir, c'est plutôt this way, non ?

Sub a()
'ouvrir un fichier Word existant
With CreateObject("word.Application")
.Documents.Open ThisWorkbook.Path & "\" & "DOCAUTO01.doc"
.Visible = True
End With
End Sub

 

[Gllou06]

Bonsoir à tous

Pour ouvrir, c'est plutôt this way, non ?

Sub a()
'ouvrir un fichier Word existant
With CreateObject("word.Application")
.Documents.Open ThisWorkbook.Path & "\" & "DOCAUTO01.doc"
.Visible = True
End With
End Sub

Merci. Ok pour ouvrir un document mais moi, je veux mettre à jour des champs. (Pardon : je n'avais pas précisé)

Sub IMP_Document()
Sheets("Activité").Activate

'Déclaration des variables
Set wApp = CreateObject("word.Application")
Set oDoc = wApp.Documents.Add(ThisWorkbook.Path & "\" & "DOCAUTO01.doc")

oDoc.Bookmarks("RefAdress1").Range.Text = ActiveWorkbook.ActiveSheet.Range("B2") 'Nom Etablissement
oDoc.Bookmarks("RefAdress2").Range.Text = ActiveWorkbook.ActiveSheet.Range("BA2") 'Civilité responsable
oDoc.Bookmarks("RefAdress3").Range.Text = ActiveWorkbook.ActiveSheet.Range("BB2") 'Nom responsable

'...

'Rendre Word Visible
wApp.Visible = True

'Active l'application Word
Application.ActivateMicrosoftApp xlMicrosoftWord

End Sub