Discussion :

[Jeanvaljean44]

Salut le forum

Petite question pratique : je souhaite à l'ouverture de mon fichier EXCEL contenant mes macros, cacher toutes mes feuilles.

Cependant j'ai le contenu d'une cellule (d'une feuille cachée) à tester pour activer le reste de mon programme.

En utilisant ceci je ne peux pas tester ma cellule

Code :

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

1
2
3
4
5
6
Public Sub Workbook_Open()
 
    ActiveWindow.Visible = False
    Call LancementFabrication
 
End Sub

Merci pour vos suggestions...

@+ JeanValjean

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Workbook_Open()
 
    Worksheets("TaFeuille").visible = False 'Nomme ta feuille
    Application.ScreenUpdating = false
    Worksheets("TaFeuille").visible = true
    Call LancementFabrication
    Worksheets("TaFeuille").visible = False 'Nomme ta feuille
    Application.ScreenUpdating = True
 
End Sub

Mais il me semble bien qu'on peut parfaitement travailler sur une feuille masquée... Je dois me tromper.

[Singular]

...
Mais il me semble bien qu'on peut parfaitement travailler sur une feuille masquée... Je dois me tromper.

Main non... tu ne te trompes pas voyons!

[ouskel'n'or]

Merci Singular, j'avais la flemme de tester un truc que j'ai fais des XXX ennes de fois... Mais bon, Jeanvaljean avait l'air dans la misère...

[Bib0ucH]

Si Si j'ai essayer de travailler sur une feuille masuquée,=> erreur de compilation. Pour cacher les information, j'ai fait réapparaitre une autre feuille devant

[ouskel'n'or]

As-tu testé la solution que je t'ai donnée ?
Je pense que le pb provient surtout parce qu'Excel n'apprécie pas que tu le laisses tout nu sans au moins une feuille affichée. Ta solution ne règle le pb que parce qu'ainsi Excel est content... (je suppose)

[Jeanvaljean44]

Salut à tous,

Je viens, de mon côté, d'appliquer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Workbook_Open()
 
 
    Worksheets("PiecesAFabriquer").Visible = False
    Worksheets("OrdreFabrication").Visible = False
 
 
    Application.ScreenUpdating = False
 
 
    Worksheets("PiecesAFabriquer").Visible = True     
    Call LancementFabrication
 
End Sub

Pour la première feuille pas de pbs, en revanche pour fermer la dernière feuille : plantouille

Sinon au début j'utilisais la commande suivante :

Code :

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

ActiveWindow.Visible = False

Seul souci : tester ma cellule...

En tous cas merci pour votre collaboration...on se sent d'un coup moins seul.

@+Jeanvaljean