Discussion :

[p51 mustang]

Bonjour,

Je travaille depuis un moment déjà sur un projet vba avec un collègue, j'ai donc réalisé une macro permettant la création d'un treeview dans une userform.

La macro fonctionne parfaitement sur le fichier de base.

Cependant, lors du transfert, il exécute le début du code et ne veut pas faire un userform.show ! Qui est une fonction de base, le seul message d'erreur qui est affiché est erreur 424 d'exécution ou 1004 pour l'objet.

Le transfert s'est fait en insérant le module et la userform préalablement extraite.

Quelqu'un à t'il déjà eu ce genre de problème, si oui comment l'avez vous résolu?
merci d'avance pour vos réponses
Cordialement

[Philippe Tulliez]

Bonjour,
As-tu essayé de faire un Step by Step avec F8 afin de voir où se plante le programme.
Cela m'est arrivé d'avoir un message d'erreur en lançant un USERFORM et c'est en faisant tourner le programme pas à pas que j'ai vu où se situait le problème.

[p51 mustang]

Bonjour, merci de ta réponse

oui j'ai fait le mode pas à pas et c'est juste le userform.show qui plante, la macro de la userform fonctionne sans problème.
La ou j'ai le plus grand mystère est que ca passe très bien sur le fichier d'origine mais pas sur l'autre! et la seule erreur qu'il y aie est le userform si je fait les deux pgrm séparément ca marche!

[AlainTech]

c'est juste le userform.show qui plante,

Il y a de fortes chances que le problème se situe au niveau de l'Initialize du Userform.

[p51 mustang]

Bonjour alain tech,

merci pour ta réponse en effet ce serai le passage à l'affichage de la userform qui ne passerai pas!

Voici les deux lignes qui serai concernées :

Code :

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

Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)

Code :

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

Sub UserForm_Initialize()

avec Dim tw As MSComctlLib.Treeview

Je pense que la recherche de la bibliothèque ne doit pas se faire correctement ou quelque chose ne doit pas être activé sur les autres pc mais je ne sais pas quoi car j'y suis allé un peu à taton!!
Une idée?
Merci d'avance!

[Philippe Tulliez]

Bonjour,

Voici les deux lignes qui serai concernées :
Citation:
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
Citation:
Sub UserForm_Initialize()
avec Dim tw As MSComctlLib.Treeview

En utilisant la touche F9, sur quelle ligne exactement s'arrête le débogueur ?
As-tu essayé de vérifier avec le compilateur (Débogage / Compilé VBProject) ?