Ouvrir LE document word

Gllou06 · 26 Octobre 2016

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 · 26 Octobre 2016

Bonsoir à tous

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

Code:

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

Gllou06 · 27 Octobre 2016

Staple1600 à dit:
Bonsoir à tous

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

Code:

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

Gllou06 · 27 Octobre 2016

Staple1600 à dit:
Bonsoir à tous

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

Code:

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

Ouvrir LE document word

Gllou06

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Gllou06

XLDnaute Nouveau

Gllou06

XLDnaute Nouveau

Discussions similaires

Ouvrir LE document word

Gllou06

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Gllou06

XLDnaute Nouveau

Gllou06

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency