[VBA-E]Insertion d'un objet Word

Bonsoir

Je vous expose mon problème, je suis dans un classeur excel (feuille de calcul) je souhaiterai inserer un objet word et pouvoir ecrire dedans.

Code:

---

1 2 3 4 5 6

Sub feuille_word() Dim xlApp As Object ' Déclare la variable Set xlApp = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _ DisplayAsIcon:=False) xlApp.Activate End Sub

---

j'arrive bien à creer mon object word puis à l'activer mais je n'arrive pas écrire dedans.
merci pour votre aide.

tiens j'ai un peu modifié ton code .., c'est un début consulte FAQ ensuite...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub feuille_word() Dim xlAPP As Object ' Déclare la variable   Dim WdDoc As Word.Document ' il faut rajouter a réféence à microsoft word... Set xlAPP = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _ DisplayAsIcon:=False) xlAPP.Activate Set WdDoc = xlAPP.Object WdDoc.Range.InsertAfter "Et un peu de texte dans le document.." End Sub

---

Bonsoir
une autre idée où un complement qui marche
Merci de vos réponse

Citation:

---

Envoyé par bbil

tiens j'ai un peu modifié ton code .., c'est un début consulte FAQ ensuite...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub feuille_word() Dim xlAPP As Object ' Déclare la variable   Dim WdDoc As Word.Document ' il faut rajouter a réféence à microsoft word... Set xlAPP = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _ DisplayAsIcon:=False) xlAPP.Activate Set WdDoc = xlAPP.Object WdDoc.Range.InsertAfter "Et un peu de texte dans le document.." End Sub

---

---

Citation:

---

Bonsoir
une autre idée où un complement qui marche
Merci de vos réponse

---

Si celle qui t'a déjà été donnée par Bbil ne te convient pas...(et pourquoi ?) :
alors un objet Ole : Insertion==>> objet ===> Microsoft Word
Tu le mets à la taille d'affichage que tu veux et tu y écris ce que tu veux, le fermes quand tu veux, le sauvegares comme tu veux, lui affecter la macro que tu veux, etc... Tu peux même choisir un objet existant, y compris un .dot....
Ne vois rien d'autre ! :?

Citation:

---

Bonsoir
une autre idée où un complement qui marche

---

et pas sur le lacet, sinon c'est casse-gueule :!:







Désolé, j'ai pas pu résisté :lol: :lol: :lol:

Merci à tous

cela marche bien je vous remercie.

N'hésite pas à cliquer sur le bouton http://www.developpez.net/forums/ima...les/resolu.gif :merci: :wink: