Private Sub CommandButton1_Click()
On Error GoTo fin 'en cas d'erreur on quitte la macro
'tu risques de devoir ajouter
Workbooks.Open Filename:="F:\Documents\nomdufichier.xlsx"
Sheets("Feuil1").Select 'nom de la feuille qu'ouvre ce bouton
UserForm1.Hide 'masque l'userform
ActiveSheet.PrintPreview 'lance l'impression
fin:
Unload Me 'ferme l'userform
End Sub
Private Sub CommandButton1_Click()
On Error GoTo fin 'en cas d'erreur on quitte la macro
'tu risques de devoir ajouter
Workbooks.Open Filename:="F:\Documents\nomdufichier.xlsx"
Sheets("Feuil1").Select 'nom de la feuille qu'ouvre ce bouton
UserForm1.Hide 'masque l'userform
ActiveSheet.PrintPreview 'lance l'impression
fin:
Unload Me 'ferme l'userform
End Sub