Le portail francophone de la géomatique

Bonjour,

Pour ma mise en page, je veux intégrer une carte dans le cadre prévu à cet effet. Je crée donc mon carte et ensuite intègre ma carte sur laquel je zoome et applique un pochoir.

Voici le code :

SUB framecarte
'dessine dans le Layout un cadre permettant l'affichage de la carte
    IF (WindowInfo(frontwindow(), Win_INFO_TYPE) = WIN_LAYOUT) THEN
        create frame into window frontwindow() (0.63, 4.48) (33.18, 29.14) Pen(1,1,0) brush(1, 16777215, 16777215) FROM WINDOW nomcarte fillframe on

        'on crée une table temporaire à partir du polygone sélectionné
        SELECT * FROM Selection INTO monPolygone
'on crée une copie de la table d'où le polygone est sélectionné
        DIM maTable AS string
        maTable = selectioninfo(SEL_INFO_TABLENAME)

'on rajoute une couche avec le polygone sélectionné
        Add Map window FrontWindow() Layer monPolygone
        'SelectionInfo(2)

'on défini le polygone en pochoir
        Fetch first from monPolygone
        SET Map Clipping Object monPolygone.obj

'on zoome sur cette couche
        'SET Map Window Frontwindow() Zoom Entire Layer monPolygone

'on supprime la couche avec le polygone sélectionné
        'Remove Map Window FrontWindow() Layer monPolygone

'on ferme la table monPolygone
        'Close table monPolygone
    ELSE
        note " Il ne s'agit pas d'une fenêtre mise en page 7!"
    END IF

END SUB


Je ne comprend pas, car j'ai un message d'erreur me disant que je dois ouvrir une fenêtre carte. J'ai essayé plusieurs solutions : l'intégrant dans le IF, hors du IF, dans un autre SUB... Rien ne chnage. Il doit y avoir un problème de structure mais je n'arrive vraiment pas à savoir où. Merci de m'aider, car je bloque vraiment sur ce problème.

Cordialement