Activer les Références par VBA Excel

chafik2000 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Mon problème est le suivant : J'ai créé plusieurs fonctions sous VBA Excel que j'ai voulu intégrer en tant que module complémentaire d'Excel. j'ai créé donc un fichier .xlam . Tout marche très bien.

Le problème c'est que mes fonction nécessite l'activation de plusieurs références dans la bibliothèque VBA. je cherche donc un code qui me permettra d'activer automatiquement ses références avant chaque utilisation.

Ca aurait été plus simple de les activer une fois pour toute mais les fonction en question vont être utilisées sur plusieurs PC.

pour information, j'ai mis la liste des références que je voudrais activer

http://img155.imageshack.us/img155/7738/rfrences.png

Merci pour votre aide.


A voir également:

2 réponses

Réponse 1 / 2
chafik2000 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
salut,
elle retourne des réponse mais soit que c'est trop technique où que ca ne rajoute qu'une seule référence précise.

Merci
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
C'est clair qu'il faut que tu connaisses les noms de fichier à activer.
A part faire une recherche sur chaque nom de library pour le retrouver je ne vois pas

eric
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour les chefs

pour trouver il faut le nom de la bibjothèque(dll) par ex pour ADO (activeX data object)
C:\Program Files\Fichiers communs\System 

Dim Ref, AdoIsInstalled As Boolean
    Const RefName As String = "ADODB"
    With ThisWorkbook.VBProject
        For Each Ref In .References
            If Ref.Name = RefName Then
                AdoIsInstalled = True
                Exit For
            End If
        Next
        If AdoIsInstalled Then
            MsgBox "Version installée: " & Ref.Name & " " & Ref.Major & "." & Ref.Minor
        Else
            .References.AddFromFile "C:\Program Files\Fichiers communs\System\ado\msado15.dll"
            'Ou
            '.References.AddFromGuid "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8
        End If
    End With
' je ne suis pas l'auteur de ce code
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

une recherche sur google retourne des réponses...

eric
-1