Discussion :

[DenisHen]

Bonjour à tous, et excellente année à vous.

Je développe en ce moment une petite suite de commandes dans Word et Excel.

J'ai, dans mes références VBA, un logiciel : AutoCAD 15.0 (2017). Seul petit problème, quelques-unes de ces commandes peuvent être utilisées par mes collègues, mais ils n'ont pas forcément la même version que moi.

Donc, comment faire pour savoir quelle version d'AutoCAD est installée et comment charger la bonne librairie d'objets de leur version ?

Denis...

[Jean-Philippe André]

Salut,

tu peux parcourir les differentes references de ton application comme dans le post suivant :
http://www.developpez.net/forums/d17...ce/#post123952

[DenisHen]

Bonjour Jean-Philippe, et merci pour cette réponse...

J'ai essayé ça :

Code :

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

1
2
3
4
5
6
Public Sub GetReferences()
    Dim Ref As Reference
    For Each Ref In Application.References
        Debug.Print "Référence : " & Ref.Name & " - Version : " & Ref.Major & " - FullPath : " & Ref.FullPath
    Next Ref
End Sub

J'ai une jolie petite fenêtre avec :

Erreur d'exécution '438' :
Propriété ou méthode non gérée par cet objet

"Reference" n'existe pas dans mon Excel... Et le reste du code est sacrément pointu... Y a-t-il une version "light" ?

[Jean-Philippe André]

Cote Excel, tu atteints les memes objets a partir de

Code :

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

ThisWorkbook.VBProject.References

Sauf erreur.

[DenisHen]

Merci de m'aider...

Donc, comme ça ?

Code :

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

1
2
3
4
    Dim Ref As ThisWorkbook.VBProject.References
    For Each Ref In ThisWorkbook.VBProject.References
        Debug.Print "Référence : " & Ref.Name & " - Version : " & Ref.Major & " - FullPath : " & Ref.FullPath
    Next Ref

Car ça plante aussi...

[Jean-Philippe André]

Ceci devrait fonctionner
Pour les Addins

Code :

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

1
2
3
4
5
6
Sub Macro4()
Dim a As AddIn
    For Each a In Application.AddIns
        Debug.Print "Référence : " & a.Name & " - FullPath : " & a.Path
    Next a
End Sub

pour les references

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub List_Available_References()
Dim i As Long
Debug.Print "Reference", "GUID", , , "Path"
 
For i = 1 To ThisWorkbook.VBProject.References.Count
    With ThisWorkbook.VBProject.References(i)
        Debug.Print .Name, .GUID, .FullPath
    End With
Next i
End Sub

Pense a choisir judicieusement le sous forum dans lequel tu postes, car un general VBA alors qu'en fait on fait du VBA Excel, ca fait perdre du temps a un peu tout le monde