Ouverture de fichier automatique si case coché
r
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.