etablier une connexion web

[raidinio]

Bonjour,

actuellement je suis sur un fichier excel et je souhaite recuperer des données d'une page web verouille. jusque la j'arrive à telecharger les données je fais données> données externes> nouvelles requetes.
j'ai creer une macro de facon des que je clique su ma macro je recupere automatiquement les données, sauf que chaque fois que j'ouvre mon fichier excel une deuxiéme fois je dois modifier la requete pour que ma macro marche en fait je dois aller dans données> données externes> modifier la requete sinon j'ai un tableau tout blanc. est-ce qq peut m'aider

merci d'avance

 

[Minick]

Re : etablier une connexion web

Dans un classeur vierge va dans le menu Outils/Macro/Nouvelle macro puis OK

Ensuite tu fais ta requete sur le web via le menu Donnees/Données Externes...
Tu mets l'adresse de ton site et tu selectionnes la table a recuperer et tu valides.

Quand les données sont rapatriees tu arretes l"enregistreur menu Outils/Macro/Arreter l'enregistreur.

Et enfin tu vas voir le code qui a ete genere et tu reperes la ligne

.WebTables = "xxxx"

que tu reportes dans ton classeur normal.

 

[raidinio]

Re : etablier une connexion web

en fait si pour le webtable j'ai bien le bon chiffre depuis le debut c deja dans le code:
WebTableNb = Range("WebTableNb"). j'ai suivi ta methode et j'ai le mm resultat, sauf que ca marche tjrs pas

merci

 

[Minick]

Re : etablier une connexion web

ooops effectivement je l'avais zappe.

Une derniere chose apres je seche...

Essaie de lancer ce code avant de faire ta recuperation.

Sub DelQry()
    Dim Qry As QueryTable
    
    For Each Qry In ActiveSheet.QueryTables
        Qry.Delete
    Next Qry
End Sub

 

[SubEndSub]

Re : etablier une connexion web

Bonjour chez vous


En commentant cette ligne peut-être ?

'

To remove the query definition in the sheet
.Delete

 

[raidinio]

Re : etablier une connexion web

ca change rien

merci

 

[Minick]

Re : etablier une connexion web

Re,

Moi je seche la.... désolé...

 

[raidinio]

Re : etablier une connexion web

merci comme mm de ton aide Minick