Insérer la valeur d'une cellule Excel dans Word

[ouskel'n'or]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub InsérerLaValeurDuneClelluleExcelDansWord()
Dim XlAppli
Dim XlCl
Dim Xlfl
Dim Valeur
 
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open("D:\xls\Liste pour fusion.xls") '< le classeur
    Set Xlfl = XlCl.Worksheets("feuil1") '< la feuille
    Selection.TypeText Text:=Xlfl.Cells(4, 5).Value 'Insertion de la valeur de la cellule
    DoEvents 'laisse le temps au système de réaliser la copie
    XlCl.Close False 'ferme le classeur Excel sans enregistrer
    DoEvents ' laisse au système le temps de fermer le classeur
    XlAppli.Quit ' Ferme Excel
    Set XlAppli = Nothing ' supprime les instances
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub

"Selection" correspond au point d'insertion (Signet, balise, mot clé...)