Hello,
J'ai beau regarder dans la FAQ, je ne vois pas comment connaitre l'indice de le dernière colonne/ligne non vide d'une feuille excel ?
J'ai bidouillé le code suivant qui a l'air de fonctionner (permet de coller une "feuille excel" à l'emplacement d'un signet word).
Le problème c'est que je ne vois pas comment ne sélectionner que la "zone utile" de ma feuille excel (= quoi mettre à la place de excelapp.ActiveSheet.Range("a1:i10").Select )
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 RAFRAICHIR_TABLEAU(VVST_BOOKM, VVST_PTXLS, VVST_PTXML) ' ' insere un tableau à l'emplacement du signet VVST_BOOKM ' le tableau est construit a partir du fichier excel VVST_PTXLS ' en remplaçant les données par défaut par les données contenues dans le xml situé à l'emplacement VVST_PTXML Dim excelapp As Excel.Application Set excelapp = CreateObject("excel.application") excelapp.Visible = False 'excel reste masqué pendant l'opéraion Dim wbk As Excel.Workbook Set wbk = excelapp.Workbooks.Open(ActiveDocument.Path & "\XLS\" & VVST_PTXLS) 'ouvre le document excel wbk.XmlMaps(1).Import ActiveDocument.Path & "\XML\" & VVST_PTXML, True wbk.XmlMaps(1).DataBinding.Refresh excelapp.ActiveSheet.Range("a1:i10").Select ' COMMENT ne sélectionner que la zone utile ?? excelapp.Selection.Copy ActiveDocument.Bookmarks(VVST_BOOKM).Range.Paste end sub
D'avance merci,
V1nce
Partager