Attribute VB_Name = "Module1"
Sub cours_historiques()
sicovam = Format(InputBox("code sicoval ?", "Entrez le code Sicovam", 12007), "000000")
date_cours = -InputBox("rechercher un cours datant de (nombre de séances) ?" & Chr(13) & "(maximum 10 séances)", "séance", 3)
Workbooks.Open "http://marches.latribune.fr/pgm/wb2000.html?mle=/docs/web/doc/tr2000/mle/historique2.mle&env=01CO020E0000000700000000000000000120400G0400000E00000000001000000000000000_000000000000000000000R00000000000000000002&G1_SICOVAM=" & sicovam & "&histo=" & date_cours
Set tabl = ActiveSheet.Range("Table_4")
tabl.Cells.MergeCells = False
Set tr = tabl.Find(What:="valeur", LookAt:=xlPart, MatchCase:=False)
If Not tr Is Nothing Then nom = tr.Offset(0, 1)
Set tr = tabl.Find(What:="date", LookAt:=xlPart, MatchCase:=False)
If Not tr Is Nothing Then date_cours = tr.Offset(0, 1)
Set tr = tabl.Find(What:="clôture", LookAt:=xlPart, MatchCase:=False)
If Not tr Is Nothing Then cours = tr.Offset(0, 1)
ActiveWorkbook.Close (False)
MsgBox "le cours de " & nom & " au " & date_cours & " était de " & cours & " Euros"
End Sub