Message d'erreur à l'ouverture du document Excel : erreur # 2110

Bonjour,

J'ai mis à jour un fichier sous Excel. Pour cela, j'ai codé en VBA. Lors de mes tests, tout allait impeccable.

Cependant, en testant sur un autre poste, une erreur est survenue, ne perturbant pas le bon déroulement des macros par la suite. J'ai mis le screen de l'erreur en pièce jointe.
Cette erreur apparaît, puis lorsque l'on clique sur OK, tout se déroule normalement (pas de plantage, ni de bugs).
Pour l'utilisateur, cela reste gênant. J'aimerai savoir si vous avez déjà rencontré cette erreur. Si oui, que faire pour le résoudre ?

Ce que je ne comprend pas aussi, c'est pourquoi cette erreur n'apparaît pas sur mon premier poste de test, qui est pourtant aussi sous Excel 2003.

Bonjour johan,

Je ne jurerais pas (mais j'y crois fort :)) mais je crois que ce n'est pas une Erreur Excel normale
C'est donc un message d'erreur généré par le code VBA lui-même, il faut fouiller dans la macro pour voir où ce texte est inscrit dans le code et dans quel cas il se déclenche

Bonjour tototiti :zoubi: oui c'est ce qui me semble.

Je cherche, je cherche, mais le problème c'est que sur mon poste, ça fonctionne impec ! Et le poste sur lequel l'erreur s'est produite, je n'y ai accès que très rarement ! Il n'y a que sur ce poste que l'erreur s'est produite :roll:

Je mets la seule partie du code qui concerne "ShowCarData", identifié sur le message d'erreur au cas où ça t'inspire :P :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub ShowCarData() On Error GoTo ShowCarData_erreur   '--------------------------------- 'Affiche ou non les champs de saisie 'pour l'Immat. et TarifKm en fct de la puissance '---------------------------------   If SaisiePerm.SPuiss.Value = 0 Then 'puissance nulle alors SaisiePerm.SImmat.Value = " " 'on supprime l'immatriculation SaisiePerm.Label7.Enabled = False 'on cache les champs innutiles SaisiePerm.SKmPerso.Enabled = False SaisiePerm.SKmStandard.Enabled = False SaisiePerm.Label9.Enabled = False SaisiePerm.OK.SetFocus   Else SaisiePerm.Label7.Enabled = True SaisiePerm.SKmPerso.Enabled = True SaisiePerm.SKmStandard.Enabled = True SaisiePerm.Label9.Enabled = True SaisiePerm.SImmat.SetFocus End If   Exit Sub   ShowCarData_erreur: MsgErr ("ShowCarData")   End Sub

---

Sinon, il faut absolument que je puisse reproduire l'erreur, sinon, je ne pourrai jamais tester les solutions ! Je vais tester sur d'autres poste.

Vu le code, une exception doit être levée à l'exécution de

Code:

---

SaisiePerm.OK.SetFocus

---

ou de

Code:

---

SaisiePerm.SImmat.SetFocus

---

et appelle donc la procédure MsgErr().

Pourquoi il est possible de donner le focus à un contrôle sur une machine et pas sur une autre...mystère!

Merci,

oui en effet, peut-être que je n'ai vraiment pas eu de chance et que c'est un gros bug qui est survenu une fois ! De toute façon, je vais enlever la partie du code sur les focus pour éviter cette erreur.

Merci :ccool: