Add-ins

Version imprimable

26/09/2007, 14h09
primax

Test/Activation des references/Add-ins

Bonjour à tous...

Voici mon souci, j'ai cherché sur google et sur le forum mais soit je ne trouve pas, soit la solution proposée ne marche pas chez moi...

J'utilise l'add-in "Solver" dans mon programme vba. Problème: quand je change de PC, j'ai souvent droit à une erreur car la référence à l'add-in a sauté voir parce que le solver n'est pas installé.

QUESTION:
Comment puis-je m'assurer au démarrage du fichier que cet Add-in est bien actif et dans les références du code vba.
Le luxe, ce serait de l'activer automatiquement...

Merci
26/09/2007, 14h13
kiki29

Jour Bon Voir sur http://silkyroad.developpez.com/VBA/...Editor/#LIII-B

J'avais déjà regardé et essayé des trucs mais j'ai toujours des erreurs...

J'ai ce code au début de ma macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 'Check Solver Reference
    'intNbRef = ThisWorkbook.VBProject.References.Count
 
     For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).Name = "SOLVER" Then
            boolSolverReference = True
            Exit For
        End If
   Next i
 
    If (boolSolverReference = False) Then
      ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER\SOLVER"
   End If

Mais ça plante dès la première ligne...

26/09/2007, 15h14
ouskel'n'or

Relis le code que donne SilkyRoad, tu trouveras xla différence qui fait tout ;)

Bon maintenant ça ressemble à ça. A ce que je vois, le fais que l'addin soit présent ou installé n'a rien à voir avec le fait qu'il soit dans les references du code... Et ma ligne sous " 'Add reference" ne fonctionne pas :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AddinSolverControl()
    Dim x As Addin
    Dim Solver_AddIn As String
 
    AddInName1 = "SOLVER.XLA"
    AddInName2 = "solver.xla"
 
    For Each x In Application.AddIns
        If (AddInName1 = x.Name Or AddInName2 = x.Name) Then
            If x.Installed = False Then
               '?
            End If
 
            'Add reference
            ThisWorkbook.VBProject.References.AddFromFile x.Path
            Exit Sub
        End If
    Next x
 
    MsgBox "SOLVER Add-in not found"
 
End Sub

26/09/2007, 16h45
primax

Non vraiment, j'ai toujours une erreur 1004 quand je fais ça:

Code:

ThisWorkbook.VBProject.References.AddFromFile(x.Path)

J'ai essayé depuis un module ou directement dans Thisworkbook... pareil...

Personne n'a la solution?
26/09/2007, 17h17
DarkVader
Citation:

Envoyé par primax

Non vraiment, j'ai toujours une erreur 1004 quand je fais ça:

ThisWorkbook.VBProject.References.AddFromFile(x.Path)

J'ai essayé depuis un module ou directement dans Thisworkbook... pareil...

Personne n'a la solution?

Tu confonds Addins et References qui sont 2 collections différentes !
Code:

1 2 Application.AddIns.Add ...
serait plus appropriée
26/09/2007, 17h48
primax

ok mais pour que mon prog marche, j'ai vraimet besoin d'aller dans VBE, tools,reference et d m'assurer que "SOLVER" est bien coché...

C'est ça que je veux automatiser!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub InstallAddin(strAddinName as String, pathAddin as string)
    Dim x As AddIn
 
    For Each x In Application.AddIns
        If LCase(x.Name) = strAddinName Then
            If Not x.Installed Then x.Installed = True
            Exit Sub
        End If
    Next
    Application.AddIns.Add pathAddin & strAddinName
End sub

soit

Code:

InstallAddin "solver.xla", Application.Path & "\Macrolib\Solver\"

A vérifier pour le chemin de l'addin

26/09/2007, 18h59
primax

Ok, ça ne fait pas d'erreurs... Mais ce n'est pas ça qui me l'ajoute aux references du projet !

Sorry
Pour l'ajout à la collection des références (et non celle des Addins)

Code:

1
2
3
4
5
6
7
8
9
Sub installRef(FileName As String, PathName As String)
    Dim ref As Object
 
    For Each ref In Application.VBE.ActiveVBProject.References
        If UCase(FileName) Like UCase(ref.Name) & "*" Then Exit Sub
    Next
    Set ref = Application.VBE.ActiveVBProject.References.AddFromFile(PathName & FileName)
    Set ref = Nothing
End Sub

Code:

installRef "solver.xla", Application.Path & "\Macrolib\Solver\"

toujours sans garantie du path

26/09/2007, 23h35
fred65200

bonsoir,
je viens de poster un code pour lister/cocher des reférences ici

http://www.developpez.net/forums/sho...13#post2532313

ça peut peut être t'aider.

fred65200