Sous Word 2010 comment récupérer des données Excel ?

Bonjour à tous
Dans une macro, comment récupérer des données d'un fichier Excel ?
Merci de votre aide.

Claude Azoulai

Bonjour,

il te faut activer la librairie sous VBA "Microsoft Excel" puis déclarer les variables qui vont bien.

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim oExcel As Excel.Application Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open(<chemin du fichier excel>)   'copie d'une plage de cellules oWB.Sheets(1).Range("A1:AO50").Copy   'retour dans word: ' coller en format image Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False       'fermeture fu fichier excel oWB.close

---

Bonjour Nico820,

J'aimerai savoir comment récupérer la valeur d'une cellule excel sans coller la cellule sur word? (J'aimerai directement mettre la valeur d'une cellule excel dans un tableau virtuel afin de pouvoir la réutiliser dans ma macro)

Merci

Ca devrait être possible en pointant directement sur la ligne dans Word et en lui assignat la valeur de la cellule venant d'Excel.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim oExcel As Excel.Application Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open(<chemin du fichier excel>)   Dim Variable_1 as string   'Récupère la valeur de la cellule A1 Variable_1 = oWB.Sheets("Nom de ta feuille excel").Cells(1,1).value   oWB.close   Set oExcel = Nothing Set oWB = Nothing

---