Cette commande sert à ouvrir les feuilles Excel en référence, du document en cours.

Bon comme vous savez, cette commende ne vous sauveras pas beaucoup de temps MAIS si vous attribuer un short-cut à la macro, bien vous pourriez ouvrir les feuilles excel à l'aide d'un raccourcie.

Une fois le code collé dans un Module, allez dans "Tools" ensuite "Customizing" ensuite dans l'onglet "Keyboard" ensuite choisir Catégorie "Macros, et attribuer un raccourcie a la commande "OpenXLSReferenced". Et voila, maintenant vous pouvez ouvrir n'importe quelle feuille excel en référence de n'importe quelle pièces, à l'aide d'un raccourcie..




Public Sub OpenXLSReferenced()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

If oDoc.ReferencedOLEFileDescriptors.Count > 0 Then
Dim oExcel As Object
On Error Resume Next
Set oExcel = GetObject("Excel.Application")
If Err Then
Err.Clear
Set oExcel = CreateObject("Excel.Application")
End If
Dim iFile As Integer
For iFile = 1 To oDoc.ReferencedOLEFileDescriptors.Count
oExcel.Workbooks.Open oDoc.ReferencedOLEFileDescriptors.Item(iFile).FullFileName
If Err Then
MsgBox "Impossible d'ouvrir " & oDoc.referecedolefiledescriptors.FullFileName
Err.Clear
End If
Next
oExcel.Visible = True
End If

End Sub




Fonctionne bien sous Inventor 2009
Dan