Mise à jour d'une sheet via internet

[mortaurat]

Bonjour,
je recherche à mettre à jour une feuille avec un fichier excel d'un lien internet, mais évidement sa marche pas =)

voici le code de ma macro:

Sub coursdujour()
Dim i, j, k, colonne, rang As Integer
Dim nom_action, code_isin As String

j = 0
k = 1

Sheets("codeAction").Activate 'on se place sur la page codeAction
nom_action = Cells(k, 3) 'reçoit le nom de la premiere action
code_isin = Cells(k, 2)
While nom_action <> "" 'tant qu'il n'y a pas de case vide
i = 0
Sheets("temporaire").Activate 'va sur la page temporaire
ActiveSheet.Cells.Clear 'clear la page
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; , Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub

Une idée ?

Merci

 

[MJ13]

Re : Mise à jour d'une sheet via internet

Bonjour mortaurat

Va voir peut-être ici:

https://www.excel-downloads.com/thr...e-html-pour-creer-une-base-de-donnees.160810/

 

[mortaurat]

Re : Mise à jour d'une sheet via internet

Merci bien,
j'ai trouvé mon erreur =)

 

[mortaurat]

Re : Mise à jour d'une sheet via internet

Sub coursdujour()
Dim i, j, k, colonne, rang As Integer
Dim nom_action, code_isin, valuesin, cours_intraday As String

j = 0
k = 1

Sheets("codeAction").Activate 'on se place sur la page codeAction
nom_action = Cells(k, 3) 'reçoit le nom de la premiere action
code_isin = Cells(k, 2)
While nom_action <> "" 'tant qu'il n'y a pas de case vide
i = 0
Sheets("temporaire").Activate 'va sur la page temporaire
ActiveSheet.Cells.Clear 'clear la page
'valuesin = MsgBox("URL;http://www.euronext.com/tools/datacentre/dataCentreDownloadExcell.jcsv?cha=2634&lan=FR&fileFormat=xls&separator=.&dateFormat=dd/MM/yy&isinCode=" & code_isin & "&selectedMep=1&typeDownload=1\", vbOKOnly)

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.euronext.com/tools/datacentre/dataCentreDownloadExcell.jcsv?cha=2634&lan=FR&fileFormat=xls&separator=.&dateFormat=dd/MM/yy&isinCode=" & code_isin & "&selectedMep=1&typeDownload=1\", Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With

While Cells(3, i) <> "Dernier" 'recupere le dernier cours
i = i + 1
Wend
cours_intraday = Cells(4, i)

Sheets("nom_action").Activate
i = 0

While Cells(i + 7, 5) <> "" 'tant que pas fin de derniere valeur
i = i + 1
Wend
Cells(i + 1, 5) = cours_intraday

'passe à une autre action
k = k + 1
nom_action = Sheets("codeAction").Cells(k, 3) 'reçoit le nom d'une autre action s'il y en a une
code_isin = Sheets("codeAction").Cells(k, 2) 'reçoit le code isin d'une autre action
Wend 'end while

End Sub