Récupération de données sur internet

Signaler
Messages postés
1
Date d'inscription
lundi 1 décembre 2008
Statut
Membre
Dernière intervention
7 mars 2012
-
Bonjour à tous,

Voila j'essaye de créer un code me permettant de récupérer des données sur une page web et de l'inscrire sur ma feuille excel en me servant d'une macro VBA.

Mon soucis semble provenir de la déclaration de ma variable fich mais étant débutant je ne sais pas comment je dois la déclarer...

Option Explicit

Sub Equivalent_sable()

    Dim fich As Object 'pas sur
    
    Set fich = Workbooks.Open("http://www.boutique.afnor.org/NEL5DetailNormeEnLigne.aspx?CLE_ART=FA172274&nivCtx=NELZNELZ1A10A101A107&ts=3559176")
    
    Cells(5, 6) = fich.Sheets(1).Cells.Find("NF EN 933-8", , , xlWhole).Offset(0, 1)

    fich.Close (False) '(referme la page Web)
    
End Sub


Je vous remercie