Enregistrement Macro
Résolu
Bonjour,
j'aimerais avoir de l'aide pour créer un bouton de commande "Enregistrement" dans un fichier modèle excel prenant en charges les macros et que lorsqu'une personne clique dessus, la macro prend la cellule ou la personne a entré son nom et la cellule de la date et demande de sauvegarder le ficheir en classeur excel prenant en charge les macros avec son nom et la date pré-inscrites.
Le but étant de faire sauver du temps à plusieurs utilisateurs et d'uniformiser le nom des fichiers qui seront sauvegardés à partir de mon modèle.
Merci par avance pour votre temps, et vos suggestions :)
Martin
j'aimerais avoir de l'aide pour créer un bouton de commande "Enregistrement" dans un fichier modèle excel prenant en charges les macros et que lorsqu'une personne clique dessus, la macro prend la cellule ou la personne a entré son nom et la cellule de la date et demande de sauvegarder le ficheir en classeur excel prenant en charge les macros avec son nom et la date pré-inscrites.
Le but étant de faire sauver du temps à plusieurs utilisateurs et d'uniformiser le nom des fichiers qui seront sauvegardés à partir de mon modèle.
Merci par avance pour votre temps, et vos suggestions :)
Martin
2 réponses
-
WOW !
merci beaucoup, c'est exactement ce que je cherchais ! :)
Martin -
Bonjour,
Ouvrez votre classeur
Ouvrir le VBA par Alt+F11
Double click gauche sur ThisWorkbook en haut a gauche
Click droit dans fenetre de droite
Copiez le code ci-dessous dans cette fenetre
Mettre le code a jour pour vos cedllules nom et date ainsi que le chemin:
disque\repertoire\
Sub Macro_Enregistrement()
Dim Nom_Fichier, Chemin, Reponse
'A definir
Chemin = "C:\............\"
'A1 et A2 a changer suivant vos besoin
Nom_Fichier = Worksheets("Feuil1").Range("A1") & Worksheets("Feuil1").Range("A2") & ".xlsm"
retval = MsgBox("Voulez- vous enregistrer ce fichier: " & Nom_Fichier & " ?", vbYesNo)
If retval = 6 Then
Reponse = "Fichier " & Nom_Fichier & " sauvegardé"
ActiveWorkbook.SaveAs Filename:=Chemin & Nom_Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
Reponse = "Fichier non sauvegardé"
End If
retval = MsgBox(Reponse)
End Sub
Creez un bouton et affectez lui cette macro
