XL 2010 double clic barre de titre

[cajuba]

Bonjour,
J'ai un fichier qui au démarrage modifie l'affichage normal, bloque la touche ECHAP et le clique droit sur la feuille TEST
J'ai récupéré les codes sur le net, si modifs à apporter n'hésitez pas ….

Je voudrais que lorsqu'on clique 2 fois dans la barre de titre, l'affichage de démarrage ne se modifie pas

J'ai également un bouton "Ecran normal " qui remet l'écran à la normal
et un bouton "écran au démarrage"qui ne fonctionne pas (si vous avez une idée, je prends)
Merci de votre aide

 

[cajuba]

Rien à faire
- ouverture fichier 1
- clic sur lien fichier 2
- quitter fichier 2
- ECHAP
--> Modification visualisation écran et ouverture de fichier 2
J'ai déréglé qqch avec toutes les manip ECHAP ?
Ce qui est aussi bizarre, pourquoi dans le lien hypertexte pour le fichier 2, il met FICHIER%202.xlsm au lieu de Fichier 2.xlsm (jamais vu ça) ?

 

[fanch55]

Salut, la fonction initiale de la touche Escape dans Excel est Undo .
La dernière action effectuée étant la fermeture du fichier 2, cette fermeture est annulée ....
Si vous ne mettez pas le .onkey dans le Fichier 2, l'escape du Fichier 1 est maintenu, le fichier 2 ne sera plus ré-ouvert ...

Un lien Hypertext se conforme à l'encodage Web universel où l'espace est remplacé par son code %20 . Ceci ne nuit pas à l’exécution correcte de la demande .

 

[patricktoulon]

Bonsoir @fanch55 , @cajuba
c'est bizarre chez moi ça ne le fait pas quand le 2 est fermé il est fermé et la touche ne le ré ouvre pas

 

[fanch55]

En fait, je pense que .onkey conserve la dernière proc qu'on y a mis et sûrement son origine.
Je l'ai vérifié en changeant son nom dans le Fichier 2 et en y mettant un stop .
Ce fichier 2 étant fermé, j'ai fait escape dans le fichier 1 et j'ai basculé tout de suite dans la Proc du Fichier 2 .... Assez logique ...

Pour contrer cela, il faut modifier la proc fermeture du fichier 2 en restaurant le Onkey initial :

Sub Fermeture()
    Application.OnKey "{ESC}", "'FICHIER 1.xlsm'!keyvide"
    ThisWorkbook.Close SaveChanges:=False
End Sub

 

[cajuba]

Merci de vous être penché sur mon problème
Je testerai ça demain car plus d'ordi sous la main...
Bonne soirée

 

[patricktoulon]

bonsoir tout les deux
quand je pense qu'avec ceci plus besoins de s'occuper de touche ou menu ou quoi que ce soit
un bouton dans la feuille ou ce même code dans une sub (la même pour les deux modes )
et roulement de tambour SANS API!!!!!! SANS DISPLAYFULLSCREEN !!!!!

Private Sub CommandButton2_Click()

    With ActiveWindow
        .DisplayHeadings = Not .DisplayHeadings
        .DisplayWorkbookTabs = Not .DisplayWorkbookTabs
        .DisplayVerticalScrollBar = Not .DisplayVerticalScrollBar
        .DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar
    End With

    With Application
        .DisplayStatusBar = Not .DisplayStatusBar
        .DisplayFormulaBar = Not .DisplayFormulaBar
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & IIf(CommandBars("Ribbon").Visible, "false", "true") & ")"  'voila comment on vire le ruban
        etat = CommandBars("Ribbon").Visible
        .WindowState = xlMaximized
        w = .Width: h = .Height
        .WindowState = xlNormal
        .Width = IIf(etat, 600, w): .Height = IIf(etat, 500, h + 12): .Left = 0: .Top = IIf(etat, 0, -21)
    End With
CommandButton2.Caption = Array("plein ecran", "Window")(Abs(Not etat))
End Sub

LOL.....

 

[cajuba]

Un grand MERCI à #patricktoulon et #Fanch55 pour leur aide précieuse. Mon projet à vu le jour, et d'autres suivront sur la même base.
Trop forts tous les 2
Et j'ai surtout appris beaucoup de choses