Récupérer Path depuis image1

Bonjour/Bonsoir tout le monde,

Je bloque sur un problème, il faudrait que je récupère l'adresse (Path) de l'image chargé dans l'image1 de mon USF. Voilà mon code pour charger l'image:

Private Sub CommandButton2_Click()
Dim pic As Picture
Dim Fichier As Variant

ChDir ("C:\Users\")
Fichier = Application.GetOpenFilename("Images (*.jpg),*.jpg")

If Fichier = False Then
MsgBox "Aucun fichier n'a été sélectionné"
Exit Sub
End If
Image1.Picture = LoadPicture(Fichier)
End Sub

Le mieux serait pouvoir enregistre ce Path dans une variable pour que je puisse l'utiliser dans la suite de mon code, mais est-ce possible?

Ou alors est-ce possible d'écrire l'adresse de l'image séléctionnée grace au GetOpenFileName dans un textbox pour la récupérer par la suite?

Merci d'avance à tout le monde et bonne soirée (ou journée selon quand vous lisez tout cela!)

Bonjour

A tester

Dim Chemin As String

Private Sub CommandButton2_Click()
Dim pic As Picture
Dim Fichier As Variant

  ChDir ("C:\Users\")
  Fichier = Application.GetOpenFilename("Images (*.jpg),*.jpg")

  If Fichier = False Then
    MsgBox "Aucun fichier n'a été sélectionné"
    Exit Sub
  End If
  Chemin = Left(Fichier, InStrRev(Fichier, "\", -1))
  MsgBox "Le chemin : " & Chemin
  Image1.Picture = LoadPicture(Fichier)
End Sub

Merci, je me suis inspiré de ce que tu m'a donné et j'ai un petit peu bricoler aussi!

Private Sub CommandButton2_Click()
Dim pic As Picture
Dim Fichier As Variant

ChDir ("C:\Users\")
Fichier = Application.GetOpenFilename("Images (*.jpg),*.jpg")
TextBox3.Text = Fichier
If Fichier = False Then
MsgBox "Aucun fichier n'a été sélectionné"
Exit Sub
End If

Image1.Picture = LoadPicture(Fichier)
End Sub

Encore merci, tu m'as beaucoup aidé!

Bonne soirée