Sub CATMain()
Dim documents 'As Documents
Set documents = CATIA.Documents
Dim partDocument 'As Document
Set partDocument = documents.Open("H:\macro\part_avec_plan.CATPart")
End Sub