Problème d'insertion d'image dans un UserForm
Bonjour à toutes et tous.
Et bonne année 2020! (On est encore en Janvier...
Je vous explique mon problème:
J'ai créé un UserForm dans lequel j'insère une image.
Les images et tout ce qui concerne ce classeur sont stockés dans un même dossier .
Lorsque j'ouvre mon classeur et que je veux utiliser mon UserForm, ça buggue et j'ai le message suivant: "Erreur '53': Fichier introuvable" et, bien sur, l'image n'est pas insérée.
Par contre, si je fais tout de suite après l'ouverture du classeur une "Sauvegarde sous...", je peux utiliser le UserForm qui contient bien l'image souhaitée.
Voici le code qui me pose problème:
'Inscription des données dans la fiche d'étape.
Private Sub ComboBox1_Change()
Ligne = ComboBox1.ListIndex + 11
TextBox1 = Ws2.Range("C" & Ligne)
TextBox2 = Format(Ws2.Range("E" & Ligne), "0Km")
TextBox3 = Ws3.Range("E" & Ligne) & " " & Ws3.Range("G" & Ligne)
TextBox4 = Format(Ws2.Range("G" & Ligne), "hh:mm")
TextBox5 = Format(Ws2.Range("I" & Ligne), "0m")
TextBox6 = Format(Ws2.Range("K" & Ligne), "0m")
TextBox7 = Format(Ws2.Range("M" & Ligne), "0m")
TextBox8 = Format(Ws2.Range("O" & Ligne), "0m")
TextBox9 = Format(Ws2.Range("Q" & Ligne), "0m")
TextBox10 = Format(Ws2.Range("S" & Ligne), "0m")
Dim ChemImage, Chem_NomX, Chem_NomY, Chem_Nom1, Chem_Nom2, Nom_Image1, Nom_Image2 As String
'Indiquer le chemin du fichier image à afficher.
ChemImage = ThisWorkbook.Path
'Choix de la carte et du profil à insérer dans la fiche d'étape.
Nom_Image1 = Etapes.ComboBox1.Value
Nom_Image2 = Etapes.ComboBox1.Value
'Vérification de l'existence de la carte à ajouter.
Chem_Nom1 = Dir(ChemImage & "\" & Nom_Image1 & "C.jpg")
Chem_Nom2 = Dir(ChemImage & "\" & Nom_Image2 & "P.jpg")
'Choix de l'image de remplacement si absence de carte correspondant à l'étape sélectionnée.
Chem_NomX = ChemImage & "\" & "0Carte.jpg"
'Choix de l'image de remplacement si absence de profil correspondant à l'étape sélectionnée.
Chem_NomY = ChemImage & "\" & "0Profil.jpg"
'Ajout de la carte correspondant à l'étape sélectionnée.
If Chem_Nom1 <> "" Then
Etapes.Frame2.Picture = LoadPicture(Chem_Nom1)
Else
Etapes.Frame2.Picture = LoadPicture(Chem_NomX)
End If
'Ajout du profil correspondant à l'étape sélectionnée.
If Chem_Nom2 <> "" Then
'MsgBox ("Pas de profil disponible pour cette étape!")
Etapes.Frame3.Picture = LoadPicture(Chem_Nom2)
Else
Etapes.Frame3.Picture = LoadPicture(Chem_NomY)
End If
'Agrandissement de la carte sélectionnée.
ZoomCarte.Image1.Picture = LoadPicture(Chem_Nom1)
intTopIndex = Me.ComboBox1.TopIndex
End Sub
Ce sont les lignes surlignées qui me posent problème.
Un grand merci à tous ceux qui veulent bien se pencher sur "ce petit" problème.
Cordialement.
Bonjour,
à tester,
Etapes.Frame2.Picture = LoadPicture(ChemImage & "\" & Nom_Image1 & "C.jpg")
Etapes.Frame3.Picture = LoadPicture(ChemImage & "\" & Nom_Image2 & "P.jpg")Bonjour Isabelle.
Apparemment, tu m'as donné la solution.... Je dis apparemment, parce que j'ai de nouveau une erreur dans cette ligne:
ZoomCarte.Image1.Picture = LoadPicture(Chem_Nom1)
Un grand merci pour ton implication dans mes problèmes de Papy débutant.
Bonjour Isabelle.
Apparemment, tu m'as donné la solution.... Je dis apparemment, parce que j'ai de nouveau une erreur dans cette ligne:
ZoomCarte.Image1.Picture = LoadPicture(Chem_Nom1)
Un grand merci pour ton implication dans mes problèmes de Papy débutant.
re,
à tester,
ZoomCarte.Image1.Picture = LoadPicture(ChemImage & "\" & Nom_Image1 & "C.jpg")Bonjour Isabelle.
Un grand merci pour ton aide précieuse: tout fonctionne parfaitement.
Je m'aperçois que j'ai encore pas mal de choses à apprendre.... de quoi occuper mes longues journées de retraité!
Ce forum est vraiment une source de connaissances d'Excel.
Merci aussi à toux ceux qui se seront penché sur mes problèmes.
Cordialement.
Merci pour ce retour, au plaisir!
