Bonjour,
Je ne trouve pas le code permettant de donner la possibilité à l'utilisateur d'aller cher une image sur l'ordinateur.

Par exemple:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim objFeuille As Worksheet, objShape As Shape
 
    Set objFeuille = ActiveSheet
    Set objShape = objFeuille.Shapes.AddPicture("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\Collines.jpg", msoFalse, msoCTrue, 100, 100, 70, 70)
Permet d'insérer une seule image, comment faire pour ouvrir la fenêtre de navigation svp?