Bonjour,

Je travaille sous le logiciel iFIX5.0, dans lequel éditeur de langage VBA est inclus.
Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub GenereObjet(Bibliotheque As String, NomObjet As String, NomVue As String)
 
    'Ouvre la bibliothèque
    Dim iDoc As Object 
    Set iDoc = Application.Documents.Open(Bibliotheque) 
    Set iDoc = Nothing 
    Set iDoc = Application.ActiveDocument.Page
    
    'Trouve l'objet dans la bibliothèque
    Dim dObjet As Object
    Set dObjet = FindLocalObject(iDoc, NomObjet)
    
    'Selectionne l'objet
    dObjet.Select 
    iDoc.Copy 
    Set iDoc = Nothing 
    Set iDoc = Application.Documents.Open(NomVue) 
    Set iDoc = Nothing 
    Set iDoc = Application.ActiveDocument.Page 
    
    'SendKeys "{ENTER}", False 'Permet de valider automatiquement la boîte de dialogue
    
    'Colle l'objet dans la vue
    iDoc.Paste 
    MsgBox "test"  
      
End Sub
Dans ma fonction je dois récupérer un objet dans une bibliothèque et le copier/coller dans une nouvelle fenêtre.
La fonction ci-dessus est appelée dans une boucle for (dans ma fonction Main()), mais le problème c'est que l'instruction iDoc.Paste arrête l'exécution du programme.
La fonction n'est donc exécuté qu'une seule fois.
L'instruction Paste doit seulement permettre de coller l'objet.
Je précise qu'il n'y a pas d'erreur lors de l'exécution et qu'une fois l'instruction Paste passée l'exécution est stoppée de la même manière que si j'avais appuyé sur STOP.
La MsgBox ne s'affiche pas, ce qui prouve bien l'arrêt de l'exécution.

J'ai cherché sur internet mais je ne trouve pas de solution à mon problème.

J'ai juste pu voir sur le site officiel du logiciel iFIX que je ne suis pas le seul à avoir ce problème :
http://gefanuc.bnsi.net/eforum/showthread.php?t=10239
Cependant ma version du logiciel ne correspond pas à celle de cet internaute et ça ne résoud donc pas mon problème.

Je sais que ce problème est spécifique au fait de l'utilisation de cette instruction sous mon logiciel, mais si vous avez des pistes ou si vous avez déjà rencontré ce problème, même avec une autre instruction ou un autre logiciel, merci d'avance.