Dim Part As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc


'Mamaille pour forcer sw à recharger le FDP
' je souhaite une feuille de format horizontal, j' insere avec 1 fdp vertival
boolstatus = Part.NewSheet3("QtéSéparées", 12, 12, 1, 5, True, "QTES_SEPAREES_A4V.slddrt", 0.21, 0.297, "Par défaut")

'je repasse dans drawingdoc et accive la feuille crée
Set swDraw = swApp.ActiveDoc
swDraw.ActivateSheet ("QtéSéparées")

'Je fais 1 setupsheet sur la feuille active pour la repasser à l' horizontale
Set Part = swApp.ActiveDoc
boolstatus = Part.SetupSheet5("QtéSéparées", 12, 12, 1, 10, True, "QTES_SEPAREES_A4H.slddrt", 0.297, 0.21, "Par défaut", True)

' je reconstruis
Part.ForceRebuild3 (True)
'et ça passe