Discussion :

[demis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[demis]

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

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

Demis

[ced600]

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 ?

[SfJ5Rpw8]

supprime la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wbExcel=appExcel.ActiveWorkbook

[demis]

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.