rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Excel macro intégration fichier format icône

AYT, le lundi 17 mars 2008 à 17:26:11
Bonjour à tous,

Je voudrais créer une macro qui me permette de proposer une recherche d'un fichier à intégrer en format icône dans un document excel ou dans un document excel.
Le fichier à intégrer doit pouvoir être n'importe lequel...
Cela revient en mode manuel à aller pas plus loin sur l'arborescence suivante:
Insertion/Objet/Créer à partir du fichier/Parcourir

Je n'arrive qu'à intégrer à chaque fois le même fichier sans laisser le choix!
Pouvez-vous m'aider?

Merci d'avance
Alex
Configuration: Windows XP
Internet Explorer 6.0
Répondre à AYT  Signaler ce message aux modérateurs Aller au dernier message

1


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
Ivan-hoe, le lundi 17 mars 2008 à 19:40:48
Bonjour,
tu peux utiliser la commande suivante : Application.Dialogs(xlDialogInsertObject).Show
qui t'affiche la boîte de dialogue Insérer un objet et te permet d'aller chercher celui que tu souhaites.
(Il reste quand même à l'utilisateur à cliquer sur Créer à partir du fichier et Parcourir ...)
I.
   
Répondre à Ivan-hoe

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
AYT, le jeudi 20 mars 2008 à 11:59:27
Merci bcp pour cette réponse...
mon fichier va finalement être sous word!
Quel est l'équivalent word?
N'y a-t-il pas moyen d'atteindre directement cette fonction "Insertion/Objet/Créer à partir du fichier/Parcourir" ???

Merci d'avance

Alex
   
Répondre à AYT

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
AYT, le vendredi 21 mars 2008 à 11:28:30
Bonjour à tous...

c'est ok pour l'équivalent word...
mais je n'arrive toujours pas à écrire en VBA la suite:
c'est à dire:

- clic sur "créer à partir du fichier"
- cocher sur "afficher sous forme d'icone"
- clic sur "parcourir"

si vous avez une idée de ce qui pourrait résoudre mon problème je vous en serai très reconnaissant!

Merci d'avance

Alex
   
Répondre à AYT

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Ivan-hoe, le vendredi 21 mars 2008 à 16:40:43
Salut Alex, quelle persévérance !
Je te propose une demi-solution ci-dessous. Je dis "demi" car je ne sais pas aller chercher tous les arguments nécessaires à AddOLEObject. Mais sans doute pourras-tu compléter par toi-même.

Sub InsererObjet()

Dim Boite As FileDialog, Dim NomFichier As String

'Aller récupérer le chemin + nom du fichier avec la boîte Parcourir
Set Boite = Application.FileDialog(msoFileDialogFilePicker)
With Boite
If .Show = 0 Then Exit Sub
NomFichier = .SelectedItems.Item(1)
End With

'Insérer l'objet
Selection.InlineShapes.AddOLEObject FileName:=NomFichier, DisplayAsIcon:=True, IconLabel:=NomFichier

End Sub
   
Répondre à Ivan-hoe

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
AYT, le vendredi 21 mars 2008 à 18:29:44
Alors là... merci bcp...
il ne me reste plus qu'à trouver:
comment intégrer juste le nom du doc (et pas la totalité du chemin d'accés)!!
...et comment afficher l'icone: je crois qu'il faut passer par IconFileName et IconIndex...
je vais regarder ça!
encore merci Ivan-Hoe
   
Répondre à AYT

6


  • 2    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
eriiic, le vendredi 21 mars 2008 à 19:52:26
Bonsoir,

tu peux essayer avec sendkeys "nom_fichier.doc", true qui envoie les caractères à la fenetre en avant plan à la place de l'utilisateur.
avec peut-être qcq sendkeys "{TAB}",true avant pour activer le champ recevant le nom du fichier


eric
   
Répondre à eriiic

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Ivan-hoe, le samedi 22 mars 2008 à 12:59:32
Super tuyau, Eric, merci !
Alex, en combinant Application.Dialogs(xlDialogInsertObject).show et les SendKeys, tu arriveras à tes fins !
I.
   
Répondre à Ivan-hoe

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
AYT, le mardi 25 mars 2008 à 10:50:32
merci à vous deux...
pour ceux qui rechercherait la même chose voilà le résultat...
quand on sait, c'est d'une simplicité enfantine...
encore faut-il savoir !!!
merci bcp!!!

Sub macro1()

SendKeys "%ib{tab}f{tab}{tab}hp"

End Sub

a+
Alex
   
Répondre à AYT

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 AYT, le mardi 25 mars 2008 à 12:16:51
Pour ne pas avoir de problème lors de la création d'un bouton donnant accès à cette macro!

Sub Macro1()

SendKeys ("%")
SendKeys ("i")
SendKeys ("b")
SendKeys ("{tab}")
SendKeys ("f")
SendKeys ("{tab}")
SendKeys ("{tab}")
SendKeys ("h")
SendKeys ("p")

End Sub
   
Répondre à AYT
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger MP3Tag 2.37aMP3Tag - Mp3tag est un éditeur de Métatags (ID3 tags) pour la plupart des formats audio courants. Il est capable de renommer un grand...Catégorie: Marquage (ID3)
Licence: Freeware/gratuit
Télécharger Pack de compatibilité Microsoft Office 2007 3Pack de compatibilité Microsoft Office 2007 - En installant le pack de compatibilité pour Microsoft Office 2000, Office XP ou Office 2003, vous pouvez ouvrir, modifier et...Catégorie: Bureautique
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Vista Icons B2Vista Icons - Vista Icons contient rien d'autre que l'intégralité des icônes de Windows Vista Beta2. Pour faire face à Mac qui...Catégorie: Personnalisation
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Excel macro intégration fichier format icône »