Recuperer elements <TABLE>

Bon j'ai fini par trouver dans un livre specialisé voila le code que j'ai réalisé pour ceux que ca interesserait...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub recup_liste()
'30 ~
Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur_ref.xls"
 
With Workbooks("classeur_ref.xls").ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://shared-workspaces.corp.intraxa/GroupSolutions/Support/Propale/Lists/DP%202010/PersonalViews.aspx?PageView=Personal&ShowWebPart={98A4C37D-DA1E-4A86-B959-38884A696D30}", _
Destination:=Range("A1"))
.Name = "USD"
'.HasTitle = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "30"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
 
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("B:B,D:D").Select
Selection.Delete Shift:=xlToLeft
 
Workbooks("classeur_ref.xls").Close True
 
End Sub

Les 7.8 dernieres lignes correspondant à la supression des lignes et colones qui ne m'interesse pas.

Enfin la ligne:

Code:

.WebTables = "30"

me permet de dire que je souhaite recuperer le contenue du 30eme element table (l'indice commencant à 0!) 8-)

Chipss