[VBA-E]Insertion d'un objet Word

**casse.gueule** · 27/03/2006, 19h52

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SfJ5Rpw8** · 28/03/2006, 08h31

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casse.gueule** · 28/03/2006, 20h36

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

Envoyé par bbil

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jmfmarques** · 28/03/2006, 20h50

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 !