Discussion :

[salseropom]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[salseropom]

Bonjour, oui tout à fait.

Voici mon code "total"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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