Discussion :

[ESVBA]

bonjour le forum,

le code de la faq fonctionne bien... tout seul.

Dans mon programme, il ne fontionne pas s'il est placé dans "Workbook_Open" même en ayant placé un "DoEvents" après l'appel à la procédure.

Placé dans "Workbook_BeforeClose", il lance l'aide ! (et ne se réduit pas).

Quelle est la solution ? (si elle existe sous 2007)

Merci.

ESVBA

[patricktoulon]

bonjour esvba


Dis moi où tu as trouvé ce code qui marche tout seul.

J'avais répondu à ce sujet je ne sais plus pour qui justement dans une boucle

muni d'un doevents

maintenant une autre solution serai de renvoyer en fin de macro qui serait responsable de sa réapparition à la macro suivante
ensuite il faut condamner la touche esc

dans un module standard

Code :

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

1
2
3
4
5
6
7
sub plus_de_ruban ()
application.screenupdating=false
if application.displayfullscreen=false then 
 application.displayfullscreen=true
else
 application.displayfullscreen=false 
end sub

au plaisir

[SilkyRoad]

Bonjour,

Je n'ai pas rencontré de souci en testant l'ouverture et la fermeture du classeur. Par contre les procédures ne doivent pas être déclenchées depuis l'éditeur de macros :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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)
 
 
Private Sub Workbook_Open()
    '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
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
 
    Range("A1").Select
    DoEvents
 
    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

bonne soirée
michel

[ESVBA]

dis moi ou tu a trouver ce code qui marche tout seul

quand la greffe à pris, ça roule presque tout seul

Là, trop complexe pour moi :

maintenant une autre solution serai de renvoyer en fin de macro qui serai responsable de sa reaparition a la macro suivante ensuite il faut condaner la touche esc

Pour le code ok, mais j'aurais souhaité garder le ruban. Je m'en servirais si je n'ai pas d'autres solutions.

Merci.

ESVBA

[ESVBA]

voila c'est le code que j'ai utilisé mais dans un module. Ca ne fonctionne pas et je ne comprends pas pourquoi.

JE l'ai refait sur un autre classeur qui a globalement les mêmes instructions et dans le même ordre : ça ne fonctionne pas.

Voici le code dans le module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
 
Sub ReduitRuban()
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
 
    Range("A1").Select
    DoEvents
 
    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

Dans "ThisWorkBook" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call ReduitRuban
 
    '---
    Application.ScreenUpdating = False
    'si les macros ont été autorisées à l'ouverture, la feuille "Accueil" est cachée
    'et les autres feuilles visibles.
    'Il faut re-préparer le classeur pour l'éventuelle mauvaise ouverture suivante
    'si elles n'ont pas été autorisées de toutes façons cette macro ne
    'se lance pas ...
    Sheets("Accueil").Visible = xlSheetVisible 'Ici on laisse une feuille visible donc c'est toujours OK
    For Each f In Application.Worksheets
        If UCase$(f.Name) <> "ACCUEIL" Then
            f.Visible = xlSheetVeryHidden
        End If
    Next
End Sub
 
Private Sub Workbook_Open()
    '--- Message d'accueil pour forcer l'activation des macros
    '  Attention subtilité
    'Ne pas faire du style ="ACCCUEIL" et caché la feuille car on se retrouve avec
    'un classeur sans feuille et Excel n'apprécie pas.
    Application.ScreenUpdating = False
    Dim f As Worksheet
    For Each f In Application.Worksheets
        If UCase$(f.Name) <> "ACCUEIL" Then
            f.Visible = xlSheetVisible
        End If
    Next
    Sheets("Accueil").Visible = xlSheetVeryHidden
    ' Affiche le traitement
    Application.ScreenUpdating = True
 
    '---
    Call ReduitRuban
 
    '--- Mise à jour de la version
    Call VersionActualise
 
    '--- Affiche l'écran SplashScreen
    FrmSplashScreen.Show
 
    '--- Affiche la liste des feuilles du classeur
    Call ListeFeuilleClasseur
    ' Ne déplace la feuille qu'à la première ouverture de la feuille
    FrmFeuilleClasseur.Move 0.9 * Application.Width - FrmFeuilleClasseur.Width, Application.Top
End Sub

J'ai encore le même problème d'affichage de l'aide à la fermeture.



ESVBA

[ESVBA]

le problème est identifié : je ne réactualisais pas l'affichage dans la procédure "beforeclose" et dans "open" j'ai ajouté "Doevents" après la ligne

Code :

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

keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0

.


Une autre question connexe :
Si le ruban est déjà fermé, avec ce code, il sera réouvert. Ce n'est pas ce que je désire. Comment puis-je faire car il n'y a pas pas de propriété à ma connaissance ?

ESVBA