Activer les Références par VBA Excel
chafik2000
Messages postés
2
Statut
Membre
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
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.
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
- Déplacer une colonne excel - Guide
- Activer office gratuitement - Accueil - Bureautique
- Word et excel gratuit - Guide
- Comment activer windows 10 - Guide
A part faire une recherche sur chaque nom de library pour le retrouver je ne vois pas
eric
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