Feuille invsible si appelé simplement du module, visible si appelé dupuis Workbook_Open() ?

Version imprimable

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un truc très étrange avec l'un de mes classeurs.

Ce classeur prend des données dans 2 autres classeurs et les recopie dans plusieurs de ses pages.
Une fois cela fait, il se sauvegarde dans un répertoire précis.
Ce classeur a 4 feuille visibles et environ une dizaine invisibles.

Le code qui fait la mise à jour est la sauvegarde se trouve dans le module mdlImportation.
Si je l'exécute directement dans ce module, tout va bien, mon classeur se met à jour et se sauvegarde avec seulement ses 4 feuilles déjà visibles visibles. La dizaine d'autres restent cachées.
Si je l'exécute depuis Workbook_Open(), lors de la sauvegarde une 5 feuilles devient visible (en fait la dernière que j'ai mise à jour).

Ici le code de Workbook_Open :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Workbook_Open() If mdlVariableEnvironnement.EstAutodemarrant Then Call mdlImportation.ImporterDonnees 'ici appelle le code à exécuter à l'ouverture Application.DisplayAlerts = False Me.Close Application.DisplayAlerts = True If Application.Workbooks.Count = 1 Then Application.Quit End If End If End Sub
Ici l'instruction de sauvegarde :

Code:

Call WB_A.SaveAs(InfoFichier_Statistique.Repertoire_Nom_Extention, xlOpenXMLTemplateMacroEnabled)

où WS_A est le classeur en cours.

Si je demande si la 5ième feuille est visible au moment de la sauvegarde (wsFormule_0.Visible), Excel répond 0 soit cachée mais dans le fichier créé, elle est visible.
Et à aucun moment dans le code je ne rend cette feuille visible.

Code:

If mdlVariableEnvironnement.EstAutodemarrant Then

n'a pas d'importance, j'ai neutralisé le test et obtenue la 5iéme feuille.

Quelqu'un a-t'il déjà eu un problème semblable ? A-t'il une solution ?

A+

11/03/2019, 19h10
eriiic

Bonjour,

Tu ne mets pas la partie de code qui masque les feuilles ?
Avec un Stop au début de Private Sub Workbook_Open(), elle est visible à quel moment cette 5e feuille ?
eric
11/03/2019, 19h27
Theze

Bonjour,

As-tu fais le test sur "Workbook_Activate()" ? En utilisant éventuellement une variable pour que le code s'exécute qu'une fois ou une valeur stockée dans un nom invisible !
En sélectionnant une des 4 feuilles visibles, cela peut faire en sorte que la 5ème feuille reste invisible ?
12/03/2019, 13h02
marot_r

Citation:

Envoyé par eriiic

Bonjour,

Tu ne mets pas la partie de code qui masque les feuilles ?
Avec un Stop au début de Private Sub Workbook_Open(), elle est visible à quel moment cette 5e feuille ?
eric

Bonjour Eric.

Je n'ai pas mis le code qui masque les feuilles car il n'y en a pas. Les feuilles sont mises à jour sans jamais être affichées par des zone.pastespecial.

@Theze, suggères-tu que une fois les mises à jour terminées je sélectionnes une de mes feuilles visibles plutôt que de rester "focussé" sur ma dernière feuille même invisible ?

A+
13/03/2019, 07h25
Theze

Bonjour,

Citation:

@Theze, suggères-tu que une fois les mises à jour terminées je sélectionnes une de mes feuilles visibles plutôt que de rester "focussé" sur ma dernière feuille même invisible ?

C'est une idée à tester, la feuille 5 n'ayant plus le focus elle resterait invisible, attention, je n'ai fait aucun test, c'est juste une idée !
13/03/2019, 13h08
marot_r

OK, merci de la suggestion.

Je vais faire un test dés que possible et je vous reviens.

A+

Merci Theze ça marche !

Activer la 1ère feuille visible a résolu le problème.

Ici le code que j'ai utilisé :

Code:

1
2
3
4
5
6
7
8
9
        ' S'assure que la 1ère feuille visible est celle active
        Dim WS As Worksheet: For Each WS In WB_A.Worksheets
 
            If WS.Visible = xlSheetVisible Then
                Call AfficherZone(WS.Cells(1, 1), True)
                Exit For
            End If
 
        Next WS

où WS_A1 est le classeur en cours.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub AfficherZone(prmZone As Range, Optional prmEstToujoursAffiche As Boolean = False)
    'Affiche la zone passée en paramètre
 
    If Not prmZone Is Nothing Then
 
        If prmZone.Parent.Visible Then
 
            If prmEstToujoursAffiche Or EST_MODE_DEBUG Then
                prmZone.Parent.Parent.Activate 'Classeur
                prmZone.Parent.Activate 'Feuille
                prmZone.Select
                DoEvents
            End If
 
        End If
 
    End If
 
End Sub

Code:

Public Const EST_MODE_DEBUG As Boolean = False

Désolé du délais. J'étais sur d'autres dossiers.

A+