Macro lance word

[Spectroms]

Bonjour à tous,

J'aimerais faire une macro excel qui lors d'un clique sur un bouton lance word. Egalement qui ouvre un nouveau email vierge si on clique sur un second bouton.

Mais je ne sais comment faire !Merci davance !

PS: J'aimerais que l'ouverture de word par ce bouton lance une macro word. Dois-je donc obligatoirement réaliser un fichier word vierge qui à son lancement execute la macro (Open()). Et ainsi excel lance ce fichier ?

 

[Ashaar]

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

Cdlt.

Message édité par: Ashaar, à: 04/05/2005 12:14

 

[Ashaar]

Ashaar écrit:

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.

 

[Ashaar]

Meuhhh,
J'ai essayé d'éditer mon msg et je me suis planté... navré.

 

[Spectroms]

Bonjour Ashaar,

Je te remercie beaucoup ca va mettre très utile.
C'est vrai que pour ouvre un macro au démarrage, je pensais utiliser la procédure d'ouverture Open(), je crois mais j'aimerais pas qu'elle se lance pour tout les nouveaux document, juste quand c'est ma macro qui ouvre un nouveau document word. Enfin merci j'ai déjà un bonne élement de réponse ! 🙂

 

[Minick]

Salut,

Tu devrais arriver à ton but en utilisant ces instructions.

objWord.documents.Open 'TonDocument.doc' 'pour ouvrir un doc
objWord.Run 'TaMacro' 'pour lancer une macro

@+