Discussion :

[Georges P]

Bonjour,

je souhaite piloter Word avec D7. un problème se pose lors de la fusion de 3 cellules d'un tableau, voici le code que j'emploi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
TableauLTV.cell(2,1).select;
LLine:=  wdLine;
Lindex:= 2;
LExtend:= wdExtend;
WordApplication1.Selection.MoveDown(LLine,Lindex,LExtend);
WordApplication1.Selection.Cells.Merge;

je sélectionne donc 3 cellules et les fusione, cependant un problème connu de MicroSoft apparait parfois lorsque Word est non visible :
http://support.microsoft.com/kb/235876/fr

ce site recommande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
doc.Range(Start:=doc.Tables(1).Cell(1, 1).Range.Start, _
                End:=doc.Tables(1).Cell(3, 1).Range.End).Select
 
à la place de 
Selection.MoveDown wdLine, 2, wdExtend

je tente d'adapter en D7:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
TableauLTV.cell(2,1).select;
LLine := DocWord.Tables.item(10).Cell(2,1);
Lindex:= DocWord.Tables.item(10).Cell(4,1);
DocWord.Range(LLine,Lindex).select; // error ici argument incorrect !!
WordApplication1.Selection.Cells.Merge;

mais j'ai une erreur ici : DocWord.Range(LLine,Lindex).select; // error ici argument incorrect !!