Salut Corrie,
Salut et merci Galopin, le fichier est enfin arrivé !
@Galopin - Astucieux la mise des noms de tableaux en Array : ça évite le Module ! J'y penserai la prochaine fois
@Corrie - nouvelle version en amalgamant les deux tableaux de 'Copy_Extract' en un seul : t_Base.
En corollaire, j'ai du modifier le code d'extraction Web Link... que je n'ai pu tester, le lien ne fonctionnant pas sans une certification, sans doute..
Private Sub cmdWEB_Click()
'
T = Timer
On Error Resume Next
Application.ScreenUpdating = False
'
With CreateObject("Selenium.ChromeDriver")
.AddArgument "--headless"
For x = 1 To [t_Base].Rows.Count
.Get Cells(x + 1, 14)
.FindElementById("data_interval").AsSelect.SelectByText ([t_Base].Item(x, 7))
[t_Base].Item(x, 10) = .FindElementById("curr_table").FindElementsByTag("tr")(2).FindElementsByTag("td")(1).Text
[t_Base].Item(x, 9) = .FindElementById("curr_table").FindElementsByTag("tr")(2).FindElementsByTag("td")(2).Text
[N1].Value = Round((x - 1) / (LastRow - 2), 2)
[k1].Value = "Progress : " & Round((x - 1) * 100 / (LastRow - 2), 0) & " %"
Next
.Quit
End With
'
Me.cmdExport.Enabled = True
Application.ScreenUpdating = True
MsgBox "Time:" & Round(Timer - T, 0) & " seconds"
'
End Sub
Il y a encore de la place pour des améliorations de sécurité et/ou de confort.
- par exemple, les colonnes "Price" et suivante seront effacées lorsque tu copieras les data de [Extract] vers [t_Base] avec désactivation du bouton bleu ;
- le bouton bleu "Copy From [t_Base] To There Individual Worksheet" ne sera Enabled = True qu'après mise à jour via "Start Web Link" ;
- il est très possible de déclencher ce Web Link automatiquement en fonction du réglage Time Frame ;
- après mise à jour générale, on pourrait à nouveau désactiver le bouton bleu jusqu'au prochain Web Link ;
- etc...
Mais, dans un premier temps, histoire de vérifier la cohérence de mon code, je serais curieux d'avoir un retour sur celui-ci !
A+