Ouverture de fichier automatique si case coché

Bonjours a tous,

A la réception d'un mail sur Outlook 2010 j'enregistre la pièces jointe de ce mail puis ouvre une useform. Sur cette useform il y a une petite case a cacher qui, je souhaiterais, me permette d'ouvrir le et les fichier précédemment enregistré quand je clique sur ok si celle ci est coché. mais je ne connais en aucun la formule d'ouverte de fichier.

Je vous laisse avec une capture d'écran et le code déja écrit.

Private Sub CommandButton1_Click()

End Sub

Private Sub CheckBox1_Click()

End Sub

Private Sub CommandButton2_Click()

 'Si CheckBox1 est coché, alors ...
 If CheckBox1.Value = True Then

    'Sinon'
    Else
        'Ferme la fenêtre en cour'
        Unload Me
    End If

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ToggleButton1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Sub PJ_RapportProduction(Item As Outlook.MailItem)

    Set attachs = Item.Attachments
    For Each attach In attachs
        file = attach.FileName
        attach.SaveAsFile "C:\Users\BLANCHMAINT\Documents\Blanchisserie\Administratif\Suivi production\" & file
    Next
    ReceptionRapportProduction.Show

End Sub

Merci d'avance de votre aide.