Bonjour sebbbbb,
Merci pour avoir indiqué ton mot de passe ; j'ai commencé à regarder le fichier.
Il y a toute une flopée de modules ! en gros, à vue de nez, ça a l'air de faire dans
les 130 modules ! je me demande bien comment tu fais pour t'y retrouver !!!
surtout que le nom des modules est juste du style Module112 ou Module125 !
alors si tu arrives à te rappeler de mémoire quel module contient quoi, je te tire
mon chapeau !!! tu as une mémoire d'éléphant, dis ? avoue, hein, c'est ça ?
(il y a 5 modules seulement qui ont un nom un peu plus explicite ; ceux dont
le nom commence par "mod", par exemple "modHelp" et "modProtection")
------------------------------------------------
Il y a ThisWorkbook
1 et ThisWorkbook ; bizarrement, ThisWorkbook est vide,
et tout le code habituel avec
Workbook_Open() et tutti quanti se trouve dans
ThisWorkbook
1 ; j'adore la longueur de ce module :
618 lignes !!! dis-moi,
tu t'entraînes pour battre le record du roman le plus long ?
(c'est encore
heureux que tes 130 autres modules ne soient pas aussi longs ! mais c'est
peut-être des romans inachevés, que tu prévois de continuer plus tard ?)
------------------------------------------------
Dans la liste des feuilles de la fenêtre de projets, il y a toute une flopée de feuilles !
Pour une feuille normale, comme par exemple « Feuil671 (Sof Airbus) », on voit
à gauche le .CodeName ; et à droite, entre parenthèses, il y a le (.Name) ; si on
sélectionne Feuil671, dans la fenêtre Propriétés, on voit : « Feuil671 Worksheet ».
Alors ceci est très amusant : il y a aussi tout un tas de feuilles très sympathiques,
de ce genre : « Feuil80 » ; .CodeName uniquement ; il n'y a pas de (.Name) ; quand
on sélectionne Feuil80, dans la fenêtre Propriétés, on s'attend à y voir « Feuil80
Worksheet », n'est-ce pas ? et qu'y voit-on à la place ? (je vous le donne en mille) ;
on voit que le .CodeName n'est plus « Feuil80 » mais « ThisWorkbook1 » !!!
Intéressant, comme situation ! je ne m'étonne plus si ton classeur Excel se met
à dérailler de temps à autres !
------------------------------------------------
Tu aurais tout de même pu fournir un fichier dont la compilation se fasse
correctement, sans planter ! par exemple, un code de fonction qui est
situé en dehors de Function ... End Function n'est pas particulièrement
recommandé ; ni un
« Select Case » sans
« End Select ».
Et un code VBA qui fait référence à une feuille inexistante, comme "SSI",
c'est pas mal non plus !
Avec tout ça, je me demande comment ça se fait qu'à l'ouverture du fichier,
au lieu de planter brutalement sur une page de code VBA, avec une ligne
en jaune, ça ait quand même réussi à afficher ce message d'erreur :
C'est peut-être dû à une feuille inexistante, que Worksheets() n'arrive pas
à sélectionner ou à utiliser ? ou peut-être à cause d'autre chose ? il y a
tellement d'erreurs dans ce fichier ! alors, comment savoir ?
D'un autre côté, suite à un plantage, c'est vrai que ça ne peut pas montrer
la page de code VBA quand le projet est protégé par un mot de passe :
la confidentialité d'un code VBA prime sur tout le reste, même si ledit
code VBA est pour le moins bancal !
------------------------------------------------
Comme ceci est drôle ! si on fait une modif et qu'on essaye de sauvegarder,
il y a cette 1ère fenêtre qui apparaît :
et tout un tas d'autres fenêtres à la suite... mais ça ne sauvegarde pas le fichier !
ça non, ça aurait été trop beau de faire une sauvegarde, même si c'est ce qu'on
a demandé !
Si c'était juste à cause d'un raccourci clavier Ctrl s que tu aurais utilisé pour faire
autre chose, je ne dis pas : tu en as tout à fait le droit ! mais ce qui est plutôt
piquant, c'est que ça se produit même quand on clique sur l'icône disquette ! et
parfois, pour mieux simplifier les choses, cette icône disquette est en grisé, donc
inaccessible ! ça va ? les utilisateurs de ton application apprécient l'ergonomie
de ton classeur Excel ? (je n'ose pas te demander quelle est la note d'ergonomie ! )
------------------------------------------------
Ouf ! pour moi, c'est assez avec ce fichier ! je voulais essayer de trouver une
solution aux mystérieuses feuilles fantômes de nom "", mais là, vraiment,
il y a beaucoup beaucoup beaucoup trop d'anomalies pour mon goût !
Rassures-toi : même si je laisse tomber ce fichier, je continue quand même
de t'aider pour le reste, et si c'est dans mes compétences.
soan