Slt  
 
J?ai un problème qui est sûrement très simple pour vous, mais ne pratiquant VB que très rarement je block grave !  
 
Je voudrais faire une macro qui m?ouvre l?insertion d?image à partir du fichier P:\FICHPROG\Icônes outils-mandrins\Icône mandrin et une fois ouvert me laisse la main dans ce fichier pour que je puisse choisir l?image que je veux insérer.    
 
Avec les macros automatiques j?arrive à ouvrir ma bibliothèque mais je suis obligé de choisir une image pour pouvoir refermer la fenêtre du fichier et arrêter l?enregistrement de la macro automatique   --> mon but est juste d?atteindre très rapidement le fichier Icône mandrin de ma bibliothèque d?image.  
 
Pouvez-vous m?aider, merci beaucoup

c'est un fichier ou un dossier ?

c un dossier

 
tu associes ca a l'evenement click d'un bouton ou a ce que tu veux d'ailleurs...
 
Il se peut, selon ton os, que tu aies besoin de mettre les noms courts (avec les ~). pour les avoir, sous une fenetre dos tu tapes dir /X "lerepertoiredonttuveuxlenomcourt"

Merci d'avoir répondu mais ca n'a pas fonctionné --> BUG
(Le problème ne vient pas des noms courts)
La ligne MyAppId = Shell("C:\WINNT\explorer.exe P:\FICHPROG\Icônes outils-mandrins\Icône mandrin", 1)est soulignée en jaune

message de bug =
erreur d'exécution '76':
Chemin d'accès introuvable

t'es sur que ca n'est pas les noms courts ?
c quoi l'erreur ?
 
Si c'est pas les nom courts (essaie qd meme ), essaie de rajouter ca en dessous de MyAppId = ...

 
et avec les noms courts ?  

en fait quand je fais une macro automatique et que j'intègre une image, il me met ce chemin d'accès : P:\FICHPROG\Icônes outils-mandrins\Icône mandrin donc je pense que sa vient pas de là.  
Avec AppActivate MyAppId --> erreur 76 again

t'as essayé avec les noms courts ?
ca n'est pas parce que, "apparement ca peut pas etre ca !" que ca n'est pas ca...
On parle de microsoft là...

J'suis trop nul chez pas ou c le dos pour voir les ~

demarrer/executer tu tapes cmd.exe
puis dir /X P:\
puis dir /X P:\FICHPROG
puis...
 
a chaque commande il te liste le contenu du repertoire avec les noms courts, en plus des noms "normaux"

Sub Macro7()
Dim MyAppId As Double
     
  MyAppId = Shell( _
  "C:\WINNT\explorer.exe P:\FICHPROG\ICNESO~1\ICNEMA~1", 1)
AppActivate MyAppId
 
End Sub
 
Voila ce que donne le programme avec les noms courts mais sa marche pas

attend ! moi le chemin d'explorer, c'est sur windows nt4...
sur xp c'est C:\windows\explorer.exe
Pourquoi n'y avons nous pas pensé plus tot ?

Merci à toi KAROLI, ça fonctionne nickel, le jour que tu passe à Lyon, j'te paye une pint de GUINNESS