Discussion :

[v1nce]

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

[v1nce]

bon c'était tout con.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(VVST_FEUIL).UsedRange.Select