Discussion :

[ogho4326]

Je travaille dans un fichier Excel 2003.
J'avais mis dans ThisWoorbook une macro BeforeClose qui devait recopier avant fermeture les valeurs de certaines cellules de l'une des feuilles appelée Barème, dans d'autres cellules de la même feuille.

Ca marchait parfaitement.
Malheureusement mon projet s'est complexifié, et dans une des Sub, il ouvre un autre fichier, y travaille et le ferme.

Et là, BeforeClose plante car il fonctionne sur tous les fichiers à fermer, et le second n'a pas de feuille Barème. d'où, à la fermeture du second fichier : plantage = n'appartient pas à la sélection.

Est-il possible de dire dans le BeforeClose d'agir sur la feuille Barème si elle existe ? Existe-t-il une synthaxe de ce type ?

Meric de vos réponses

[Pierre Fauconnier]

Bonsoir

Il existe bien un événement d'application Private Sub App_WorkbookBeforeClose qui joue sur chaque classeur qui va être fermé, mais il nécessite un objet Application valide.

L'événement BeforeClose est un événement de classeur, donc il n'agit que sur le classeur qui le gère. A mon avis, ton problème est ailleurs. Pourrais-tu donner un bout de code?

[ogho4326]

J'avais utilisé Private Sub Workbook_BeforeClose et non Private Sub App_WorkbookBeforeClose Peut-être est ça l'erreur ?
J'avais écrit dans This Workbook

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Call copiferm
End Sub

et dans un module

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
Sub copiferm()
 
ActiveWorkbook.Unprotect Password:="truc06"
Sheets("Barème").Visible = True
Sheets("Barème").Select
ActiveSheet.Unprotect Password:="truc06"
        Range("Z11:AA20").Select
        Selection.Copy
        Range("H6:I15").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False 
ActiveSheet.Protect Password:="truc06", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Visible = False
ActiveWorkbook.Protect Password:="truc06", Structure:=True, Windows:=False      
End Sub

Et en cours d'éxécution la macro s'arrête sur l'instruction Sheets("Barème").Select Erreur = n'appartient pas à la sélection.
Ce que je vois à l'écran est une feuille d'un fichier créé, modifié et fermé par une autre macro du même projet, et qui ne comporte effectivement pas de feuille appelée Barème.
Vois-tu ce qui cloche ?

[Pierre Fauconnier]

Tu avais utilisé le bon événement. C'est la procédure appelée par la suite qui pose problème, car ThisWorkbook <> ActiveWorkbook!!

Si tu veux, via l'événement BeforeClose, travailler dans le classeur qui va être fermé, je te conseille de travailler à l'intérieur de la procédure événementielle, avec ce code, par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Unprotect Password:="truc06"
    Sheets("Barème").Unprotect Password:="truc06"
    Range("z11:aa20").Copy
    Range("h6:h15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Barème").Protect Password:="truc06", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Me.Protect Password:="truc06", Structure:=True, Windows:=False
End Sub

Reviens pour plus d'infos ou si j'avais mal compris la question

[decondelite]

J'ajoute une petite précision:
ThisWorkbook: classeur contenant le code écrit
ActiveWorkbook: classeur qui a le focus dans Excel

La plupart du temps, c'est le même classeur, mais ça ne l'est pas toujours.

[ogho4326]

Si ce n'est pas le cas, quelle est la parade ?