Discussion :

[Fineap]

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

[Jean-Philippe André]

salut,
en utilisant la
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fineap]

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

[Jean-Philippe André]

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

[Fineap]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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