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.
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.
Marsh Posté le 28-03-2006 à 08:55:47
Bonjour
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.
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.