Références objets VBA pas disponibles par défaut

Citation:

---

mais là encore j'ai un souci : j'ai testé plusieurs codes VBA qui ne permettent de lister des références activées et récupérer leur GUID, mais aucune de fonctionne sur mon poste ! J'ai les titres et la macro tourne, mais aucun listage de quoi que ce soit à part les titres de colonnes ! Un lien à mon souci ?

---

Sous Excel 210 le code suivant fonctionne sans problème, pour l'utiliser il faut activer l'option dans l'Excel
"Accès approuvé au modèle d'objet du projet VBA"

Code:

---

1 2 3 4 5 6

Dim md Dim s As String For Each md In ActiveWorkbook.VBProject.References s = s & md.Name & " " & Chr(9) & md.GUID & vbNewLine Next MsgBox s

---

et après pour activer une référence

Code:

---

1 2 3

On Error Resume Next ThisWorkbook.VBProject.References.AddFromGuid _ "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 0, 2

---

Citation:

---

Envoyé par Volid

Sous Excel 210 le code suivant fonctionne sans problème, pour l'utiliser il faut activer l'option dans l'Excel
"Accès approuvé au modèle d'objet du projet VBA"

---

Bonjour Volid,

Merci pour ton intervention et désolé pour le retard dans ma réponse.

La lancement de ton code me déclenche une erreur 1004 (la méthode 'VBProject' de l'objet '_Workbook' a échoué)

C'est peut-être parce que je n'ai trouvé aucune ligne "Accès approuvé au modèle d'objet du projet VBA" à activer dans les différentes rubriques des options de mon Excel 2016.
Peux-tu me dire précisément où je trouve cela, stp ?

Merci par avance

Bonjour,


Fichier >> Options >> Centre de gestion de la confidentialité >> Paramètres des macros >> cocher "Accès approuvé au modèle d'objet du projet VBA"

Citation:

---

Envoyé par joe.levrai

Fichier >> Options >> Centre de gestion de la confidentialité >> Paramètres des macros >> cocher "Accès approuvé au modèle d'objet du projet VBA"

---

Bonjour,

OK merci beaucoup.

Je prends bonne note des deux derniers messages, car ils me serviront sûrement plus tard.

Mais là, en l'occurrence, comme je n'ai pas accès au code VBA de l'outil que je dois utiliser, cela ne m'apporte malheureusement pas de solution immédiate...

Si j'ai bien compris ce code doit être placé dans un addin xlam pour être appelé à chaque création d'un nouveau classeur ou à chaque ouverture d'un fichier existant

J'ai fait un petit test avec ce code et a l'aire fonctionner correctement j'ai toujours la référence activée

dans le volet de ThisWorkBook ajouter le code suivant qui active une seule référence à adapter selon le besoin
et après installer le fichier autant que addin xlam

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim WithEvents App As Excel.Application   Private Sub App_NewWorkbook(ByVal Wb As Workbook) On Error Resume Next Wb.VBProject.References.AddFromGuid _ "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 0, 2 End Sub   Private Sub App_WorkbookOpen(ByVal Wb As Workbook) On Error Resume Next Wb.VBProject.References.AddFromGuid _ "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 0, 2 End Sub   Private Sub Workbook_Open() Set App = Application End Sub

---

Citation:

---

Envoyé par Volid

Si j'ai bien compris ce code doit être placé dans un addin xlam pour être appelé à chaque création d'un nouveau classeur ou à chaque ouverture d'un fichier existant

J'ai fait un petit test avec ce code et a l'aire fonctionner correctement j'ai toujours la référence activée

dans le volet de ThisWorkBook ajouter le code suivant qui active une seule référence à adapter selon le besoin
et après installer le fichier autant que addin xlam

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim WithEvents App As Excel.Application   Private Sub App_NewWorkbook(ByVal Wb As Workbook) On Error Resume Next Wb.VBProject.References.AddFromGuid _ "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 0, 2 End Sub   Private Sub App_WorkbookOpen(ByVal Wb As Workbook) On Error Resume Next Wb.VBProject.References.AddFromGuid _ "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 0, 2 End Sub   Private Sub Workbook_Open() Set App = Application End Sub

---

---

Ah ! Mais voilà quelque chose qui me semble fort intéressant ! 8O

Oui, si je ne peux pas toucher au code VBA du fameux classeur qui doit activer certaines références, qui ne sont pas là par défaut, c'est idéal de charger ces références sur tout Excel, vide ou existant, dès que ouvre Excel, et avant même de créer un nouveau classeur ou d'un ouvrir un...
(désolé pour cette phrase interminable ^^)

Je vais tester cela, mais avant une question :
Une fois que j'ai identifié le GUID de MSFORM, par exemple, est-ce le code GUID récupéré est le même sur tous les PC qui seront équipés du même pack Office ?
Oui alors à chaque PC son GUID pour telle ou telle référence précise ?

Le GUID est unique que ce soit celui de la lib ou ses composants ses interfaces, ces informations sont placées dans une ressource typelib enregistrée au sein du même fichier binaire dll ou ocx dans certains cas dans un fichier extérieur tlb ou autre, lors de l'opération du recensement ces infos sont récupérées pour enregistrer la lib dans le registre.

Citation:

---

Envoyé par Volid

Le GUID est unique que ce soit celui de la lib ou ses composants ses interfaces, ces informations sont placées dans une ressource typelib enregistrée au sein du même fichier binaire dll ou ocx dans certains cas dans un fichier extérieur tlb ou autre, lors de l'opération du recensement ces infos sont récupérées pour enregistrer la lib dans le registre.

---

OK merci. Mais unique à quel niveau ? Pour chaque PC ou unique quelque soit le PC, selon le nom de l'ocx/dll ?
J'ai à peu près compris ce qui est expliqué, mais cela ne répond pas tout à fait à ma demande précise ;-)

Bonjour,
Quelqu'un peut-il répondre à ma dernière question ? 8-)