Réduire le ruban à la fermeture d'Excel 2007 (NON RESOLU)

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion JBARBE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
JBARBE

JBARBE

XLDnaute Barbatruc
Bonjour à tous,

J'ai un problème à la fermeture de mon fichier sous Excel 2007 que je n'ai pas à l'ouverture !

J'utilise la macro suivante qui ne fonctionne qu'une fois sur deux !!!!


Code: 
'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
 
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0

Si vous avez une solution je suis preneur !!

Merci à l'avance !
 
Dernière édition:
Trier par date Trier par votes
Re : Réduire le ruban à la fermeture d'Excel 2007

Bonjour Jbarbe

Je ne comprend pas trop ton problème.

Tu veux fermer Excel et ne plus avoir le ruban quand tu l'ouvres à nouveau?

Sinon tu as le raccourci: Ctrl+F1 pour le faire comme tu l'as dit. Avec un fichier .xlam, cela pourrait peut-être le faire.
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007

Pour l'ouverture, d'Excel cette macro avec Worksheet_Open efface le ruban convenablement !

Pour la fermeture, cette macro devant réactiver le ruban ne le fait malheureusement qu'une fois sur deux!

Je ne veux pas le faire manuellement ( CTRL+F1) puisqu'une macro peut le faire !

De là mon problème !!!!
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007

Voici la macro entière !

Code: 
Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
Sub Masquer_Afficher_Ruban()
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
 
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    
End Sub
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007 (RESOLU)

J'ai résolu le problème en quittant Excel et en laissant ainsi le ruban présenté !

Mais lorsque je veux quitter le programme (Application.Quit) le ruban ne s'active pas !

Voici la macro !

Code: 
Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
    
Sub Quitter_Excel()
Application.ScreenUpdating = False
'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
Sheets("Tableau_de_bord").Select
    ActiveWorkbook.Save
    ThisWorkbook.Close
Application.ScreenUpdating = True
End Sub

    
Sub Quitter()
Application.ScreenUpdating = False
'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Sheets("Tableau_de_bord").Select
    ActiveWorkbook.Save
    Application.Quit
Application.ScreenUpdating = True
End Sub

David peux-tu m'expliquer ce que tu me suggères avec un exemple !!! Merci !
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007 (NON RESOLU)

Re
David peux-tu m'expliquer ce que tu me suggères avec un exemple !!! Merci !
Cliquez pour agrandir...
Si tu ne veux pas avoir le ruban à l'ouverture d'Excel :
Code: 
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Ne pas oublier de l'afficher avant la fermeture du classeur :
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Si tu veux le résultat inverse, et bien...tu inverses (mais je ne comprends pas trop l'intérêt).

Ceci-dit, ma question reste d'actualité : quel est l'intérêt de passer par des API dans ce cas ?
Autrement dit, les API utilisées dans tes macros ont-elles un comportement différent que ce que je te propose ou le résultat est-il le même ?

Perso, comme je suis en version 64 bits d'Office 2010, les API telles que présentées dans ton code ne peuvent fonctionner et comme j'ai la flemme de les modifier pour les rendre compatibles juste pour tester, je préfère poser la question.
A+
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007 (NON RESOLU)

David ta macro ne simule pas la commande CTRL + F1 et pose problème pour la macro (Sub Quitter_Excel())!

par contre pour (Sub Quitter()) c'est OK !

Mais je souhaite s'il le faut pouvoir utiliser la commande CTRL+F1 manuellement lors de ma saisie !

Merci de ton aide !
 
Vote positif 0 Vote négatif
Re : Réduire le ruban à la fermeture d'Excel 2007 (NON RESOLU)

Re
David ta macro ne simule pas la commande CTRL + F1 et pose problème pour la macro (Sub Quitter_Excel())!
Cliquez pour agrandir...
Ok.
Je ne suis pas fan des sendkeys mais là pourquoi pas

Application.SendKeys "^{F1}"
Cliquez pour agrandir...
Pour info, sur mon ordinateur, Application.SendKeys "^{F1}" ouvre l'aide d'Excel et bloque mon pavé numérique, mais n'a aucune action sur le Ruban (Excel 2010 version 64 bits).
A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
JBARBE
  • Question Question
Simulation de CTRL + F1 avec macro
Réponses
5
Affichages
3 K
Modeste geedee
Modeste geedee
libellule85
  • Question Question
Réduire le Ruban que sur une feuille à l'ouverture du classeur : est ce possible ??
Réponses
9
Affichages
2 K
libellule85
libellule85
R
  • Question Question
Alerte email à la fermeture du fichier ssi modifications [RESOLU]
Réponses
6
Affichages
1 K
pyfux
P
J
  • Question Question
Xl 2007 reduire le ruban au demarrage d'un classeur
Réponses
11
Affichages
6 K
jimmy59940
J
B
  • Question Question
Gestion du ruban
Réponses
0
Affichages
1 K
boniteprobtp
B
P
  • Question Question
Verrouiller cellules remplies à la fermeture
Réponses
7
Affichages
2 K
jasol
J
X
  • Question Question
vérifier la fin d'ouverture d'un programme externe
Réponses
11
Affichages
2 K
XL_Luc
X
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
E
  • Question Question
Définier un son à la fermeture d'un classeur
Réponses
2
Affichages
884
Ewan
E
E
  • Question Question
Jouer un son à la sortie d'Excel ...
Réponses
0
Affichages
975
Ewan
E
Retour