Charger une image

Bonjour,

Dans une application que j'écris sous Excel VBA 2007, je sélectionne une carte à partir d'une liste figurant dans un ComboBox lui même inséré dans un UserForm et je voudrais, en cliquant sur le CommandButton "Afficher la Carte", voir apparaître cette carte à l'écran. Pour ce faire, j'ai rédigé la routine ci-après. J'y ai incorporé des MsgBox pour vérifier, au stade de la conception bien sur, que ma variable "Fichier" se construit correctement. Or bien que le nom du fichier soit conforme, je n'arrive pas à passer à l'étape suivante, c'est à dire à charger et afficher le document correspondant. Ensuite, je l'effacerai... mais ce sera un autre problème !

Merci de me dire où je commets l'erreur qui fait que mon code ne fonctionne pas et que je n'arrive pas à trouver.

Private Sub CommandButton1_Click()
Dim Carte As String
Dim Chemin As String
Dim Ext As String
Dim Fichier As String
Carte = Range("E1").Value
Chemin = "E:\Personnel\Associations\Cercle de Nice\Fichiers\X.Données\Cantons\"
Ext = ".jpeg"
MsgBox Carte
MsgBox Chemin + Carte + Ext
Fichier = Chemin + Carte + Ext
Picture = LoadPicture("Fichier")
End Sub

Bonjour

Avec un fichier cela serait mieux

Ce "Picture" c'est quoi ?

Si c'est la propriété de l'userform il faut noter

Me.Picture = LoadPicture(Fichier)

Dans tous les cas ta variable Fichier ne doit pas être entre " " (guillemets )

Picture = LoadPicture(Fichier)

Bonjour,

Un grand merci à Banzai64 qui encore une fois m'a apporté la solution à mon problème.

PB