Sub Save_test()
'Enregistrement des différentes feuilles
Dim chemin$
', Nomdossier$
chemin = "\\srvsauvegard\sces_eco\Commun\Commande alimentaire\"
Nomdossier = "Commande SEM " & Sheets("Epicerie").Range("B2").Value & " " & Sheets("Epicerie").Range("C2").Value & " " & Sheets("Epicerie").Range("D2").Value & " " & Sheets("Epicerie").Range("E2").Value & " " & Sheets("Epicerie").Range("F2").Value & " " & Sheets("Epicerie").Range("G2").Value
'Vérifie si le dossier existe, s'il existe, ne fait rien, sinon le créer
If Dir(chemin & Nomdossier, vbDirectory) = "" Then MkDir chemin & Nomdossier
'Enregistre chaque feuille dans le nouveau dossier
Sheets("Epicerie").Copy
ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Epicerie" & ".xlsx"
Sheets("Epicerie").DrawingObjects.Delete
Workbooks("Commande Epicerie.xlsx").Save
ActiveWorkbook.Close
Sheets("Boissons").Copy
ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Boissons" & ".xlsx"
ActiveWorkbook.Close
Sheets("Produits diet").Copy
ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Produits Diet" & ".xlsx"
ActiveWorkbook.Close
ThisWorkbook.Close savechanges:=False
End sub