Private Sub CommandButton1_Click()
Dim chemin As String, Fichier As String
chemin = "J:\MarcylEtoile\DGIndust\Batiment T5\T5-Services Communs\Commandes_aux_SC\EXPEDITION T5\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Sheets("visualiser expedition").Copy
Fichier = "Expédition_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & ".xls" 'Pour la sauvegarde du fichier expedition en automatique
ActiveWorkbook.SaveAs chemin & Fichier
ActiveWorkbook.Close 1
MsgBox "Votre fichier a été enregistré sous " & chemin & Fichier, , "Enregistré"
Feuil2.Range("B3:B7,B10:B14,B17:B19,D3:M13").Clear Contents
Feuil2.Range("D17") = ""
feuil1.select
End Sub