Je désirerais ouvrir une bibliothèque d’image à partir d’une macro VB sur Excel pour pouvoir insérer une image.
 
Avec le code suivant j’arrive à ouvrir le fichier image mais je n’ai pas la possibilité avec le bouton « INSERER », d’insérer l’image (désolé pour la répétition   ).
 
Dim MyAppId As Double
MyAppId = Shell("C:\windows\explorer.exe C:\Documents and Settings\Fraisage", 1)
 
Merci par avance pour votre aide

1

Qu'appelle tu pars "bouton Insérer " ?

Dans Excel ou Word, tu fais : Insertion/Image/A partir du fichier et là tu tombe sur une fenêtre insérer une image qui contient les photos à insérer (exemple : mes images). Là tu as la possibilité de choisir l'image et de cliquer sur un bouton insérer. On ne peut pas comme sur word la faire glisser pour l'insérer directement sur la page, il faut passer par le fameux bouton "insérer". Moi je pensais passer par l'intermédiaire de cette fenêtre insérer si c'est possible, mais si une autre solution existe pourquoi pas !!!! :-)

Bon cette option te permet d'insérer une image dans word.
Tu peux modifier le nom du fichier via une interface.
Pour insérer le fichier, le code est le suivant :

(pour plus d infos dans VBA tu fait "F2" et tu cherches 'Selection.InlineShapes.AddPicture' ou MP)