Discussion :

[lmb19]

Bonjour,

J'ai créé une UserForm en insérant un contrôle supplémentaire : "Microsoft TreeView Controle, version 5.0 (Sp2)"

Ce contrôle fonctionne parfaitement, il me permet de créer une arborescence avec mes données.

Le problème se pose quand je transmet le fichier excel à d'autres utilisateurs. La UserForm n'a plus l'objet Treeview créé.

Il ne s'agit pas d'un problème de fichier comctl32L.ocx, car tous les utilisateurs ont ce fichier. Je peux d'ailleurs pour paliers au problème leur crééer l'objet treeview.

J'ai même essayé cette commande dans le Workbook_open()

Code :

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

1
2
3
'Ajouter la référence au projet
FichierCible = "C:\Windows\System32\comctl32.ocx"
Application.VBE.ActiveVBProject.References.AddFromFile FichierCible

Mais il m'indique "Nom de module, de projet ou de bibliothèque déjà présent."

Ce qui parait logique vu que sur ces postes j'ai comctl32.ocx et je peut créer l'objet treeview dans la userform.

Quelqu'un sait-il la méthode pour que l’intégration de l'objet treeview soit conservé lors de l'utilisation du fichier excel par d'autres personnes.

Merci

[PMO2017]

Bonjour,

L'ActiveX comctl32.ocx n'est peut être pas enregistré dans la base de registre.
Essayez de le faire avec le code suivant

Code :

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

1
2
3
Sub Registre_comctl32()
Shell "Regsvr32 comctl32.ocx"
End Sub

[lmb19]

Idem pour l'inscription dans la base de registre. Il m'indique que comctl32.ocx est déjà chargé.

[PMO2017]

Bonjour,

Peut être en visitant ce lien
http://answers.microsoft.com/fr-fr/o...4-6a45c9817dbb

[lmb19]

Bonsoir,

Le liens que tu donnes est super intéressant. J'ai fait quelques tests, mais mon problème est après la déclaration de la référence.

Mon Userform contient un objet Treeview que j'ai ajouté en tant qu'objet supplémentaire :



je peux choisir la version 6.0 (SP6) ou 5.0 (SP2)

La référence concernée est bien sélectionnée :



Mais quand j'ouvre le fichier excel, j'ai :



Si je vais sur la Userform, le Treeview à disparu :



Si je le remets manuellement ça fonctionne, mais dès qu'un nouvel utilisateur lance le fichier le problème se pose, je suis obligé de reinserrer le Treeview sur la userform moi-même. (Pour info, sur le poste du nouvel utilisateur les références sont bien sélectionnées)

Aucun ténor du Vba excel n'a de solution à mon problème ?

[PMO2017]

Bonjour,

Tentez l'expérience suivante

Arès avoir retiré le TreeView de la boîte à outils "Contrôles supplémentaires" et enlevé toutes les références "Microsoft Windows Common Controls"
1) créez un UserForm et laissez le vide de tout contrôle
2) dans sa fenêtre de code, copiez le code suivant

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.Controls.Add ("COMCTL.TreeCtrl.1")
End Sub

3) lancez le UserForm
******
J'obtiens chez moi le UserForm avec un TreeVew vide.
Si vous obtenez le même résultat sur une machine qui ne pose pas problème, faites le test sur une machine d'un utilisateur où un dysfonctionnement est constaté.
J'aimerais connaître le résultat.
S'il s'avère, il y aura peut être une solution envisageable.

A plus.

[lmb19]

Bonsoir,

Merci pour ce retour.

J'ai effectué le test :

Sur mon poste. Je vois bien le Userform avec l'objet Treeview vide.

Sur l'un des postes qui pose problème, j'obtiens le message suivant :



Je vais essayer sur d'autres postes pour m'assurer que le message est toujours le même.

Cdlt

[lmb19]

Bonjour,

J'ai essayé sur plusieurs postes la méthode de création du Treeview à l'ouverture du Userform, avec

Code :

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

Me.Controls.Add ("COMCTL.TreeCtrl.1")

et ça a résolu mon problème.

Je pense que le problème de licence est propre à ce poste.

Encore Merci PMO2017

[PMO2017]

Tant mieux.
Il n'y a plus qu'à programmer le TreeView et son contenu à l'exécution.

Lors de la programmation, montez la référence "Microsoft Window Common Controls" pour pouvoir bénéficier de l'Intellisense et de la vision des méthodes et propriétés dans l'Explorateur d'Objets, déclarez vos variables objet avec le type adéquat

Code :

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

1
2
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Racine")

******
Par la suite, il faut mettre le code en liaison tardive (late biding) plutôt qu'en liaison précoce (early binding). Transformez le type des déclarations d'object en type générique Object

Code :

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

1
2
Dim nodX As Object   'Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Racine")

Si vous avez utilisé des constantes intrinsèques à la librairie MSComctlLib, remplacez les constantes par leur valeur numérique.
Retirez la référence "Microsoft Window Common Controls".

J'espère ne rien avoir oublié.

Bon courage et à plus.