Activer les Références par VBA Excel

Fermé

chafik2000 Messages postés 2 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 11 mai 2012 - 11 mai 2012 à 11:07
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 11 mai 2012 à 13:21

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:

Activer une référence vba excel
Liste déroulante excel - Guide
Formule excel - Guide
Déplacer une colonne excel - Guide
Comment activer windows 10 - Guide
Activer le pavé tactile - Guide

2 réponses

Réponse 1 / 2

chafik2000 Messages postés 2 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 11 mai 2012
11 mai 2012 à 12:12

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

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
11 mai 2012 à 13:07

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 mai 2012 à 13:21

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

Discussions similaires

référence de déménagement free.

"référence circulaire" Excel ?

Reference non Valide

absence de réception canal sat

Problème mumble [Une référence a été envoyée]

probleme avec sqrtf

Discussions similaires

Newsletters