Re : sauvegarder une feuille d'un classeur vers un dossier à creer
bonjour je viens d'essayer le code
j'ai simplifier la methode d'enregistrement en donnant le nom et la date
l'enregistrement se bien mais ne garde pas les couleur
mais j'ai une erreur d'execution 424
Dim feuilcal As Worksheet, pathMesDocuments As String, nomNewClasseur As String
'chemin d'enregitrement du fichier
pathMesDocuments = "C
OCUMENT\MOI"
'positionnement des feuilles
Set feuilcal = ThisWorkbook.Sheets("Feuil2")
'copier les cellules de la feuille
feuilcal.Copy
'coller les valeurs dans le nouveau classeur, puis les formats, puis les largeurs de colonnes
ActiveSheet.UsedRange = feuilcal.UsedRange.Value
'forcer le nom à donner au nouveau classeur
nomNewClasseur = "commande2" & " " & Format(Date, "dd mm yyyy")
'message de confirmation
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nomNewClasseur, vbYes + vbInformation, "Copie sauvegarde classeur")
'sauvegarder le classeur et le fermer
activewokbook.SaveAs pathMesDocuments & "\" & nomNewClasseur & ".xls"
ActiveWorkbook.Close False