bonjour,
je desire a partir d'Excel importer des fichiers excel sous forme d'icone dans word dans un signet
Est ce possible ?
Dans l'onglet "Base" j'aile chemin du fichier dans la cellule B4
Je desire l'importer dans le signet "tutu" de mon fichier word sous forme icone
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Dim AppWord As Word.Application Set AppWord = New Word.Application Application.DisplayAlerts = True AppWord.ShowMe AppWord.Visible = True ad = "C:\Temp\test.docx" ad1 = "test.docx" ' AppWord.Documents.Open ad Windows(ad1).Activate ActiveSheet.OLEObjects(Filename:= "C:\temp\tutu.docx", Link:=False, DisplayAsIcon:=True, IconFileName:= "C:\Windows\Installer\{90150000-0011-0000-0000-0000000FF1CE}\wordicon.exe", IconIndex:=0, IconLabel:= "tutu.docx").Select AppWord.ActiveDocument.Bookmarks("tata").PasteSpecial End SubMembre de méthode ou de données introuvable
Partager