Discussion :

[ThieBEN]

Bonjour à tous,
Depuis une base Access, j'ouvre un classeur Excel en plein Ecran sans Ruban Mais lorsque je referme le classeur et que j'ouvre de nouveau Excel par le raccourci sur le bureau, il garde le plein Ecran il faut cliquer fois sur le haut pour l'ouvrir normalement
Auriez-vous un début de solution voici ci-dessous le code que j'utilise dans le workbook de mon classeur :

Code :

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

1
2
3
4
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
' active ce classeur, met en plein écran
Application.DisplayFullScreen = True
End Sub

Code :

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

1
2
3
4
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
' change de classeur, annule plein écran
Application.DisplayFullScreen = True
End Sub

Merci de vos conseils

[Daniel.C]

Bonjour,

Peut-être :

Code :

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

Application.WindowState = xlNormal

[Didier Gonard]

Bonjour,

Euh... de base, tu utilises une propriété de l'objet Application Excel pour masquer ce que tu veux, cette propriété est à première vue un Boolean, donc le premier réflexe serait de la remettre à False

Code :

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

Application.DisplayFullScreen = false

via évènementiel beforeclose du thisworkbook ou autre selon contexte.

cordialement,

Didier

[ThieBEN]

Non ça ne fonctionne pas Excel s'ouvre toujours en plein Ecran. Ca me fait penser à un cache qui ne se vide pas et qui garde la mémoire de l'ouverture précédente. J'ai aussi un autre problème lorsque je clic sur la croix pour quitter mon classeur il ferme le classeur mais reste sur une page grise sans rien il faut de nouveau cliquer sur la croix pour quitter définitivement excel. J'avoue je ne suis pas un développeur chevronné mais là je déclare ne rien comprendre au problème.
Merci de vos conseils

Le code lorsque je ferme pour éviter la boîte de dialogue souhaitez vous enregistrer.

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Merci de vos conseils

[kiki29]

Salut, et en plaçant Application.DisplayFullScreen = False dans Workbook_Open ?

[ThieBEN]

Merci de vos réponses mais rien ne fonctionne, Excel ferme mon classeur, mais pas Excel. j'ai la page grise et je dois cliquer à nouveau sur la croix pour quitter Excel. Lorsque je relance Excel il s'ouvre en plein Ecran rien à faire.

[Didier Gonard]

Bonjour,

Dans ton post initial, tu n'en dis pas assez si tu pilotes Excel à partir d'Access, tu doit gérer une instance d'excel avec ton VBA.

Le mieux serait de procéder par méthode empirique, tout le monde n'ayant pas Access, par contre, s'ils ont Excel, ils ont généralement Word.
tu peux essayer de recréer la même situation en faisant la manip à partir de Word, juste l'ouverture et la fermeture d'Excel afin de tenter de recréer le problème. Du coup tu peux alors poster l'intégralité de ce code avec les détails (quand tu ouvres par double click après, c'est un classeur ou un raccourci de l'appli). Et là les contributeurs auront des billes pour bosser.
De plus ce genre de manip risque de poser problème si ça passe sous 2013 à un moment vu qu'on passe alors de MDI en SDI, bref il nous faut des billes pour travailler

cordialement,

Didier

[ThieBEN]

Bonjour et merci de vos réponses,
Donc depuis Word, j'ai créer un bouton de commande pour ouvrir mon classeur Excel :
Code du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
 
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("mon classeur")
'.....
End Sub

Ensuite dans Workbook j'ai collé ces codes :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DisplayAlerts = False
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
End If
'désactive le plein écran
Application.DisplayFullScreen = False
End Sub

Code :

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

1
2
3
4
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
' active ce classeur, met en plein écran
Application.DisplayFullScreen = True
End Sub

Cette manip fonctionne, il m'ouvre mon classeur en plein Ecran et lorsque je quitte c'est bien tout Excel qui se ferme. Lors d'une nouvelle ouverture le plein Ecran n'est plus actif.
Je pense ne pas avoir fait d'erreur mais bon merci de vérifier cela pourra servir à d'autres.
Encore merci de vos précieux conseils

[Didier Gonard]

Bonjour,
Oui, ça fonctionne, mais le code est bizarroïde

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeClose(Cancel As Boolean)
10    DisplayAlerts = False
20    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
30        ActiveWorkbook.Saved = True
40        ActiveWorkbook.Close
50    End If
      'désactive le plein écran
60    Application.DisplayFullScreen = False
End Sub

L’événementiel BeforeClose placé dans un classeur ne peut concerner, de base, que celui-ci donc tes lignes de code 20 à 50 qui testent le nom du classeur n’ont aucune utilité car cela ne peut se produire….

La ligne 10 ne peut pas ne pas planter normalement, DisplayAlerts étant une propriété de l’objet Application, tu es obligé de l’invoquer de façon explicite :

Code :

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

Application.DisplayAlerts = False

Je ne comprends pas non plus l’utilité de cette ligne sinon, vu que tu passes la propriété Saved de ton classeur à True, normalement il ne doit pas y avoir de message d’alerte à la fermeture…

Au niveau code pur, tu peux concaténer les lignes 30 & 40 en écrivant direct :

Code :

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

ActiveWorkbook.Close Savechanges:=False

Ton code devrait donc se résumer à :

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayFullScreen = True
End Sub

Toujours question de logique, si tu utilises l’évènementiel Workbook_WindowActivate ainsi que le code déjà évoqué, c’est que tu considères que d’autres classeurs peuvent être ouverts en simultané, il serait donc logique de prévoir l’évènementiel contraire ainsi :

Code :

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

1
2
3
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
 Application.DisplayFullScreen = False
End Sub

Vu qu’on peut activer, sans ruban, un autre classeur ouvert via la barre de tâches ou en VBA etc… On a un effet bascule correct du coup.
Le code du BeforClose devient, de fait, inutile.

Les choses seraient différentes si on utilisait les évènementiels au niveau Application via un module de classe, mais tu n’en parles pas.

cordialement,

Didier