Discussion :

[Colbix]

Salut à tous,
Encore moi... Hum

J'arrive à faire ma connexion à Word et à Excel. Écrire quelque chose dans Word.

Maintenant, il me faudrait copier l'ensemble des cellules utilisées du fichier Excel et le copier dans le fichier Word.

Est ce qu'il existe des fonctions simple du style mySelect.toClipBoard ? Sinon, comment puis-je faire ?

A++

[mick605]

Salut

Je sais que pour coller sous excel, tu peux faire Excel.Paste ... Donc j'imagine que pour word c'est la meme chose ... Je pense qu'une recherche google peut t'avancer ... Pour sélectionner des cellules sous excel, tu fais : Excel.Range[aRange].Select;

Bonne chance

Mick605

[Colbix]

Merci pour ta réponse .

J'ai trouvé sur word le "WordApp.Selection.Paste;".

Pour la sélection, ca marche et j'ai même trouvé d'autre possibilité avec les "mySheet.Range".

J'ai surtout du mal à copier les cellules sélectionnées... Le Copy des Excel demande une destination dont le type est "OleVariant". Comment le mettre dans le clipboard pour l'utiliser ensuite dans word ou l'envoyer directement vers word ?


A+

[Eric Boisvert]

techniquement mettre la destination à Null devrait envoyer le tout dans le clipboard...

Code :

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

ExcelWorkSheet.Range['A2', 'B5'].copy(EmptyParam); //envoit la plage A2-B5 dans le clipboard...

[Colbix]

techniquement mettre la destination à Null devrait envoyer le tout dans le clipboard...

Code :

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

ExcelWorkSheet.Range['A2', 'B5'].copy(EmptyParam); //envoit la plage A2-B5 dans le clipboard...

Merci pour ta réponse .
En effet, avec le paramètre vide, ca marche. Je n'ai pas essayé avec le copy. j'ai utilisé le cut.

voici mon code pour le copier dans word (pour ceux que ca intéresse) :

Code :

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

1
2
3
4
5
6
7
8
9
10
    ConnectToExcel;
    ExcelWorkBook := ExcelApp.Workbooks.Open('h:\Desktop\aaa.xls',False,False,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
    ExcelSheet := ExcelApp.Worksheets[1] as _Worksheet;
 
    ExcelApp.Range['A1', 'Z200'].Cut(EmptyParam);
    WordApp.Selection.Paste;
//    WordDoc.Tables.Item(WordDoc.Tables.Count).Columns.AutoFit;
    ExcelApp.Quit;