Bonjour,
Je suis censé devoir insérer des fichiers dans mes documents Word et Excel à l'aide d'un code VbScript (commande dans office Insérer un Objet).
pour word avec le code suivant je n'ai aucun problème :
***
Set MonWd = CreateObject("Word.Application")
MonWd.Visible = True
MonWd.Documents.Open "c:\toto.doc"
MonWd.ActiveDocument.Bookmarks("ttt").Select
MonWd.Selection.InsertAfter chr(10)
MonWd.Selection.InlineShapes.AddOLEObject "Package","c:\test.xls", False, True, "", 0, "Fichier test"
MonWd.Selection.InsertAfter chr(10)
***
par contre avec excel j'arrive bien à insérer une image, mais pas un fichier :
***
Set MonEx = CreateObject("Excel.Application")
MonEx.Visible = True
Set wbExcel = MonEx.Workbooks.Open("c:\test.xls")
Set wbExcel=appExcel.ActiveWorkbook
Set wsExcel=wbExcel.ActiveSheet
wsExcel.Cells(2,1).Select
wsExcel.Pictures.Insert("c:\test.JPG").Select
wsExcel.Cells(20,1).Select
''marche pas'' wsExcel.Shapes.AddOLEObject(c:\toto.doc, true, true).select
''marche pas''wsExcel.OLEObjects.Add(filename="c:\toto.doc", link = false, displayasicon = true).Select
***
Merci d'avance pour votre aide.
Demis
