Ouvrir un fichier dans un même dossier

Bonjour à tous,

dans une userform j'ai une textbox qui me donne le nom d'un fichier image, en cliquant sur un comandbuton l'mage s'ouvre avec paint.

en utilisant le chemin complet du dossier cela fonctionne bien. mais en utilisant ThisWorkbook.Path cela ne fonctionne pas

chemin d'acces inytrouvable

voici ma commande

Private Sub CommandButton4_Click()
Dim NomImage As String
Dim CheminImage As String
'ChDir ActiveWorkbook.Path
' Récupérez le nom de l'image à partir userform
NomImage = TextBox4

' le chemin complet de l'image = fonctionne
CheminImage = "C:\Users\Standard\Documents\00 DOSSIER SODETRAV\PLAN SCOLAIRES & LIGNES\" & NomImage & ".jpg"

' le chemin avec thisworkbook

CheminImage = "ThisWorkbook.Path\" & NomImage & ".jpg"

' Ouverture de l''image
Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & Chr(34) & CheminImage & Chr(34), 1

End Sub

merci pour l'aide

Au lieu de :

CheminImage = "ThisWorkbook.Path\" & NomImage & ".jpg"

essayez ceci :

CheminImage = ThisWorkbook.Path & "\" & NomImage & ".jpg"

Merci pour la solution aussi rapide.

cela fonctionne très bien

Meilleurs salutations

Bon vent et à bientôt.