Instruction Paste arrête exécution
Bonjour,
Je travaille sous le logiciel iFIX5.0, dans lequel éditeur de langage VBA est inclus.
Mon code est le suivant :
Code:
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.
