Discussion :

[retraite83]

Bonjour,

j'ai une macro "Macro" dans un classeur "C1"qui fonctionne très bien, en particulier elle ouvre un classeur "C2"

Je veux maintenant appeler cette macro à la fermeture de mon classeur "C1"dans la procédure "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
j'ai donc codé dans cette procédure :

Code :

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

1
2
 
Call module4.Macro

Le pb est que dans aussi dans cette procédure à la fin :

Code :

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

ActiveWorkbook.Close savechanges:=True

pour enregistrer et fermer sans intervention de l'utilisateur

Du coup le close réappelle une seconde fois "Private Sub Workbook_BeforeClose(Cancel As Boolean)" et ça coince

[Philippe Tulliez]

Bonjour,
Soit tu revois la logique de tes procédures soit tu prévois un argument booléen à la procédure nommée Macro du Module4 permettant ainsi de fermer ou pas le classeur

[retraite83]

Oui, j'en suis arrivé aussi à cette conclusion, en fait je vois comme solution faire :

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
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
 
'définir un argument (surement booléen) à une valeur 1
 
If argument = 1  then
Call module4.Macro
Else
End If
argument = 0 ' pour ne pas ré-exécuter Macro lors du close déclencher par "ActiveWorkbook.Close savechanges:=True"
 
...
ActiveWorkbook.Close savechanges:=True
End Sub

Mais aucune idée pour l'instant pour coder ça

En plus cela ne me parait pas très clean comme logique

PS : en retirant

Code :

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

ActiveWorkbook.Close savechanges:=True

cela marche bien évidemment, mais j'ai le message invitant à enregistrer ou pas le classeur, ce que je veux éviter

[Philippe Tulliez]

Bonjour,

cela marche bien évidemment, mais j'ai le message invitant à enregistrer ou pas le classeur, ce que je veux éviter

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Close SaveChanges:=False
End Sub

[retraite83]

Je me suis mal exprimé :

dans :

Code :

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

je veux exécuter ma macro "Macro" (module4)

puis fermer le classeur en forçant l'enregistrement et sans que l'utilisateur ait le message lui demandant d'enregistrer ou non le classeur d'où:

Code :

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

ActiveWorkbook.Close savechanges:=True

Mais ce close apparemment réexécute

Code :

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

et du coup "Macro"

[Philippe Tulliez]

Bonjour,
Si j'ai compris ta question

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Static c As Integer
  c = c + 1
  If c = 1 Then
     Module4.Macro
     ThisWorkbook.Close SaveChanges:=True
  End If
End Sub