Discussion :

[SebastienM]

Bonjour à toutes et à tous,

Je cherche désespérément à intégrer un document Office dans une cellule Excel via une macro.
L'idée est de reproduire la série de commande Insertion / Objet / Créer à partir du fichier / Afficher sous forme d'icône.

Aussi ma question est la suivante : est-ce possible d'afficher directement ce menu paramétré automatiquement via une macro VBA ? Si oui comment ?
Alternativement, existe t-il un contrôle VB qui reproduirait ce comportement ?

Merci d'avance de vos réponses.

[EDIT] : Désolé je 'navais pas vu que j'avais posté dans le mauvais forum. Merci de déplacer ce message dans le forum "Excel VBA"

[ouisansdoute]

Bonjour,

As-tu essayé l'enregistrement automatique ?

[SebastienM]

Hello !

Dis m'en plus

[SebastienM]

J'ai trouvé une partie de la réponse à l'adresse suivante :
http://www.ozgrid.com/forum/showthread.php?t=67104

Je mettrai en résolu lorsque j'aurai établi le code complet

[ouisansdoute]

L'enregistrement automatique permet de créer automatiquement des macros en faisant les manipulations que l'on souhaite automatiser.
Cela permet ensuite d'aller voir le code créé et de l'optimiser.

Pour enregistrer une macro :
1- Menu Outil/Macro/Nouvelle macro
2 - Faire les opérations à automatiser
3 - Menu/Outil/macro/arrêter l'enregistrement

Puis aller modifier la macro dans l'éditeur VBA.

Pour ton problème le code suivant peut fonctionner

Code :

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

1
2
3
4
5
6
7
Sub Inserer_Sous_Icone()
Dim fichier As String
fichier = Application.GetOpenFilename("Fichier TXT à traiter , *.txt") 'Choix du fichier à insérer
    ActiveSheet.OLEObjects.Add(Filename:=fichier, Link:= _
        False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Program Files\Office 97\Office\excel.exe", IconIndex:=0,  IconLabel:=fichier).Select ' attribution de l'icone et de son texte
End Sub

(Faire un enregistrement automatique avant te permettra de connaître le chemin de l'icône sur ton poste)

[SebastienM]

Hello !

Merci de ton code, ça correspond à ce que j'avais trouvé ; en revanche est-ce que tu saurais si il est possible de mettre une icone personalisée sur l'objet OLE.
Par exemple pour mettre une icone Word...

Merci !

[Edit] j'ai réussi en créant le code suivant :

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
vFile = Application.GetOpenFilename("All Files,*.doc;*.xls;*.ppt", Title:="Sélectionnez le fichier à joindre")
 
    If LCase(vFile) = "faux" Then Exit Sub
 
    ' On récupère le nom du programme (pour l'icone) en fonction de l'extension
    Select Case (LCase(Right(vFile, 3)))
        Case "ppt"
            iconProg = "\POWERPNT.EXE"
        Case "xls"
            iconProg = "\EXCEL.EXE"
        Case "doc"
            iconProg = "\WINWORD.EXE"
    End Select
 
    ActiveSheet.OLEObjects.Add fileName:=vFile, Link:=False, DisplayAsIcon:=True, IconLabel:="", IconIndex:=1, IconFileName:=Application.Path & iconProg

Le souci c'est que l'icone est vraiment toute petite... moi je voudrai qu'elle remplisse totalement le carré. Est-ce possible ?