Bernard62
XLDnaute Nouveau
Bonjour,
je désirerai à partir d'une feuille (p.e. Menu) et par une macro, créer une nouvelle feuille (p.e. Liste) dans laquelle s'incorpore une page Word...
ou
Comment incorporer une feuille Word active dans une feuille Excel ?
Pouvez vous me donner le code de la macro pour cela.
ou la solution pour l' "incorporation"?
Merci
SUITE/RAJOUT
J'ai trouvé une macro mais pas parfaite... Y a-t-il une erreur ?
==
Sub RajoutFeuilleWord()
' Macro enregistrée le 17/05/2013
ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
DisplayAsIcon:=False).Activate
Range("A1").Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
End Sub
==
je ne peux pas entrer dans la page Word créée. Quelle correction effectuer ?
ou dans un autre pgm sous XL je rentre dans la page mais si je veux sauvegarder la modif j'ai ce msg d'erreur:
Merci
je désirerai à partir d'une feuille (p.e. Menu) et par une macro, créer une nouvelle feuille (p.e. Liste) dans laquelle s'incorpore une page Word...
ou
Comment incorporer une feuille Word active dans une feuille Excel ?
Pouvez vous me donner le code de la macro pour cela.
ou la solution pour l' "incorporation"?
Merci
SUITE/RAJOUT
J'ai trouvé une macro mais pas parfaite... Y a-t-il une erreur ?
==
Sub RajoutFeuilleWord()
' Macro enregistrée le 17/05/2013
ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
DisplayAsIcon:=False).Activate
Range("A1").Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
End Sub
==
je ne peux pas entrer dans la page Word créée. Quelle correction effectuer ?
ou dans un autre pgm sous XL je rentre dans la page mais si je veux sauvegarder la modif j'ai ce msg d'erreur:
Merci
Pièces jointes
Dernière édition: