Enregistrement Macro
Résolu/Fermé
A voir également:
- Enregistrement Macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Enregistrement vidéo écran - Guide
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
21 mars 2012 à 15:10
21 mars 2012 à 15:10
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
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