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:
Ajout de la ressource:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For Each ref In ThisWorkbook.VBProject.References MsgBox ref.Name & Chr(10) & ref.fullpath & Chr(10) & ref.GUID Next ref
Mon souci est sur la référence:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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...
Partager