Sheet.Visible qui ne fonctionne pas depuis UserForm.

Version imprimable

Bonsoir à tous,

J'ai un problème qui me turlupine, je ne vois vraiment pas d'où ça pourrait venir :

J'ai un classeur qui nécessite impérativement que les macros soient activées pour fonctionner, et une fois que c'est le cas, Application.Visible = False et on fait tout en UserForms...
Dans les événements Workbook_BeforeSave et WorkBook_AfterSave, j'ai respectivement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim ShActive As Worksheet Dim sheet As Worksheet Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Set ShActive = ThisWorkbook.ActiveSheet Call PageAccueil(True) End Sub Private Sub Workbook_AfterSave(ByVal Success As Boolean) Call PageAccueil(False) ShActive.Activate End Sub
Et la macro PageAccueil cache toutes les pages sauf l'accueil (page comprenant uniquement "activez les macros sinon ça marche pas"... en gros) ou les affiche toutes sauf l'accueil suivant la valeur de "Afficher".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub PageAccueil(Afficher As Boolean) Select Case Afficher Case True Sheets("Accueil").Visible = xlSheetVisible Sheets("Accueil").Activate For Each sheet In ThisWorkbook.Sheets If sheet.Name <> "Accueil" Then sheet.Visible = xlSheetVeryHidden Next sheet Case False For Each sheet In ThisWorkbook.Sheets sheet.Visible = xlSheetVisible Next sheet Sheets("Accueil").Visible = xlSheetVeryHidden End Select End Sub
Mon étonnement provient du fait que la macro fonctionne parfaitement si je fais Ctrl+S, mais quand je ferme mon userform principal qui contient un Workbook.Save, alors cela ne fonctionne pas... plus curieux encore, le code est lu comme il faut (pas à pas, voire si je remplace les sheet.visible par un msgbox, ça marche !)!
J'ai essayé de déplacer le code dans un module, de glisser des doevents, sleep, wait, Application.EnableEvents = True... Rien n'y fait.

Je rappelle juste que le code est bien lu mais les sheets ne se masquent (ni apparait, pour la cas de la sheet("Accueil") absolument pas, pas d'erreur, rien.
Du coup, si j'ouvre le fichier sur un autre PC ou si les macros ne sont pas activées par défaut, alors au lieu de tomber sur la page d'accueil, on tombe sur la dernière page active ce qui est critique pour moi car les sheets sont uniquement des bases de données...

Si vous avez une idée ou une solution, je suis très preneur !!

Merci d'avance.

Quentin

04/06/2015, 22h35
joe.levrai

Bonjour,

les feuilles ne seront jamais consultées par les utilisateurs ?

peut-on voir le contenu de ton userform via lequel tu tente de réaliser l'action ?

Salut Joe,

Le UserForm qui est supposé enclencher l'action de sauvegarde (et donc de cacher/afficher les pages) se ferme ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.EnableEvents = True If CloseMode <> 0 Then Exit Sub 'ceci évite de poser la question si je ne le ferme pas par la croix (quand je le masque pour passer sur un autre formulaire, par ex) If MsgBox("Êtes-vous sûr de vouloir quitter ?", vbYesNoCancel + vbQuestion, "Confirmation") = vbYes Then Me.Hide ThisWorkbook.Save 'Envoie bien dans le Workbook_BeforeSave et AfterSave qui lancent bien ma macro cachant/affichant les pages... sans le faire. If Workbooks.Count = 1 Then Application.Quit Else Application.Visible = True ThisWorkbook.Close False Unload Me Else Cancel = 1 End If End Sub
Mes pages ne sont pas visibles normalement par l'utilisateur, mais j'aimerais que si, si l'utilisateur a un mdp administrateur (pas encore mis en place).

Pour l'instant, mon formulaire gère les ranges de la feuille active, je vais optimiser et faire que toutes les ranges soient rattachées à une variable worksheet.

Ce n'est pas vraiment une alternative que je cherche mais plutôt à comprendre pourquoi les feuilles ne se masquent/s'affichent pas alors que le code semble bien les lire.

Resalut,

J'ai réessayé avec un formulaire tout neuf et tout vide ainsi qu'un fichier tout beau tout neuf. Constat : le même.
Le Workbook.Save déclenche les événements before et aftersave mais la feuille ne se cache pas (j'ai essayé sur plusieurs PC).

Par contre, avant de faire workbook.Save, j'appelle ma procédure pour masquer puis ensuite j'appelle celle pour afficher de nouveau et là ça marche.

En gros :

Dans le ThisWorkbook :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_AfterSave(ByVal Success As Boolean) Call Test(True) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Test(False) End Sub Sub Test(variable As Boolean) Sheets(3).Visible = variable End Sub
Dans mon formulaire :
Code:

1 2 3 4 5 6 7 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Call ThisWorkbook.Test(False) ThisWorkbook.Save Call ThisWorkbook.Test(True) End Sub
Là ça fonctionne, d'ailleurs... ce qui est ironique c'est que le ThisWorkbook.Test(False) fonctionne, puis le ThisWorkbook.Save appelle de nouveau la procédure Test via le BeforeSave sans résultat, la rappelle pour afficher la page via le AfterSave sans résultat, puis je la rappelle avec le ThisWorkbook.Test(True) qui fonctionne.

Cette solution va me servir pour l'instant mais si quelqu'un a une explication, je suis largement preneur !

bonjour,

tu quitte l'avion avant l'arrêt complet de l'appareil!

Code:

1
2
3
4
Private Sub Workbook_Open()
MonUsf.Show vbModal
ThisWorkbook.Close False
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.EnableEvents = True
If CloseMode <> 0 Then Exit Sub 'ceci évite de poser la question si je ne le ferme pas par la croix (quand je le masque pour passer sur un autre formulaire, par ex)
 
If MsgBox("Êtes-vous sûr de vouloir quitter ?", vbYesNoCancel + vbQuestion, "Confirmation") = vbYes Then
    Me.Hide
    ThisWorkbook.Save 'Envoie bien dans le Workbook_BeforeSave et AfterSave qui lancent bien ma macro cachant/affichant les pages... sans le faire.
    If Workbooks.Count = 1 Then Application.Quit Else Application.Visible = True
    Unload Me
Else
    Cancel = 1
End If
End Sub

06/06/2015, 00h01
Quentin77170

Bonsoir rdurupt,

J'aurais bien voulu faire ce genre de manip, mais ça ne peut pas fonctionner car j'ai plusieurs formulaires qui s'affichent/se masquent et s'affichent en même temps. Impossible de les utiliser en vbModal...

Et quand bien même, je n'arrive pas à comprendre pourquoi les feuilles ne se masquent pas en passant par les événements before et aftersave qui sont lus... Franchement je ne comprends pas. sheets(3).visible = false fonctionne depuis le userform ou dans un module ou autre même si la sub est appelée par le formulaire... Mais pas si elle est appelée par le beforesave via l'userform.

Surtout que la macro en question est quand même lue et peu importe ce que je lui demande (value, format, msgbox...) elle le fait, mais pas cacher les pages.

Merci quand-même pour l'idée ! :)
06/06/2015, 21h07
clementmarcotte

Bonjour,

Citation:

Envoyé par Quentin77170

Bonsoir rdurupt,

J'aurais bien voulu faire ce genre de manip, mais ça ne peut pas fonctionner car j'ai plusieurs formulaires qui s'affichent/se masquent et s'affichent en même temps. Impossible de les utiliser en vbModal...

Donc, es-tu sûr que VBA-Excel est l'outil le plus adapté pour faire tout cela ? Surtout que Visual Studio Community est gratuit, qu'il fournit un exécutable compilé, qu'il supporte Multi Document Interface, qu'il peut piloter Excel par automation et qu'il peut utiliser un classeur Excel comme source de données. Et puis même qu'avec Open XML, il peut créer des fichiers Office sans Office.

Citation:

Et quand bien même, je n'arrive pas à comprendre pourquoi les feuilles ne se masquent pas en passant par les événements before et aftersave qui sont lus... Franchement je ne comprends pas. sheets(3).visible = false fonctionne depuis le userform ou dans un module ou autre même si la sub est appelée par le formulaire... Mais pas si elle est appelée par le beforesave via l'userform.

Surtout que la macro en question est quand même lue et peu importe ce que je lui demande (value, format, msgbox...) elle le fait, mais pas cacher les pages.

Merci quand-même pour l'idée ! :)

Je n'ai pas envie de patenter une usine à gaz pour faire le test, mais je ne suis pas sûr que la feuille puisse être cachée avec :

Code:

application.screenupdating = false
06/06/2015, 22h57
Quentin77170

Bonsoir :)

Oui je suis certain qu'Excel n'est pas le meilleur moyen de réaliser cela, mais c'est l'unique façon que j'aie de faire ça au boulot, aucun exécutable ne peut être lancé à moins d'être autorisé au niveau du groupe (Thales) donc autant dire que pour mon besoin, je vais pas me prendre la tête. En plus, c'est un petit outil que je développe moi-même pour mes propres besoins mais qui, je sais, intéresse déjà quelques autres personnes... Plutôt une aide qu'un vrai logiciel.

Par contre je ne sais pas pourquoi tu as parlé du ScreenUpdating ? Je ne l'utilise même pas car de toute façon je suis en Application.Visible = False

Dans tous les cas, application visible ou non, sur mon fichier ou sur un fichier qu'on crée en 2 minutes avec les infos que j'ai données plus haut (où je parlais de la macro "test")... C'est flagrant : la page se masque quand l'utilisateur enregistre, mais pas quand l'utilisateur ferme l'userform, ce qui entraîne la sauvegarde et lit bien la macro "test" sans pour autant masquer la page.

Je ne comprends pas, j'ai bien des solutions pour résoudre ce problème et masquer/afficher quand-même les pages, je l'ai d'ailleurs fait... Mais j'aimerais savoir si quelqu'un sait pourquoi ça fait ça.
06/06/2015, 23h31
joe.levrai

Bonjour,

tu as essayé en ré affichant ton classeur durant le processus ?
dans ta procédure Afficher par exemple, à gérer deux fois
ça semble être le plus transparent pour l'utilisateur, si le souci est bien lié à l'affichage
07/06/2015, 16h38
Quentin77170

Salut joe,

Oui, en fait c'est comme ça que je vois qu'il ne fait rien... J'ai d'abord remarqué cela à l'ouverture du fichier sauvé et je ne suis pas tombé sur la page d'accueil forçant l'activation des macros, mais je suis tombé sur une des pages me servant de base de données... Ce qui m'embête pas mal !

Après, en enlevant le Application.Visible = True, j'ai vu que les pages ne s'affichaient/masquaient même pas, ni en lecture complète du code, ni en pas à pas. Ce qui est vraiment curieux car ça ne semble jamais le faire depuis un UserForm ou du moins depuis un événement UserForm_QueryClose. Bizarre.

Mais ça devrait le faire chez tout le monde, au moins sous Windows 7/XP et Office 2010 puisque moi sur plusieurs PC, que ce soit au bureau ou à la maison j'ai toujours ce problème.
Bon, comme j'ai dit j'ai facilement trouvé une solution, mais je n'arrive pas à comprendre pourquoi les pages ne veulent pas se masquer. :)