Bonjour a tous,

Je souhaite faire la chose suivante avec VBA :
  • Tester qu'une reference VBA est bien activee (en l'occurence, le Solver)
  • Si elle ne l'est pas, l'activer via VBA

Je devrais pouvoir me debrouiller avec ce post pour activer et tester l'activation de la reference, mais il me manque sa GUID.

Pour la connaitre, j'ai teste le code presente dans l'article ci-dessus, ainsi que d'autres, qui sont en gros equivalents. Pour plus de clarte, voila le code (il doit permettre de lister toutes les references du projet) :
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
Sub Grab_References() 
 
    Dim n As Integer 
 
    Sheets.Add 
    ActiveSheet.Name = "GUIDS" 
 
    On Error Resume Next 
    For n = 1 To ActiveWorkbook.VBProject.References.Count 
        Cells(n,1) = ActiveWorkbook.VBProject.References.Item(n).Name 
        Cells(n,2) = ActiveWorkbook.VBProject.References.Item(n).Description 
        Cells(n,3) = ActiveWorkbook.VBProject.References.Item(n).GUID 
        Cells(n,4) = ActiveWorkbook.VBProject.References.Item(n).Major 
        Cells(n,5) = ActiveWorkbook.VBProject.References.Item(n).Minor 
        Cells(n,6) = ActiveWorkbook.VBProject.References.Item(n).fullpath 
    Next n 
 
End Sub
Seulement, mon probleme, qui est arrive avec tous les codes que j'ai testes et qui reveneient plus ou moins au precedent, est que le nombre de references donne par VBA (avec ActiveWorkbook.VBProject.References.Count) est 0, ce qui n'est pas le cas en realite, mais cela fait qu'aucune propriete n'est listee...

Quelqu'un aurait-il une idee de comment faire marcher cette procedure ?

Merci d'avance,

Martin

PS : Toutes mes excuses pour l'absence d'accents et de cedilles, les claviers QWERTY ne sont pas vraiment les allies de la langue de Moliere...