XL 2010 [Résolu]Ouverture de Excel sans aucune barre ni bleue, ni de titre

[Toubabou]

Bonjour à tous,
Je cherche à ouvrir un fichier excel sans aucunes barres de titre ni ruban. Dans lequel je serais malgré tout obliger de mettre un bouton de fermeture.
Ceci afin de créer un sommaire me permettant d'ouvrir d'autres fichiers.
Merci par avance,
Toubabou

 

[patricktoulon]

bonsoir

regarde ce fichier ,clique droite n'importe ou dans une des feuille et clique sur le menu fullscreen
reclique droite puis nofullscreen pour remettre en mode fenêtre

ps; c'est sans api windows!!!!)

 

[Valtrase]

Bonjour à tous,
Je cherche à ouvrir un fichier excel sans aucunes barres de titre ni ruban. Dans lequel je serais malgré tout obliger de mettre un bouton de fermeture.
Ceci afin de créer un sommaire me permettant d'ouvrir d'autres fichiers.
Merci par avance,
Toubabou

Salut le fil
En utilisant Application.DisplayFullScreen

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

 

[patricktoulon]

re
bonsoir @valtrase pas suffisant le displayfullscreen

 

[Dranreb]

Bonsoir.
Une idée: un UserForm qui fait Application.Visible = False

 

[patricktoulon]

bonjour @Dranreb
bonne idée
ou mettre le userform en plein ecran et a - caption de top
les menus seraient effectivement dans le userform
un exemple sans api

 

[Toubabou]

bonsoir

regarde ce fichier ,clique droite n'importe ou dans une des feuille et clique sur le menu fullscreen
reclique droite puis nofullscreen pour remettre en mode fenêtre

ps; c'est sans api windows!!!!)

Bonsor patricktoulon,

C'est exactement ce que je cherche, sauf que j'aurais aimé que cela ce fasse automatiquement à l'ouverture du fichier
Merci par avance

 

[patricktoulon]

re
bonjour
ben alors ??
tu lance fullscreen dans le workbook_open

 

[Valtrase]

Salut Toubabou
Tu appelles ton Userform1 dans WorkBook_Open

Private Sub Workbook_Open()
UserForm1.Show True

End Sub

 

[Toubabou]

Bonsoir à tous,
Je vous remercie pour vos réponses, mon problèmes est résolu
Merci beaucoup
Toubabou