Correction de formule

[gagnonpeter]

Je désire avoir un macro me permettant de coller du contenu internet sur une feuille en particuler. Pour le moment, cette formule fonctionne mais le probleme c'est que le contenu apparait pas sur la feuille désiré. De plus, quand j'utilise le macro plusieurs fois, j'aimerais que les données écrase les anciennes.

**FORMULE DE DEPART**

Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://sepweb01:93/SIAL/PriseService.aspx", _
Destination:=Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False

End With

ActiveWorkbook.Save
End Sub


**J'AI ESSAYÉ CECI MAIS IL Y A UN BUG QUAND JE L'ESSAIE**

Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://sepweb01:93/SIAL/PriseService.aspx", _
Destination:=Sheet("IMAGE SIAL À COLLER").Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False

End With

ActiveWorkbook.Save
End Sub

 

[vgendron]

Re : Correction de formule

Bonsoir

essaie avec un s..
SheetS("IMAGE SIAL À COLLER").Range("A1"))

 

[gagnonpeter]

Re : Correction de formule

je l'ai essayé avec un S mais sans succes. La première formule fonctionne bien mais dès que j'essaie de changer la destination du contenu ça fonctionne pas. Peut-être y aurait-il une autre solution?

 

[gagnonpeter]

Re : Correction de formule

En fesant cette formule, j'ai pris soin de lire le "bug".

---------
Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://sepweb01:93/SIAL/PriseService.aspx", _
Destination:=Sheets("IMAGE SIAL À COLLER").Range("A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False

End With

ActiveWorkbook.Save
End Sub
---------
Voici la réponse... "La plage de destination n'est pas la même feuille de calcul que celle dans lequelle la table de requête est créée"

Pourtant, Si je laisse la formule sans le correctif de destination, ca fonctionne.