Ouvrir Word à partir d'Excel

Ouvrir Word à partir d'Excel

Ouvrir Word à partir de Excel

Sub ouvrir_word()
Set ww = CreateObject("word.application")
ww.Visible = True
End Sub

CreateObject ("word.application") crée une nouvelle occurrence de l’objet Word Application

On appelle cette application ww

ww.Visible = True permet de visualiser Word (sinon, Word fonctionnerait en tâche de fond invisible)

Sub ouvrir_word()
Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add
ww.Selection.typetext "truc"
End Sub

La macro ouvre Word, ajoute un nouveau document dans Word (ww.documents.Add) et y inscrit "truc"

(Pour les programmes complexes, il est préférable de faire précéder le programme de Dim ww As Word Application et de créer une référence à la bibliothèque d’objets de Word par Outil / Références).