Macro test reference "VBA Extensibility 5.3"et installation
2 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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" a écrit dans le message de 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
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" <laurent.girardeau@ac-bordeaux.fr> a écrit dans le message de news:
mn.5b6f7d7bc15e97db.82407@ac-bordeaux.fr...
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.
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" a écrit dans le message de 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
girardeau
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" a écrit dans le message de 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
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" <laurent.girardeau@ac-bordeaux.fr> a écrit dans le message de
news: mn.5b6f7d7bc15e97db.82407@ac-bordeaux.fr...
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 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" a écrit dans le message de 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.