de Word : copie de donnée provenant d'Excel

[LaurentG]

Bonjour,

J'ai un doc Word avec une macro qui va ouvrir un fichier excel scépcifié en tapant le nom dans un usf.

Dim appXl As Excel.Application
Dim Wb As Excel.Workbook

Set appXl = CreateObject('Excel.Application')
appXl.Visible = True
Set Wb = appXl.Workbooks.Open('C:\\' & TextBox1.Value & '.xls')

Mais j'aimerais qu'il me copie la valeur des celulles A1:C10 de la feuilles 1, qu'il me ferme le fichier Excel, et me colle dans word.

Quelqu'un sait comment s'y prendre?

Merci beaucoup

Laurent

 

[MichelXld]

bonjour

tu peux tester

Private Sub CommandButton1_Click()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook

Set appXl = CreateObject('Excel.Application')
appXl.Visible = True
Set Wb = appXl.Workbooks.Open('C:\\\\\\\\' & TextBox1.Value & '.xls')

Wb.Sheets('Feuil1').Range('A1:C10').Copy
ActiveDocument.Range.Paste

Wb.Close False
appXl.Quit
Unload Me
End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 09/11/2005 08:45