Pb d'affichage UserForm avec vba sur Excel

Gord21_cs Messages postés 20 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 27 mai 2008 - 19 déc. 2002 à 09:44
ezekiel95 Messages postés 42 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 20 mai 2005 - 18 août 2004 à 16:06
d.rogo :) Bonjour,

J'ai développé une macro avec VBA sur Excel 97 qui fonctionne sans problème (sur PC fixe). J'ai besoin d'utiliser cette macro sur un portable équipé d'Office XP Pro 2002. J'affiche une fenêtre avec un code du type :
While Condition
Load UserForm1
UserForm1.Show
UserForm1.Hide
Unload UserForm1
Wend

La boucle se déroule correctement la première fois mais affiche le messsage suivant ensuite :
Erreur d'éxécution '-2147417848(80010108)'
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

Cette erreur n'apparaît pas lorsque la lecture du programme est faite pas à pas (F8).

Merci de m'aider à résoudre ce problème

3 réponses

BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
19 déc. 2002 à 10:48
essaie de mettre 1 doevents apres ton load & ton unload
:clown) BasicInstinct :clown)
0
Gord21_cs Messages postés 20 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 27 mai 2008
20 déc. 2002 à 15:26
d.rogo :)

Merci pour ton aide

Le doevents n'empêche pas le message d'erreur mais voici quelques précisions :

- l'UserForm1 comporte des boutons qui lancent d'autres procédures, fonctions et fenêtres (mais qui se terminent)
- lorsque l'erreur se produit, c'est UserForm1.Show qui est surligné
0
ezekiel95 Messages postés 42 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 20 mai 2005
18 août 2004 à 16:06
Tu passes deja d'une version d'excel a l'autre ce qui peux engendrer pas mal de petit bug.
As tu verifier dans le menu outils->references que tu avais ce qu'il te fallait?

shussss

:-p Ha que merde je me suis shtroumphé ;-) :big)
0
Rejoignez-nous