[WD-2000] Problème d'ouverture d'un document word par vba [Résolu]

[juju05]

Bonjour,

Lors d'une fusion lancée depuis un ERP, je dois ouvrir un autre document word. Pour cela, j'ai codé dans une macro AutoOpen du document servant à la fusion un appel à un fichier kix qui fait l'opération (je n'ai pas pu le faire directement par VBA car le document s'ouvrait "comme en lecture seule").
A présent le document cible s'ouvre mais la fusion finale ne s'effectue plus dans la mesure où le focus est donné au document que je viens juste d'ouvrir.

J'ai codé:

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
Sub AutoOpen()
 
   Dim objDoc As Document, docp  As Document, Tableau() As String, i As Integer, fichier As String, code_local As String
 
   Dim retVal As Variant
 
   Set docp = Application.ActiveDocument
 
   ' Recherche des noms des documents à ouvrir.
   Set objDoc = Application.Documents.Open("Z:\TMP\d_xxxxxx.txt")    
   Tableau = Split(objDoc.Sentences.Item(1), ";")      
   objDoc.Close   
   Set objDoc = Nothing
 
   ' Identifiant du local
 
   code_local = Tableau(1) & "-" & Tableau(2) & "-" & Tableau(3) & "-" & Tableau(4) & "-" & Tableau(5)
 
   ' Traitement du .doc lié à l'ERNT
   fichier = "J:\Locatif\BAIL\ERNT\" & Tableau(0) & ".doc"
   If Dir(fichier) <> "" Then
       fichier = "J:\Locatif\BAIL\ERNT\" & Tableau(0) & ".doc"
       retVal = Shell("\\ff.fr\NETLOGON\WKIX32.exe \\ggi.ff.fr\NETLOGON\estia.kix $local=" + fichier + " /f")      
   End If   
 
   docp.Activate

Le focus devrait se mettre sur le 1er document, celui où j'ai fait Set docp = Application.ActiveDocument, non ? Il reste sur le .doc lié à l'ERNT et la fusion ne se fait pas.

Merci d'avance.

Julien.