Activation automatique de Library VBA

Bonjour le Forum!

J'ai developé un outil en VBA excel qui utilise certaines libraries. Sur mon PC aucun problème car elles sont activées. Le problème survient lorsqu'un autre utilisateur sur un autre poste essaye de l'utiliser.

Es possible de programmer à l'ouverture de mon fichier l'activation de libraries?

Merci d'avance!
Fineap

salut,
en utilisant la :faq:
de la meme facon qu'on peut appliquer ce code sous Access :
http://access.developpez.com/faq/?page=ref#ListRef

L'équivalent Excel serait avec:

Code:

---

Application.AddIns.Add

---

reste la boucle de test sur l'existence de la version la plus à jour sur la machine à l'ouverture du fichier Excel :ccool:

Salut et merci de la réponse.

Es-que les DLL sont toujours dans le meme directories peut importe la version d'excel?

Sinon est-il possible de copier les lib dans un dossier dont le chemin d'accès est connu et d'ensuite les récuperer depuis la(Genre: ThisWorkbook.path &"\lib" & "\exemple.dll"")? J'essaye mais je n'ai pas de poste avec une version plus ancienne de excel donc je ne peux pas verifier.

Merci d'avance.
Fineap

Les versions d'excel vont avoir un impact sur le libellé du dossier effectivement :

exemple
Office 11 -> Office 2003

Office 12 -> Office 2007

Office 14 -> Office 2010

Voilà, c'est mon problème. Est-il donc possible de référencer des lib que j'ai placé dans le dossier source de mon workbook? Comme ça peut importe la version de excel... J'ai essayé ca mais ca ne marche pas_:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub Workbook_Open()   On Error Resume Next With ThisWorkbook.VBProject.References Application.DisplayAlerts = False .AddFromFile ThisWorkbook.Path & "\Lib\ATP.DLL"   End With Application.DisplayAlerts = True On Error GoTo 0 '.....   End sub   'dans un module J'ai copié le code du lien FAQ Acces et essayé de modifier pour excel. Doit contenir une erreur au moins.     Function GetReferences() Dim Ref As AddIn   For Each Ref In Application.AddIns   Debug.Print "Référence : " & Ref.Name & " - Version : " & Ref.Major & "." _ & Ref.Minor & " - FullPath : " & Ref.FullPath Next Ref End Function

---

Citation:

---

Envoyé par Fineap

J'ai essayé ca mais ca ne marche pas_:

---

mais encore ?
qu'est-ce qui ne marche pas ?

a voir aussi si tu peux desactiver les references manquantes :
mot clé isBroken
http://support.microsoft.com/kb/308340/fr

Ok , ça marche! :ccool:

Merci bonne journée!
Fineap


Si ça interesse quelqu'un...

Sur Excel 2003 la Lib OWC11.DLL (Web Components 11.0) était manquante. Je l'ai donc prise depuis mon poste qui tourne sur Excel10 et je l'ai ajouté dans le dossier source du programme (Que je distribue avec a tout les utilisateurs) et je la charge donc depuis le dossier source de mon programme(ThisWorkbook.Path\Lib\OWC11.DLL). J'ai ajouté toutes les lib necessaire dans le doute...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function GetReferences()   Application.DisplayAlerts = False   With ThisWorkbook.VBProject.References   On Error Resume Next 'Annule si la lib existe... .AddFromFile ThisWorkbook.Path & "\Lib\ATP.DLL" 'Si manquante la charge depuis le dossier source. On Error Resume Next .AddFromFile ThisWorkbook.Path & "\Lib\DFUIPRXY.DLL" On Error Resume Next .AddFromFile ThisWorkbook.Path & "\Lib\FM20.DLL" On Error Resume Next .AddFromFile ThisWorkbook.Path & "\Lib\ieframe.dll" On Error Resume Next .AddFromFile ThisWorkbook.Path & "\Lib\OWC11.DLL"     End With Application.DisplayAlerts = True End Function

---

Hello,

si cette solution te convient et que la problématique est résolu, merci de tagger la discussion en cliquant sur :resolu:

:ccool: