Bonjour,
Dans l’optique de publier l’ensemble des documents de fab en un seul clique je souhaite générer un pdf, un step et un excel de liste de pièces soudées.
Jai réussis à réaliser les macros pdf et step (c’est mes premières) mais pas celle de l’excel
Quelqu’un a-t’il quelque chose ?
Pour info mon vba du pdf pour montrer les infos récupérées et le nommage de sorti.
Merci
Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim Part As Object
Dim boolstatus As Boolean
Dim sRevision As String
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName
FileName = Left(FileName, Len(FileName) - 7)
sRevision = swModel.CustomInfo2(« », « Ind. »)
Set Part = swApp.ActiveDoc
PathName = UCase(Part.GetPathName)
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
longstatus = Part.SaveAs3(FileName & « _ » & sRevision & « .PDF », 0, 0)
End Sub