OVH Cloud OVH Cloud

codes vba

2 réponses
Avatar
testou
bonsoir,

J'ai ce code vba dans mon this work book:


Private Sub Workbook_BeforeClose(Cancel As Boolean)



Sheets("Feuil1").Visible = True

For Each sht In ActiveWorkbook.Sheets

If sht.Name <> "Feuil1" Then

sht.Visible = xlVeryHidden
End If
Next sht

et sur chaque bouton de commande de mes feuilles je ferme le classeur via ce
bouton de commande, il me demande d'enregistrer j'enregistre et mes feuilles
ouvertes sont bien masqué, cette procedure s'applique bien, mais tant en
tant, cette procedure ne s'execute pas et laisse mes onglet affiché.
quel en est la cause?

j'ai remarqué que monclasseur quand il se ferme, met un peu plus de temps
que d'habitude.

est ce normal?

merci de votre aide

2 réponses

Avatar
Patrick Fredin
Bonjour,

Est-ce que quelque part dans un code quelconque du classeur tu aurais mis...

Application.EnableEvents = False

Dans ce cas, les événements futurs ne sont pas traités, ce qui pourrais être
la cause de ton problème.

--
Patrick

"testou" wrote in message
news:
bonsoir,

J'ai ce code vba dans mon this work book:


Private Sub Workbook_BeforeClose(Cancel As Boolean)



Sheets("Feuil1").Visible = True

For Each sht In ActiveWorkbook.Sheets

If sht.Name <> "Feuil1" Then

sht.Visible = xlVeryHidden
End If
Next sht

et sur chaque bouton de commande de mes feuilles je ferme le classeur via
ce
bouton de commande, il me demande d'enregistrer j'enregistre et mes
feuilles
ouvertes sont bien masqué, cette procedure s'applique bien, mais tant en
tant, cette procedure ne s'execute pas et laisse mes onglet affiché.
quel en est la cause?

j'ai remarqué que monclasseur quand il se ferme, met un peu plus de temps
que d'habitude.

est ce normal?

merci de votre aide




Avatar
testou
effectivement dans le private sub de ma feuille 1 j'ai
Application.EnableEvents = False

mais c'est pour le bon déroulement de mon code

dit moi si je met dans mes bouton de commandes qui me permmet de quitter la
commande
au debut du code
Application.EnableEvents = True

est ce que ca peut resoudre le problème.

merci
"Patrick Fredin" wrote:

Bonjour,

Est-ce que quelque part dans un code quelconque du classeur tu aurais mis...

Application.EnableEvents = False

Dans ce cas, les événements futurs ne sont pas traités, ce qui pourrais être
la cause de ton problème.

--
Patrick

"testou" wrote in message
news:
bonsoir,

J'ai ce code vba dans mon this work book:


Private Sub Workbook_BeforeClose(Cancel As Boolean)



Sheets("Feuil1").Visible = True

For Each sht In ActiveWorkbook.Sheets

If sht.Name <> "Feuil1" Then

sht.Visible = xlVeryHidden
End If
Next sht

et sur chaque bouton de commande de mes feuilles je ferme le classeur via
ce
bouton de commande, il me demande d'enregistrer j'enregistre et mes
feuilles
ouvertes sont bien masqué, cette procedure s'applique bien, mais tant en
tant, cette procedure ne s'execute pas et laisse mes onglet affiché.
quel en est la cause?

j'ai remarqué que monclasseur quand il se ferme, met un peu plus de temps
que d'habitude.

est ce normal?

merci de votre aide