1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim Plage As Range
Dim TabTemp As Variant
Dim vUrl As String
Dim dernLign As Long, L As Long
Dim DernCol As Integer
‘’…………………………
DernCol = .Cells(1, .Columns.Count).End(xlToLeft).Column ‘défini dernier colonne
dernLign = .Cells(.Rows.Count, 2).End(xlUp).Row ‘défini dernière ligne
Set Plage = .Range(.Cells(2, 2), .Cells(dernLign, DernCol)) ‘affectation plage
TabTemp = Plage.Value
For L = 1 To UBound(TabTemp) 'boucle
vUrl = Plage.Cells(L, 2).Hyperlinks(1).Address 'recup de lien
recuphisto1 vUrl, dernLign + 1 ‘en QueryTables.Add
Next L |
