Discussion :

[primax]

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

[kiki29]

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

[primax]

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 :

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

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...

[ouskel'n'or]

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

[primax]

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 :

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
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

[primax]

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

Code :

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

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

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

Personne n'a la solution?

[DarkVader]

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 :

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

1
2
 
Application.AddIns.Add ...

serait plus appropriée

[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!!!

[DarkVader]

Code :

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

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 :

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

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

A vérifier pour le chemin de l'addin

[primax]

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

[DarkVader]

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

Code :

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

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

et

Code :

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

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

toujours sans garantie du path

[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