XL 2010 VBA - Insérer une image

[Titi456]

Bonjour,

J'ai un code qui fonctionne très bien pour pouvoir insérer une image dans le fichier ci-joint (cliquer dans G5:K30) cependant si je reclique sur l'image et que je fais annuler sur l'explorateur de fichiers, l'image initialement insérée disparait. Je souhaiterais pouvoir la garder affichée lorsque je clique sur annuler tout en gardant la possibilité de pouvoir la remplacer si nécessaire.

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

 

[sylvanu]

Bonjour Titi,
Si on fait annulé vous chargez l'image Pict qui vaut "", d'où le souci.Je pense qu'il suffit de faire :

If Pict = False Then    'Aucune image sélectionnée
    Pict = ""
    Exit Sub
Else
    Image1.Picture = LoadPicture(Pict)
    Image1.PictureSizeMode = fmPictureSizeModeZoom
End If

Si pas d'image sélectionnée, on sort sans rien faire.

 

[Titi456]

Bonjour Sylvanu,

C'est exactement ça. Merci infiniment.