Pb avec Excel et les objets OLE

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 :
***

Code:

---

1 2 3 4 5 6 7

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 :
***

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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

bonjour

tu peux tester

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Fichier As String ' '... ' ' Fichier = "C:\Documents and Settings\michel\le document.doc"   wsExcel.OLEObjects.Add Filename:=Fichier, _ Link:=False, DisplayAsIcon:=True, IconIndex:=0, _ IconLabel:=Fichier

---

michel

Merci de ta réponse Michel, mais cela ne fonctionne pas.

Excel s'ouvre bien, mais le fichier n'est pas inséré.

Demis

Quelle ligne de code utilises tu pour insérer le fichier ? Et tu n'y arrives pas, cela veut dire que tu as une erreur généré par le script, ou tout se passe bien, mais le fichier ne se trouve pas insérer ?

supprime la ligne

Code:

---

1 2	Set wbExcel=appExcel.ActiveWorkbook

---

J'ai essayé la suppression de la ligne, mais le résultat (inexistant) est le même.
Théoriquement avec
wsExcel.OLEObjects.Add(filename="c:\toto.doc", link = false, displayasicon = true).Select
ca devrait marcher, c'est le code qui est généré quand j'enregistre une macro dans Excel qui fait l'insertion d'un fichier.

mais c'est un jpeg où un .doc que tu veux insérer dans ton classeur excel..?

pour une image :

Code:

---

1 2 3 4 5 6 7 8

Set MonEx = CreateObject("Excel.Application") MonEx.Visible = True Set wbExcel = MonEx.Workbooks.Open("c:\tmp\test.xls") Set wsExcel=wbExcel.ActiveSheet wsExcel.Cells(2,1).select wsExcel.Pictures.Insert("c:\tmp\DSC_00012.jpg")

---

est OK...

C'est un fichier que je veux insérer. Dans mon premier message, j'expliquai que l'insertion d'un objet dans un signet de Word se faisait bien, l'insertion d'une image dans Excel se fait bien (comme tu l'indiques avec Pictures.Insert), par contre l'insertion d'un fichier ne marche pas.

merci pour votre aide

un fichier possède un format bien particulier qui dépend de son extension. Pour l'insérer il faut définir son format. A la main sous word, tu ne peut pas insérer des fichiers de façon générique.

Bonjour,

Essaye ceci :

Code:

---

wsExcel.OLEObjects.Add( , "C:\toto.doc", False, True, "C:\Program Files\Microsoft Office\office\winword.exe", 0, "C:\toto.doc").Select

---

Le chemin de "winword.exe" est éventuellement à adapter. Ce fichier est juste utilisé pour y récupérer une icône de type "Word".


wape

merci Wape,
effectivement je récupère bien un fichier word (sous forme d'image) ou un fichier texte.

Merci pour tout
Demis