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.