Activer les Références par VBA Excel

chafik2000 Messages postés 2 Statut Membre -  
michel_m Messages postés 18903 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.

2 réponses

  1.
    chafik2000 Messages postés 2 Statut Membre
     
    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
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

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

    eric
    -1