Version imprimable
Salut à tous,
Encore moi... Hum :roll:
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 :mouarf: ? Sinon, comment puis-je faire ?
A++
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
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+
techniquement mettre la destination à Null devrait envoyer le tout dans le clipboard...
Code:ExcelWorkSheet.Range['A2', 'B5'].copy(EmptyParam); //envoit la plage A2-B5 dans le clipboard...
Merci pour ta réponse :).Citation:
Envoyé par Eric Boisvert
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:
2
3
4
5
6
7
8
9
10ConnectToExcel; 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;