GUID - MSCOMCTL2 - Référence incorrecte
Bonnjour le Forum,
Je suis en train de perdre mes cheveux à vue d'oeil.. J'ai un gros souci de chargement des bibliothèques d'Excel.
Voilà mon souci: j'ai développé une application qui permet entre autre de saisir des données et de récupérer des stats.
Mon souci est que je dois mettre cette aplication en réseau et suivant les PC utilisés, les versions d'Excel et les bibilothèques personnelles des utilisateurs il faut que je m'assure d'avoir tout ce qui est nécessaire au non fonctionnement de ma macro...
J'ai donc récupéré les GUID des ressources qui sont sur mon PC et dont j'ai besoin, pour les Ajouter à chaque ouverture du fichier:
Recherche:
Code:
1
2
3
| For Each ref In ThisWorkbook.VBProject.References
MsgBox ref.Name & Chr(10) & ref.fullpath & Chr(10) & ref.GUID
Next ref |
Ajout de la ressource:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| 'ajoute toutes les références nécessaires au bon fonctionnement du programme
'x = "C:\Program Files\Common Files\Microsoft Shared\Web Components\11\OWC11.dll"
'ThisWorkbook.VBProject.References.AddFromFile x 'ou addfromguid (plus fiable que le chemin)
With ThisWorkbook.VBProject.References
Set ref = .AddFromGuid("{000204EF-0000-0000-C000-000000000046}", 0, 0) 'VBA
Set ref = .AddFromGuid("{00020813-0000-0000-C000-000000000046}", 0, 0) 'Excel
Set ref = .AddFromGuid("{00020430-0000-0000-C000-000000000046}", 0, 0) 'stdole
Set ref = .AddFromGuid("{0002E558-0000-0000-C000-000000000046}", 0, 0) 'OWC11
Set ref = .AddFromGuid("{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}", 0, 0) 'Office
Set ref = .AddFromGuid("{0D452EE1-E08F-101A-852E-02608C4D0BB4}", 0, 0) 'MSForms
Set ref = .AddFromGuid("{00024517-0000-0000-C000-000000000046}", 0, 0) 'REF EDIT
Set ref = .AddFromGuid("{8E27C92E-1264-101C-8A2F-040224009C02}", 0, 0) 'MSACAL CALENDRIER
Set ref = .AddFromGuid("{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}", 0, 0) 'MSCOMCTL2
End With |
Mon souci est sur la référence:
Set ref = .AddFromGuid("{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}", 0, 0) 'MSCOMCTL2
Sur mon ordinateur j'ai comme désignation Microsoft Windows Common Control-2 6.0 (SP3).
sur un second PC j'ai après avoir effectué le chargement comme indiqué ci dessus en ouverture de la macro:
Microsoft Windows Common Control-2 6.0 (SP6).
Sur un troisième PC la référence se met comme manquante...
Et dans ces deux cas la macro ne veux pas se lancer...."Bibliothèque d'objets incorrecte ou contenant des références à des définitions d'objects introuvables"
Quelqu'un pourrait m'aider sur des pistes de recherche pour réussir à prévoir tout type de configuration et ainsi faire fonctionner mon application sur n'importe quel ordinateur....
Merci beaucoup à tous pour vos petits neurones...
