sauvegarder une macro

Version imprimable

Bonjour,

j'ai créé une macro qui génère un fichier de sortie au format xlsm car ma macro génère du code pour ce fichier de sortie. Mon souci est que le code nouvellement créé par ma macro ne s'enregistre pas.

Mon code est le suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 'sauvegarde du fichier au format xlsm (pour pouvoir enregistrer une macro) fileOut = repOut & "ref021 " & moisReporting(1) & " vs " & moisReporting(2) & ".xlsm" wbRef021.SaveAs fileName:=fileOut, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 'mise a jour automatique de l'ecran Application.ScreenUpdating = True 'pour revenir a la configuration initiale Application.DisplayAlerts = True 'deblocage du recalcul automatique Application.Calculation = xlCalculationAutomatic 'confirmation de la mise a jour automatique des liens Application.AskToUpdateLinks = True 'affichage de la boite de dialogue MsgBox "Fin de l'exécution de la macro.", vbOKOnly, "Information"
A la fin, j'ai une boîte de dialogue qui s'affiche : voulez-vous sauvegarder les modifications ? Si je dis "oui", mon code est bien enregistré, si je réponds "non", il ne l'est pas. Savez-vous pour quelle raison j'ai cette boîte de dialogue ? Et comment ne plus l'avoir ?

Merci bcp

Bonne journée

17/09/2019, 11h10
BENNASR

Bonjour
selon votre partie de code normalement vous avez déjà désactivé la boite de dialogue avant l'opération de l'enregistrement non?
c a d passer Application.DisplayAlerts = False

Bonjour, oui tout à fait.

Voici mon code "total"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub main()
 
'ici il y a la declaration de toutes les variables
 
'calcul automatique
Application.Calculation = xlCalculationAutomatic
 
'mise a jour automatique de l'ecran
Application.ScreenUpdating = False
 
'pour ne pas avoir de boite de dialogue qui s'ouvre lors de la fermeture d'un classeur
Application.DisplayAlerts = False
 
'confirmation de la mise a jour automatique des liens
Application.AskToUpdateLinks = False
 
'ici il y a le coeur de calcul qui génère le classeur de sortie wbRef021
 
'calcul de tout le classeur
Application.CalculateFullRebuild
 
'sauvegarde du fichier au format xlsm (pour pouvoir enregistrer une macro)
fileOut = repOut & "ref021 " & moisReporting(1) & " vs " & moisReporting(2) & ".xlsm"
wbRef021.SaveAs fileName:=fileOut, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
'mise a jour automatique de l'ecran
Application.ScreenUpdating = True
 
'pour revenir a la configuration initiale
Application.DisplayAlerts = True
 
'deblocage du recalcul automatique
Application.Calculation = xlCalculationAutomatic
 
'confirmation de la mise a jour automatique des liens
Application.AskToUpdateLinks = True
 
'affichage de la boite de dialogue
MsgBox "Fin de l'exécution de la macro.", vbOKOnly, "Information"
 
End Sub