XL 2019 Incompréhension quant à l'instruction workbooks.close

TooFatBoy

XLDnaute Barbatruc

• 15 Mars 2022

• #2

bonjour,

As-tu essayé de remplacer

VB:

Workbooks("E:\Test001.xlsm").Close SaveChanges:=False

par

VB:

ActiveWorkbook.Close SaveChanges:=False

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 16 Mars 2022

• #3

Bonjour,
Oui j'avais déjà essayé cela, mais cela ne change rien hélas.
Est-ce que le fait que "before close" et "auto_close" contiennent des instructions VBA pourraient être une cause de ce souci (même si je ne les ai pas recopié dans mes fichiers de test envoyés hier).

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 16 Mars 2022

• #4

escouger à dit:

Oui j'avais déjà essayé cela, mais cela ne change rien hélas.

Cliquez pour agrandir...

Bizarre car chez moi ça résout le problème.

escouger à dit:

Est-ce que le fait que "before close" et "auto_close" contiennent des instructions VBA pourraient être une cause de ce souci (même si je ne les ai pas recopié dans mes fichiers de test envoyés hier).

Cliquez pour agrandir...

Oui.
Mais il me semble pourtant avoir vu du code hier dans ces deux procédures.

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 16 Mars 2022

• #5

Bonsoir,
Dans le fichier complet figure effectivement une macro "auto_close" et une procédure "before close", mais le fichier de test que je vous ai envoyé n'en contenait pas.
D'ailleurs cela marche effectivement bien sur ce fichier de test.

C'est en répliquant cette modification (ActiveWorkbook.Close SaveChanges:=False) sur mon fichier complet (donc avec "auto_close" et "before close") que çà ne marche plus.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 16 Mars 2022

• #6

Au temps pour moi, c'est dans le fichier __2021_Lanceur_formulaire_rando.xlsm que j'avais vu du code dans Workbook_BeforeClose et Workbook_BeforeSave.

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 17 Mars 2022

• #7

J'ai contourné l'obstacle en identifiant le cas ou le fichier se ferme lorsqu'il a été ouvert depuis le programme principal (Cvs_installer). Ainsi les 2 procédures before close et auto_close sont sans effet car commencent par un jump Xxx . Xxx est en fin de procédure
Ca marche mais c'est bien peu élégant!

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 17 Mars 2022

• #8

Bonjour,
Il est toujours intéressant d'utiliser une variable object pour manipuler les classeurs plutôt que de faire confiance à des truc comme select, sélection et autres ActiveWorkbook!

Code:

dim Test001 as Workbook
Set Test001= Workbooks.open("E:\Test001.xlsm")
Test001.Close false
Set Test001= nothing

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 17 Mars 2022

• #9

Merci pour ce conseil

 

Vote positif 0 Vote négatif