Sub CATMain()

Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

Dim specsAndGeomWindow2 As SpecsAndGeomWindow
Set specsAndGeomWindow2 = CATIA.ActiveWindow

Dim viewer3D2 As Viewer3D
Set viewer3D2 = specsAndGeomWindow2.ActiveViewer

Dim viewpoint3D2 As Viewpoint3D
Set viewpoint3D2 = viewer3D2.Viewpoint3D

Set viewpoint3D1 = viewer3D1.Viewpoint3D

Set viewpoint3D2 = viewer3D2.Viewpoint3D

End Sub