Activer fond de calque et calque du vue depuis une macro

Bonjour,

Me voilà avec un nouveau problème !  

Je cherche un moyen d'activer à l'aide d'une macro en vba le fond de calque et inversement le calque du vue dans un drawing.

Merci par avance de vos retours !

A bientot,

Salut, voici le code que j'utilise :

Code:

Dim DrawDocument As DrawingDocument
Set DrawDocument = CATIA.ActiveDocument 'la variable DrawDocument correspond à mon Drawing d'ouvert
Dim Calque as DrawingSheet
Set Calque = DrawDocument.Sheets.ActiveSheet 'la variable Calque correspond à mon calque affiché à l'écran
Dim MesVues As DrawingViews
Set MesVues = Calque.Views 'la variable MesVues correspond à toutes les vues de mon calque
'Pour info le fond de calque Catia ainsi que l'affiche normal sont considérés comme des vues par le logiciel

'===== pour passer en mode fond de calque :
For K = 1 To MesVues.Count 'je lance une boucle qui va parcourir toutes les vues du calque
Set MaVue = MesVues.Item(k) 'la variable MaVue est la vue que je viens de parcourir
If MaVue.Name = "Background View" then 'si la vue que je viens de parcourir à comme nom "Background View" alors
MaVue.Item(k).Activate 'j'active la vue, et donc je passe en mode fond de calque
End If
Next

'===== pour passer en mode vue principale :
For K = 1 To MesVues.Count 'je lance une boucle qui va parcourir toutes les vues du calque
Set MaVue = MesVues.Item(k) 'la variable MaVue est la vue que je viens de parcourir
If MaVue.Name = "Main View" then 'si la vue que je viens de parcourir à comme nom "Main View" alors
MaVue.Item(k).Activate 'j'active la vue, et donc je passe en mode affichage normal
End If
Next


Flo'

Code:

Dim DrawDocument As DrawingDocument
Set DrawDocument = CATIA.ActiveDocument 'la variable DrawDocument correspond à mon Drawing d'ouvert
Dim Calque as DrawingSheet
Set Calque = DrawDocument.Sheets.ActiveSheet 'la variable Calque correspond à mon calque affiché à l'écran
Dim MesVues As DrawingViews
Set MesVues = Calque.Views 'la variable MesVues correspond à toutes les vues de mon calque
'Pour info le fond de calque Catia ainsi que l'affiche normal sont considérés comme des vues par le logiciel

'===== pour passer en mode fond de calque :
For K = 1 To MesVues.Count 'je lance une boucle qui va parcourir toutes les vues du calque
Set MaVue = MesVues.Item(k) 'la variable MaVue est la vue que je viens de parcourir
If MaVue.Name = "Background View" then 'si la vue que je viens de parcourir à comme nom "Background View" alors
MaVue.Item(k).Activate 'j'active la vue, et donc je passe en mode fond de calque
End If
Next

J'ai essayé d'exécuter cette partie du code. Il m'a envoyé une erreur 438 : "Object doesn't support this property or method"

Oui, j'ai fait une erreur, il faut enlever le "Item(k)" de la ligne où on active la vue.
Voici le code corrigé :

Code:

Dim DrawDocument As DrawingDocument
Set DrawDocument = CATIA.ActiveDocument 'la variable DrawDocument correspond à mon Drawing d'ouvert
Dim Calque as DrawingSheet
Set Calque = DrawDocument.Sheets.ActiveSheet 'la variable Calque correspond à mon calque affiché à l'écran
Dim MesVues As DrawingViews
Set MesVues = Calque.Views 'la variable MesVues correspond à toutes les vues de mon calque
'Pour info le fond de calque Catia ainsi que l'affiche normal sont considérés comme des vues par le logiciel

'===== pour passer en mode fond de calque :
For K = 1 To MesVues.Count 'je lance une boucle qui va parcourir toutes les vues du calque
Set MaVue = MesVues.Item(k) 'la variable MaVue est la vue que je viens de parcourir
If MaVue.Name = "Background View" then 'si la vue que je viens de parcourir à comme nom "Background View" alors
MaVue.Activate 'j'active la vue, et donc je passe en mode fond de calque
End If
Next

'===== pour passer en mode vue principale :
For K = 1 To MesVues.Count 'je lance une boucle qui va parcourir toutes les vues du calque
Set MaVue = MesVues.Item(k) 'la variable MaVue est la vue que je viens de parcourir
If MaVue.Name = "Main View" then 'si la vue que je viens de parcourir à comme nom "Main View" alors
MaVue.Activate 'j'active la vue, et donc je passe en mode affichage normal
End If
Next

Parfait, Merci ça va bien m'aider !

Et encore un problème résolu merci !

Salut,

On peut faire plus simplement :

DrawDocument.Sheets.ActiveSheet.Views.Item("Background View").Activate
et
DrawDocument.Sheets.ActiveSheet.Views.Item("Main View").Activate