"Selection" correspond au point d'insertion (Signet, balise, mot clé...)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager