Macro test reference "VBA Extensibility 5.3"et installation

Le
girardeau
Bonjour
j'ai des macros qui nécéssitent l'installation de la référence "VBA
Extensibility 5.3".
je suis à la recherche d'une macro qui testerait sa présence et qui
l'installerait le cas échéant.

Merci pour votr aide
Laurent girardeau
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5024611
Dans le ThisWorkbook, tu copies ceci :

Ceci est valide pour toutes les versions d'excel SAUF
excel 97. (à oublier celle d'avant 97)
'--------------------------------
Private Sub Workbook_Open()
On Error Resume Next
ActiveWorkbook.VBProject.References.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub
'--------------------------------

Pour Excel 97, en utilisant cette version, tu devras définir les
paramètres de la méthode AddFromGuid en utilisant quelque
chose comme :

Tu ajoutes manuellement la référence que tu désires :
Sub Test()

With ThisWorkbook.VBProject
Range("A1") = .GUID
Range("A2") = .major
Range("A3") = .minor
End With
End Sub

Et tu remplaces les paramètres de la méthode AddFromGuid
par le contenu des cellles appropriées.

La procédure initiale deviendra :
'------------------------------
Private Sub Workbook_Open()
On Error Resume Next

With ThisWorkbook.VBProject.References
If Val(Application.Version) > 8 Then
.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
Else
'N'oublie pas de modifier les paramètres avec ceux trouvés !!!
.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
End If
End With
End Sub
'------------------------------



"girardeau"
Bonjour
j'ai des macros qui nécéssitent l'installation de la référence "VBA
Extensibility 5.3".
je suis à la recherche d'une macro qui testerait sa présence et qui
l'installerait le cas échéant.

Merci pour votr aide
Laurent girardeau
girardeau
Le #5023961
merci pour la réponse , je vais essayer ce soir
encore merci laurent


MichDenis a émis l'idée suivante :
Dans le ThisWorkbook, tu copies ceci :

Ceci est valide pour toutes les versions d'excel SAUF
excel 97. (à oublier celle d'avant 97)
'--------------------------------
Private Sub Workbook_Open()
On Error Resume Next
ActiveWorkbook.VBProject.References.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub
'--------------------------------

Pour Excel 97, en utilisant cette version, tu devras définir les
paramètres de la méthode AddFromGuid en utilisant quelque
chose comme :

Tu ajoutes manuellement la référence que tu désires :
Sub Test()

With ThisWorkbook.VBProject
Range("A1") = .GUID
Range("A2") = .major
Range("A3") = .minor
End With
End Sub

Et tu remplaces les paramètres de la méthode AddFromGuid
par le contenu des cellles appropriées.

La procédure initiale deviendra :
'------------------------------
Private Sub Workbook_Open()
On Error Resume Next

With ThisWorkbook.VBProject.References
If Val(Application.Version) > 8 Then
.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
Else
'N'oublie pas de modifier les paramètres avec ceux trouvés !!!
.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
End If
End With
End Sub
'------------------------------



"girardeau" news:
Bonjour
j'ai des macros qui nécéssitent l'installation de la référence "VBA
Extensibility 5.3".
je suis à la recherche d'une macro qui testerait sa présence et qui
l'installerait le cas échéant.

Merci pour votr aide
Laurent girardeau


Publicité
Poster une réponse
Anonyme