bonjour
j'utilise une macro pour générer ma nomenclature et ma macro ne se lance plus.
j'ai un bug au début.
Excell s'ouvre mais je boque sur l'instruction "Set swModelDocExt = swModel.Extension"
je ne comprends pas car elle fonctionnait très bien jusque là...
pourriez vous m'aider à identifier le problème svp ?
merci d'avance
LSE
Option Explicit
Sub main()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swBOMAnnotation As SldWorks.BomTableAnnotation
Dim swBOMFeature As SldWorks.BomFeature
Dim boolstatus As Boolean
Dim BomType As Long
Dim Configuration As String
Dim TemplateName As String
Dim TableTemplate As String
Dim sFileName As String
Dim Dossier_Nomenclature As String
Dim Repertoire As String
Dim Repertoire_Test As Boolean
Dim Fichier_ouvrir As String
Dim fichier_complet As String
Dim myError As Integer
Dim myWarning As Integer
Dim Nom_Fichier_Excell As Variant
Dim chemin As String
Dim Fichier_section_source As String
'Ouverture d'une feuille Excell
With xlApp
.Visible = True
Set wbk = .Workbooks.Add
Set sht = wbk.ActiveSheet
End With
' Récupération des informations de l'assemblage
Set swApp = GetObject(, "SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
sFileName = swModel.GetPathName '= nom complet de l'assemblage avec le chemin d'accès
Debug.Print sFileName
2022-04-08_15h58_44.png