Afficher une boite de dialogue Excel via une macro

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"

Bonjour,

As-tu essayé l'enregistrement automatique ?

Hello !

Dis m'en plus :)

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

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:

---

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)

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:

---

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 ?