Bonjour,
A partir de différentes aides, j’ai monté un petit utilitaire sous Excel. Il fonctionne bien tant que je n’applique pas une modification qui consiste à bloquer la touche Echappe, à l’ouverture du fichier » afin de bloquer le mode plein écran (Application.OnKey "{ESCAPE}","" ).
Le souci, est le suivant : lorsque j’applique cette modification, j’enregistre le fichier, le ferme et le ré-ouvre afin de voir contrôler le blocage de la touche Echap sauf que le fichier n’arrive plus à s’ouvrir.
J’ai le message :
« Erreur d’exécution ‘2147417848 (80010108)’ :
La méthode ‘_Default’ de l’objet ‘Range’ a échoué
Je clique sur débogage pour voir la macro en défaut et je m’aperçois que les onglets (ou feuilles) situées normalement dans la fenêtre de gauche de VBA, ont disparu. Comme si VBA ne voyait pas les Onglets présents dans le fichier Excel…
Et après j’ai l’erreur 400. Je n’y comprends plus rien !!!!
Par contre, si je n’applique pas la modification pour le blocage de la touche Echap, tout fonctionne correctement….
Voici 2 fichiers :
Le fichier « Avant modif » fonctionne bien car la modif n’a pas été faite. Ainsi vous pourrez voir les macros avant modif
Le fichier « Après modif » ne fonctionne plus car la modif a été réalisée au niveau de Thisworkbook
Private Sub Workbook_Open()
Application.OnKey "{ESCAPE}",""
J’espère que vous pourrez m’aider ;-)
A très bientôt
Seb
A partir de différentes aides, j’ai monté un petit utilitaire sous Excel. Il fonctionne bien tant que je n’applique pas une modification qui consiste à bloquer la touche Echappe, à l’ouverture du fichier » afin de bloquer le mode plein écran (Application.OnKey "{ESCAPE}","" ).
Le souci, est le suivant : lorsque j’applique cette modification, j’enregistre le fichier, le ferme et le ré-ouvre afin de voir contrôler le blocage de la touche Echap sauf que le fichier n’arrive plus à s’ouvrir.
J’ai le message :
« Erreur d’exécution ‘2147417848 (80010108)’ :
La méthode ‘_Default’ de l’objet ‘Range’ a échoué
Je clique sur débogage pour voir la macro en défaut et je m’aperçois que les onglets (ou feuilles) situées normalement dans la fenêtre de gauche de VBA, ont disparu. Comme si VBA ne voyait pas les Onglets présents dans le fichier Excel…
Et après j’ai l’erreur 400. Je n’y comprends plus rien !!!!
Par contre, si je n’applique pas la modification pour le blocage de la touche Echap, tout fonctionne correctement….
Voici 2 fichiers :
Le fichier « Avant modif » fonctionne bien car la modif n’a pas été faite. Ainsi vous pourrez voir les macros avant modif
Le fichier « Après modif » ne fonctionne plus car la modif a été réalisée au niveau de Thisworkbook
Private Sub Workbook_Open()
Application.OnKey "{ESCAPE}",""
J’espère que vous pourrez m’aider ;-)
A très bientôt
Seb