Macro de sauvegarde Excel
Optic
Messages postés
3
Date d'inscription
Statut
Membre
-
LePierre Messages postés 249 Statut Membre -
LePierre Messages postés 249 Statut Membre -
Bonjour à tous,
Débutant sur VBA,
Je suis à la recherche d'une macro qui:
-Crée une copie d'un classeur excel dans le repertoire d'origine
-Sans passer par la fenêtre "enregistrer sous"
-renomme le fichier en fonction du mois selectionné dans une fenêtre qui s'afficherai pendant le déroulement de la macro
-enregistre le mois selectionné dans une cellule de mon classeur!
Je sais que je demande beaucoup mais si au moins vous auriez la solution pour les 3 premiers points.
J'ai vu plein de choses trés interessantes dans les autres questions mais ca ne correspond pas à ça, et quand je fais des "montages" d'extraits de macros, ca ne focntionne pas non plus (débutant!)
d'avance, merci à tous pour votre aide.
BIZ @+
Débutant sur VBA,
Je suis à la recherche d'une macro qui:
-Crée une copie d'un classeur excel dans le repertoire d'origine
-Sans passer par la fenêtre "enregistrer sous"
-renomme le fichier en fonction du mois selectionné dans une fenêtre qui s'afficherai pendant le déroulement de la macro
-enregistre le mois selectionné dans une cellule de mon classeur!
Je sais que je demande beaucoup mais si au moins vous auriez la solution pour les 3 premiers points.
J'ai vu plein de choses trés interessantes dans les autres questions mais ca ne correspond pas à ça, et quand je fais des "montages" d'extraits de macros, ca ne focntionne pas non plus (débutant!)
d'avance, merci à tous pour votre aide.
BIZ @+
Configuration: Windows XP sp2 Excel 2003
1 réponse
-
bonjour
voici une solution à tes questions :
j'ai supposé que le fichier à copier c'est le fichier en cours.
Recontacte moi si tu souhaites des précisions.
A plus
Sub Enregistrer()
ScreenUpdating = False
Chemin = ActiveWorkbook.Path
FichierSource = ActiveWorkbook.FullName
Fichier = ActiveWorkbook.Name
Fichier = Left(Fichier, Len(Fichier) - 4)
Message = "Entrez une valeur comprise entre 1 et 12"
Title = "Saisie du mois"
Defaut = Month(Date)
Do
Mois = InputBox(Message, Title, Defaut)
Loop Until Mois > 0 And Mois < 13
ActiveWorkbook.SaveAs Filename:=Chemin & "\Copie_" & Fichier & Mois & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open Filename:=FichierSource
Cells(1, 2).Value = Mois
Windows("Copie_" & Fichier & Mois & ".xls").Activate
ActiveWindow.Close
ScreenUpdating = True
End Sub
