Discussion :

[Invité]

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 :

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

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 :

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

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

[Electro02]

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

[joe.levrai]

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"

[Electro02]

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...

[Invité]

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 :

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

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

[Electro02]

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 :

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

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 !

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 ?

[Invité]

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.

[Electro02]

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 ;-)

[Electro02]

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