Discussion :

[alain jourdan]

J'ouvre un document de fusion word, j'exécute la fusion et je sauvegarde le document de fusion.
Cela fonctionne très bien tout seul. Par contre quand un 2ème utilisateur fait le même travail en même temps, j'ai un message:

nom.doc est vérouillé pour modification par 1er utilsateur

-voulez vous ouvrir une copie en lecture seule
-créer une copie locale et fusionner les modifs ultérieurement
-recevoir une notification quand la copie d'origine est disponible

le 2ème utilisateur a:
impossible de terminer l'enregistrement : erreur d'autorisation d'accès au fichier. (nom.doc)

code :

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
29
 
w1.Connect;
ol:='v:\ppr\relance_cram.doc';
wd1:=w1.Documents.Open(ol,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);
with wd1.mailmerge do
begin
Destination:=wdsendtonewdocument;
suppressblanklines:=true;
datasource.FirstRecord:=wddefaultfirstrecord;
datasource.LastRecord:=wddefaultlastrecord;
pause:=false;
execute(pause);
end;
 
try
deletefile(fichier);
except
 
end;
 
newword:=w1.ActiveDocument;
newword.SaveAs(fichier,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam
,emptyparam,emptyparam,emptyparam);
 
w1.activedocument.saved:=true;
wd1.Close(emptyparam,emptyparam,emptyparam);
w1.quit;
w1.Disconnect;

w1 est un Twordapplication
wd1 est une variable _document

merci de me donner une solution.

[anapurna]

salut

solution simple tu n'attaque pas les fichier au travers d'un reseaux.
au lancement de ton appli tu efface et recopie tout les document model sur le poste local
et tu utilise les model du disque local

@+ Phil