Discussion :

[Alexandrov00]

Bonjour,

A l'exécution de ce bout de code, pourtant très simple :

Code :

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

1
2
3
4
5
6
7
Sub test()
 
Dim blabla As String
blabla = ThisWorkbook.name()
MsgBox blabla
 
End Sub

J'obtiens :

"Automation Error
Catastrophic Failure"

Outre le caractère légèrement angoissant du message d'erreur, il est très handicapant de ne pas pouvoir utiliser ThisWorkbook dans mes macros.

Avez-vous déjà ce problème ? Je pense qu'il peut s'agir d'un problème de référence, mais j'ai essayé d'en ajouter/enlever quelques-unes, sans succès.

Toute piste serait la bienvenue.

Merci !

[sdispro]

Salut Alexandrov00,

J'ai déjà eu ce problème sur XL2003.

C'était un problème de référence, mais n'ayant pas trouver celle qu'il fallait enlever, il m'a fallu réinstaller Excel.

Il éxist des patch qui te permettrons de réinitialiser les références de bases.

En esperant t'avoir aider.

[BlueMonkey]

Bonsoir,

Essaye avec ThisWorkbook.Name au lieu de ThisWorkbook.name().

Si le problème persiste, tu peux toujours essayer de faire une réparation d'Office. (depuis Panneaux de configuration -> Programmes -> Office (choisir modifier, puis réparer).

[Alexandrov00]

Bonjour,

Merci pour vos réponses. Je n'ai mis que ce petit bout de code pour montrer que la moindre utilisation de ThisWorkbook provoquait cette erreur, mais ce n'est pas un problème de parenthèse (des choses comme ThisWorkbook.activate provoquent la même erreur).

Je vois que la solution n'et pas évidente, ça m'embête un peu de réinstaller Excel surtout que je suis au boulot, mais s'il n'y a que ça alors il faudra bien... Savez-vous ce qui provoque ce gros bug ? Y aurait-il des versions instables d'Excel ? Ai-je fait une mauvaise manip sans le savoir ?

Merci encore en tout cas pour votre aide.

[BlueMonkey]

Bonjour,

En temps normal, la réparation d'office ne nécessite pas du support.
(Office se sert du cache qu'il a créé au moment de l'installation).

(Voir source d'explication : support Microsoft)