Bonjour à tous,

A l'ouverture d'un fichier, j'ouvre une macro "auto-open" qui me mets le mode plein écran, avec Application.DisplayFullScreen = True.

Mais si l'on fait "esc" cela m'enlève le mode plein écran, mais surtout cela me bloque tout, je suis obliger de fermer ma fenêtre par la croix en haut à droite.

Que faut-il faire pour rester en mode plein écran même sous l'action de "esc"?

Merci de vos réponses.

bonjour

je n'ai pas excel ici

de mémoire essais ceci

Application.EnableCancelKey = xlErrorHandler

tiens nous au courant

bon week end

Salut qmike 549

Merci pour ta réponse, ça doit marcher tant que l'on est dans la macro.

Mais ma macro est fermée juste après.

Sub Auto_Open()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\ouverture_fichier.xls"
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Application.EnableCancelKey = xlErrorHandler
End Sub

Donc lorsque j'utilise le fichier, que je rentre des données, etc..., il ne faut pas que j'appuie sur "esc", sinon ça me bloque toutes manips.

A+

Bonjour à tous,

Y-a-t-il une solution à mon problème ?

A+

bonjour,

Tu utilise encore Multiplan ?

Je rigole... Les macros Auto-open date d'un autre age et tu ne donnes pas ta version d'Excel ni d'Office.

De toute façon ce n'est pas le DisplayFullScreen qui pose problème, mais d'autres "éléments" dans tes conditions de travail.

On peut supposer qu'il y a d'autres macros qui interviennent...

ça serait bien de nous passer( une copie de) tout le classeur débarassé des enregistrements personnels ou inutiles et quelques explications qui nous disent à quel moment ça plante.

A+

Bonjour Galopin,

Multiplan ça fait bien lontemps que je n'ai pas ententu parler de ça.

Pourquoi dis-tu que les macros auto-open sont d'un autre age ? J'essai d'apprendre par moi-même, mais ce n'est pas mon boulot.

Que faut-il utiliser, par exemple, pour ouvrir un fichier au démarrage ?

Bon, dans le cas présent, je travaille sur un fichier xls (2000-2003), que j'ouvre sous Excel 2000, 2003 et 2007 (en mode de compatibilité) sur 3 pc différents.

Je lance donc avec mon auto-open l'ouverture d'un fichier "Mod vente.xls" qui contient toutes mes macros et userform.

Sub Auto_Open()
Application.ScreenUpdating = False
ChDir "C:\Vente"
Workbooks.Open Filename:="C:\Vente\Mod Vente.xls"
'Afin de mettre toutes les feuilles visibles
For Each sh In Sheets
sh.Visible = True
Next sh
'Permet de ne cacher que les feuilles voulues
Sheets(2).Visible = False
Sheets(3).Visible = False
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Application.EnableCancelKey = xlErrorHandler
End Sub

Lors de cette ouverture il n'y a pas d'autres macros qui se lancent.

Lorsque j'appuie sur "esc" cela me remets en mode normal, mais ça me fige tout. Je suis obligé de fermer par la croix en haut à droite.

Merci de ton aide.

A+

bonsoir,

Je te rassure, ce n'est le boulot de personne ici !

En particulier si tu utilises tes macros sur plusieurs postes différents il serait bon que tu utilises du code fait pour la version la moins évoluée de toutes

Donc dans ton cas 2000. Les macro auto-open sont issue des versions antérieures d'Excel... Je ne me rappelle même plus laquelle !

Bien sur tu peux continuer de les utiliser mais tu ne bénéficies que d'une compatibilité limitée, un peu comme quand tu vas sur 2007

Depuis Excel 2000 on utilise ThisWorkbook

Quand tu vas dans VBA tu DoubleClic sur This Workbook (1)

Tu vas trouver une page blanche en cliquant sur la zone Général (2) tu vas trouver Workbook

En cliquant sur Workbook une macro Workbook_Open s'affiche

C'est à l'intérieur de cette macro qu'il faut coller le code de ton ancienne macro. (ne coller que le code hein !) et pas la ligne : "Sub Auto_Open()" et un seul End Sub suffira bien...

Bien sur après cela il faut supprimer la macro Auto-Open.

Note bien que si tu cliques sur la zone (3) tu verras tout un tas de macros prédéfinies qui ne servent à rien pour l'instant, mébon...

Pour revenir à ton problème, l'appuie sur la touche Esc ne produit normalement aucune erreur.

Et en tout cas cela ne devrait pas provoquer la fermeture du plein écran.

Verifier si cela se produit après avoir fait la modif que je t'ai indiqué dans ThisWorkbook. Si oui :

A quel moment cela arrive-t-il ? Quand et pourquoi appuies-tu sur la touche Esc ?

A+

Re Galopin

Merci de ton explication, de ta patience et de ton aide.

En effet, en utilisant la bonne méthode cela fonctionne, c-a-d que cela ne fige plus rien.

Par contre, je reviens en mode affichage normal, comme je ne suis pas le seul à me servir de ce classeur. Je voudrais que les autres utilisateurs ne puissent pas avoir accès aux menus et boutons habituellement disponibles dans les barres ou le ruban.

C'est entre autre par ça que j'utilise le plein écran (En plus, bien sur, de gagner en hauteur).

Si tu as une solution, je suis preneur.

A+

bonjour,

C'est devenu très compliqué en effet les versions 2003 et 2007 sont très peu compatibles de ce point de vue.

Jusqu'aux version 2003 on pouvait encore se le permettre au prix d'une programmation pointue.

Je n'ai pas encore beaucoup fouillé au niveau du ruban, mais bien qu'on puisse le masquer, il me semble qu'il faille oublier cette idée.

Pour autant il existe de nombreuses possibilités d'éviter des fausses manips malencontreuses, mais au prix d'une programmation plus ou moins lourde...

Tout-ça dépend bien sur de la complexité du truc au départ...

A+

Re

J'avais posté sur excel download et j'ai eu une réponse qui me satisfait. Donc je vous l'a communique, ça peut en aider d'autre.

Dans le code Private Sub Workbook_Open()

Juste après Application.DisplayFullScreen = True
Application.OnKey "{ESC}", "AideMoi"

et dans un module standard

Sub AideMoi()

MsgBox "Vous ne pouvez pas employer cette touche"

End Sub

Cela me convient, ça bloque la touche "esc", les autres utilisateurs ne peuvent pas accéder aux menus.

Merci Galopin de t'être penché sur mon cas et de m'avoir aider à progresser.

A+