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.

[SfJ5Rpw8]

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

pour une image :

Code :

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

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...

[demis]

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

[ced600]

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.

[wape]

Bonjour,

Essaye ceci :

Code :

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

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

[demis]

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

Merci pour tout
Demis