> Tous les forums > Forum Bureautique
 Pb arrêt de plein ecran lancer par macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Yaloo
  Posté le 19/02/2010 @ 23:24 
Aller en bas de la page 
Petit astucien

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.



Modifié par Yaloo le 19/02/2010 23:24
Publicité
qmike549
 Posté le 20/02/2010 à 08:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

je n'ai pas excel ici

de mémoire essais ceci

Application.EnableCancelKey = xlErrorHandler

tiens nous au courant

bon week end

Yaloo
 Posté le 20/02/2010 à 12:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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+

Yaloo
 Posté le 24/02/2010 à 13:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous,

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

A+



Modifié par Yaloo le 24/02/2010 13:37
galopin01
 Posté le 24/02/2010 à 14:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

Yaloo
 Posté le 24/02/2010 à 15:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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+

galopin01
 Posté le 24/02/2010 à 18:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

Yaloo
 Posté le 24/02/2010 à 19:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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+

galopin01
 Posté le 24/02/2010 à 20:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

Yaloo
 Posté le 24/02/2010 à 20:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Grosses promotions pour le Super Sale chez Geekbuying
-70% -1 -%
@Geekbuying
Ventes flash de printemps sur Amazon
-40% -1 -%
@Amazon
SSD Kingston KC3000 2 To (M.2, NVMe 7000 Mo/s, PCIe 4)
120,48 € 160 € -25%
@Amazon Allemagne
Webcam UGREEN (Full HD, 2 micros antibruit, cache de confidentialité)
23,67 € 34,99 € -32%
@Amazon
Boitier PC Moyen-Tour NZXT H5 Flow avec fenêtre latérale en verre trempé
89,99 € 110 € -18%
@Amazon
PC portable Lenovo 15.6 pouces LOQ 15IAX9 (FHD IPS 144 Hz, Core i5-12450H, 16 Go RAM DDR5, SSD 512 Go, RTX 4050, Windows 11)
699,99 € 849 € -18%
@Amazon

Sujets relatifs
lancer une macro à partir d'une première macro
[Macro optimisation écran ... Suite]
[Macro optimisation écran] RESOLU
Lancer macro
etirer la page plein ecran
Format plein écran (16/9) d'une présentation Power point 2007
Outlook 2007 taille de la fenêtre plein écran
image plein écran powerpoint 2010
Feuille plein écran
Obtenir un plein écran d'un pps joint à Outlook
Plus de sujets relatifs à Pb arrêt de plein ecran lancer par macro
 > Tous les forums > Forum Bureautique