macro : controle update view dans drawing

[lelian]

Bonjour,

 

Lors de controle, je voudrais m'assurer que les views de mes drawing

soient a jour par rapport à mes parts. Tous les resultats vont

apparaitre sous forme de tableau recapitulatif à la fin de cette

macro.

Toutes les views de mes drawing sont locke.

Je suis incapable de voir si la view a besoin d'etre update ou pas.

Voici le morceau du programme ou j'ai des probleme :

 

--------------------------------

Dim PieceDocument As Document

Set PieceDocument = CATIA.ActiveDocument

 

For iJ = 1 To PieceDocument.Sheets.Count

 

For i = 1 To PieceDocument.Sheets.Item(iJ).Views.Count

PieceDocument.Sheets.Item(iJ).Views.Item(i).LockStatus = False

NameView = PieceDocument.Sheets.Item(iJ).Views.Item(i).Name

 

If ??? Morceau ou j'ai besoin d'aide ??? Then

msgbox "Update" & NameView

End If

 

PieceDocument.Sheets.Item(iJ).Views.Item(i).LockStatus = True

Next

 

Next

----------------------------------

 

Cette macro a pour but de controler, je ne veux pas faire un update ou forceupdate

Je suis preneur de toutes solutions et remarque sur mon CATVBA.

 

 

Cdlt