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 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 11 mai 2012 à 13:21
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 11 mai 2012 à 13:21
A voir également:
- Activer une référence vba excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Activer pavé tactile - Guide
- Activer windows 10 - Guide
2 réponses
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
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
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
11 mai 2012 à 13:07
A part faire une recherche sur chaque nom de library pour le retrouver je ne vois pas
eric
11 mai 2012 à 13:21
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