Macro lance word

Bonjour,

Pour créer un mail vierge, le code ci-dessous devrait convenir !

Sub EnvoiUnMail()
ActiveWorkbook.FollowHyperlink Address:='mailto:'
End Sub

Pour ouvrir Word :

Sub OuvrirDocWord()
Dim objWord, objDoc
On Error Resume Next
Set objWord = GetObject(, 'Word.Application')
If objWord Is Nothing Then
Set objWord = CreateObject('Word.Application')
End If
On Error GoTo 0
objWord.Visible = True
End Sub

Pour lancer une macro word..
Ben je ne me suis jamais posé la question.
Si qq sait, ça m'interesse aussi.

Cdlt.

Cliquez pour agrandir...