ImageBox, chemin d'accès image introuvable

Bonjour,

J'essai à mes heures perdues de développer une petite application qui me sera utile dans l'entreprise où je suis apprentis.

J'utilise donc tous les éléments nécessaires et notamment les ImageBox...

Celles-ci m'apportent un peu de difficulté sur l'utilisation...

J'ai tenté pas mal de chose, et le code qui buguait le moins était celui-ci :

Private Sub Image1_Click()
With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
       TextBox1.Text = .SelectedItems(1)
End With
If TextBox1.Value <> "" Then
    Dim Fen, ImageX As StdPicture
    ChDir Textbox1.value
    Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")
    Set ImageX = LoadPicture(Fen)
    Set Image1.Picture = ImageX
End If
End Sub

Lorsque je clique sur mon cadre d'image, j'ouvre l'explorer de dossiers, lorsque j'ai sélectionné mon fichier, il écrit le chemin d'accès dans le textbox1 puis les lignes d'après sont censées utiliser ce chemin d'accès pour afficher l'image dans l'imagebox... Mais à chaque fois, j'ai le droit à un "Chemin d'accès introuvable". Même en bidouillant ou en mettant un chemin existant, rien ne fonctionne. Alors je sèche un peu.

Voici un exemple en fichier joint.

J'espère recueillir autant d'aide sur le forum comme vous l'avez fait plusieurs fois auparavant

Cordialement,

Jule

Bonsoir Jules, bonsoir le forum,

Avec la ligne ci-dessous tu récupères le chemin complet + le nom du fichier

TextBox1.Text = .SelectedItems(1)

du coup, la ligne :

ChDir Textbox1.value

plante à cause du nom du fichier.

Je ne sais pas, avec ton code, récupérer uniquement le chemin d'accès alors je te propose une bidouille pas très jolie avec :

Private Sub Image1_Click()
Dim DB As Byte 'déclare la variable BD (dernier Bloc)
Dim DM As String 'déclare la variable DM (Dernier Mot)
Dim LDM As Byte 'déclare la variable LDM (Longueur du Dernier Mot)
Dim Fen, ImageX As StdPicture

With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Show
    TextBox1.Value = .SelectedItems(1)
End With
DB = UBound(Split(TextBox1.Text, "\")) 'définit le dernier bloc entre le séparateur "\"
DM = Split(TextBox1.Text, "\")(DB) 'définit le dernier mot (le nom du fichier)
LDM = Len(DM) 'définit la longueur du dernier mot
If TextBox1.Value <> "" Then
    ChDir Left(TextBox1.Value, Len(TextBox1.Text) - LDM) 'définit le dossier courant
    Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")
    Set ImageX = LoadPicture(Fen)
    Set Image1.Picture = ImageX
End If
End Sub

Bonsoir ThauThème,

Pour le coup, aucun message d'erreur, mais l'image ne s'affiche toujours pas et il me demande deux fois de choisir l'image.

Merci de ton aide,

Jule

Bonsoir Jules, bonsoir le forum,

Oui j'avais remarqué aussi mais comme je t'ai dit, je ne comprends pas le code que tu utilises.

Pourquoi, vu que tu as le chemin complet (avec le nom du fichier), ne demandes-tu pas d'insérer directement TextBox1.Value

avec :

Set ImageX = LoadPicture(TextBox1.Value)
Set Image1.Picture=ImageX

Bonjour,

Car en utilisant la textbox, cela ne fonctionne toujours pas :/

Je up ce topic car cela ne fonctionne toujours pas

Mon code est maintenant le suivant :

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If fd.SelectedItems.Count > 0 Then
MsgBox fd.SelectedItems(1)
Image1.Picture = LoadPicture(fd.SelectedItems(1))
End If
Set fd = Nothing

Sauf qu'un message s'ouvre et me dit "fichier introuvable" au moment de charger l'image dans l'ImageBox...

Re-up , je n'y arrive toujours pas... Après avoir essayé une multitude de codes, toujours rien...