XL 2019 Ouverture fichier xlsx dans dossier nom variable.

Hello le forum,

J'ai un souci d'ouverture de fichier via inputbox dans le quel je demande à l'utilisateur de renseigner un N° ID dossier à 6 chiffres..
Via macro, en amont, Je génère un dossier nommer "Commande de volet en Kit N°" + un numéro comportant 6 chiffres (qui est un numéro de commande que je nomme variable dans la macro).
Dans ce dossier, toujours via macro, j'enregistre un fichier excel en xlsx qui s'appel "Commande de volet en Kit N°" + variable (le numéro de commande) + la date + l'heure au moment de la création.
Je souhaiterai que quand l'utilisateur entre son numéro de commande, le fichier excel comportant le numéro de commande s'ouvre.
La macro pointe bien sur le bon dossier mais pas sur le bon fichier.
Une ame charitable pourrait elle me venir en aide svp.

Ci dessous mon code.

Sub OuvertureDeFichier()

Dim MonApplication As Object
Dim Part, MonFichier As String
Set MonApplication = CreateObject("Shell.Application")

Refaire:
variable = InputBox("Merci de renseigner votre ID dossier svp", "ID")
Select Case variable
Case Is = vbCancel
Exit Sub
Case Is = vbOK
If variable = "" Or variable > 999999 Then 'marche pas = si différent de 6 chiffres...

MsgBox "Veuillez recommencer l'opération avec un nombre à 6 chiffres svp", vbExclamation
GoTo Refaire
End If
End Select

On Error GoTo OuvertureFichierErreur

Chemin = "C:\Users\Steph\Desktop" & "\" & "Commande de volet en Kit N° " & variable
Part = "Commande de volet en Kit N°" & " " & variable * & ".xlsx" 'ICI CA COINCE !
MonFichier = Dir("Chemin & " \ " & Part")
MonApplication.Open (MonFichier)
Set MonApplication = Nothing
OuvertureFichierErreur:
Set MonApplication = Nothing
MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub