Discussion :

[stargates]

Bonjour,



Comment masquer au départ de l'application toutes les feuilles.(vba)




une idée merci

[Drost]

Yop'
Tu dois mettre cela dans this workbook :

Private Sub Workbook_Open() que cela s'applique avant l'ouverture

sheets().visible = true or false ou Application.visible si tu souhaite cacher excel...

Par contre je ne sais pas si il ne faut pas au moins une feuille de visible dans le fichier^^

tchuss

[Invité]

Bonjour Stargates,

Comme le dit Drost vous pouvez soit dans ThisWorkbook soit dans un module, créer une procédure :

Code :

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

1
2
3
Private Sub Workbook_Open()
 
ActiveWindow.DisplayWorkbookTabs = False

Toutes les feuilles seront masquées et vous pourrez remettre la valeur = True dans une procédure qui ferme l'application.

Mais c'est par exemple sur Excel 2000 et il y a des années que je n'ai pas utilisé 97.

Donc vérifier la compatibilité.

Ne pas oublier qu'il suffit d'ouvrir Excel puis Fichier, Ouvrir et appuyer sur la touche Shift pour que le code ne s'exécute pas.

[stargates]

pour Jacques Jean,

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub Workbook_Open()
 
Application.ActiveWindow.DisplayWorkbookTabs = False
 
End Sub

Il me retourne une erreur

Run time error '91'
Object variable or with block variable not set


Pour drost

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub Workbook_Open()
Sheets().Visible = False
 
 
 
End Sub

Run time error '1004'
Method visible of object sheets failed

voilà