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?