Une requête qui résiste !

Daniel

19/01/2006 à 17:45

Bonjour.
Fichier / Propriétés cocher "enregistrer l'image de l'aperçu".
Cordialement.
Daniel
"alesiom" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire une requête pour cette page internet donnée
pour l'exemple :

http://www.boursorama.com/palmares/palmares.phtml

Malheureusement, Excel n'arrive pas à l'importer. J'ai le message
d'erreur suivant :
"Impossible d'ouvrir ... Connexion internet établie mais impossible de
récupérer les données"

D'ou ma question naïve peut-etre :
Est-ce que le propriétaire du site peut refuser que l'on puisse
établir des requêtes externes sur son site ?

Merci beaucoup,

Cordialement,

Daniel

19/01/2006 à 17:48

Désolé pour cette réponse destiné à une autre question !
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Fichier / Propriétés cocher "enregistrer l'image de l'aperçu".
Cordialement.
Daniel
"alesiom" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire une requête pour cette page internet donnée
pour l'exemple :

http://www.boursorama.com/palmares/palmares.phtml

Malheureusement, Excel n'arrive pas à l'importer. J'ai le message
d'erreur suivant :
"Impossible d'ouvrir ... Connexion internet établie mais impossible de
récupérer les données"

D'ou ma question naïve peut-etre :
Est-ce que le propriétaire du site peut refuser que l'on puisse
établir des requêtes externes sur son site ?

Merci beaucoup,

Cordialement,

alesiom

19/01/2006 à 18:26

Bonsoir Daniel,

Je sois avouer que j'y ai cru pendant quelques secondes ;-)

Cordialement,

Antoine

michdenis

19/01/2006 à 18:35

Bonjour Alesiom,

j'ai fait un test et le résultat est négatif....

C'est ce qu'il faut savoir, ce ne sont pas tous les sites
qui se prêtent bien à des importations de données de ce
type. Ces données
doivent avoir été créé en utilisant, je crois « des
tableaux » au moment de la conception du ou des sites
internet visés. Or, je
suppose que certains créateurs de site internet ne sont,
soient pas au courant de la chose ou soit qu'ils le font
volontairement
lorsqu'il s'agit de rendre accessible les données qu'ils
publient sur leur site.

Quoi qu'il en soit, lorsque tu es sur le site en question,
à partir du menu (Internet Explorer) Affichage/Source/le
code HTML de la
page visée s'affiche et là, avec un petit peu de pratique
et de perspicacité, tu peux déceler le « numéro du tableau »
où sont
inscrites les données que tu veux importer. (Je n'ai pas
dit que cela était facile!!!)

Dans le code que je t'ai soumis, ce numéro se transmet à
cette ligne de code :
'Import the 5th table on the page
.WebTables = "5"
La signification de ce "5" renseigne Excel à savoir que tu
veux la 5e table de ladite page qui est en faite la
cinquième occurrence
d'un "Tag " <Table> dans le code HTML.

Pour récupérer des données sur un site Web dans excel,
voici une adresse qui pourrait te mettre le pied à l'étrier :

http://office.microsoft.com/fr-ca/assistance/HA010450851036.aspx

Voici un exemple complet issu du volume :
"Excel 2002 Programmer's Reference" créé par
Stephen Bullen, John Green, Rob Bovey, Robert Rosemberg
ISBN: 1861005709

'----------------------------------------
Sub GetRatesWithWebQuery()

Dim oBk As Workbook
Dim oQT As QueryTable

'Store the current settings of Excel's number formatting
Dim sDecimal As String
Dim sThousand As String
Dim bUseSystem As Boolean

'Create a new workbook
Set oBk = Workbooks.Add

'Create a query table to download USD rates
With oBk.Worksheets(1)
Set oQT = .QueryTables.Add( _
Connection:="URL;http://www.x-rates.com/tables/USD.html", _
Destination:=.Range("A1"))
End With

'Set the QueryTable's properties
With oQT
.Name = "USD"

'State that we're selecting a specific table
.WebSelectionType = xlSpecifiedTables

'Import the 5th table on the page
.WebTables = "5"

'Ignore the web page's formatting
.WebFormatting = xlWebFormattingNone

'Do not try to recognise dates
.WebDisableDateRecognition = True

'Don't automatically refresh the query each time the file is opened
.RefreshOnFileOpen = False

'Waiting for the query to complete before continuing
.BackgroundQuery = True

'Save the query data with the workbook
.SaveData = True

'Adjust column widths to autofit new data
.AdjustColumnWidth = True
End With

With Application
'Remember Excel's current number format settings
sDecimal = .DecimalSeparator
sThousand = .ThousandsSeparator
bUseSystem = .UseSystemSeparators

'Set Excel's separators to match those of the web site
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = True

'Ignore any errors raised by the query failing
On Error Resume Next

'Perform the query, waiting for it to complete
oQT.Refresh BackgroundQuery:úlse

'Reset Excel's number format settings
.DecimalSeparator = sDecimal
.ThousandsSeparator = sThousand
.UseSystemSeparators = bUseSystem
End With

End Sub
'----------------------------------------

Salutations!

"alesiom" a écrit dans le message de news:
Bonjour,

Je souhaiterais faire une requête pour cette page internet donnée
pour l'exemple :

http://www.boursorama.com/palmares/palmares.phtml

Malheureusement, Excel n'arrive pas à l'importer. J'ai le message
d'erreur suivant :
"Impossible d'ouvrir ... Connexion internet établie mais impossible de
récupérer les données"

D'ou ma question naïve peut-etre :
Est-ce que le propriétaire du site peut refuser que l'on puisse
établir des requêtes externes sur son site ?

Merci beaucoup,

Cordialement,

Bonjour Alesiom,

j'ai fait un test et le résultat est négatif....

C'est ce qu'il faut savoir, ce ne sont pas tous les sites
qui se prêtent bien à des importations de données de ce
type. Ces données
doivent avoir été créé en utilisant, je crois « des
tableaux » au moment de la conception du ou des sites
internet visés. Or, je
suppose que certains créateurs de site internet ne sont,
soient pas au courant de la chose ou soit qu'ils le font
volontairement
lorsqu'il s'agit de rendre accessible les données qu'ils
publient sur leur site.

Quoi qu'il en soit, lorsque tu es sur le site en question,
à partir du menu (Internet Explorer) Affichage/Source/le
code HTML de la
page visée s'affiche et là, avec un petit peu de pratique
et de perspicacité, tu peux déceler le « numéro du tableau »
où sont
inscrites les données que tu veux importer. (Je n'ai pas
dit que cela était facile!!!)

Dans le code que je t'ai soumis, ce numéro se transmet à
cette ligne de code :
'Import the 5th table on the page
.WebTables = "5"
La signification de ce "5" renseigne Excel à savoir que tu
veux la 5e table de ladite page qui est en faite la
cinquième occurrence
d'un "Tag " <Table> dans le code HTML.

Pour récupérer des données sur un site Web dans excel,
voici une adresse qui pourrait te mettre le pied à l'étrier :

http://office.microsoft.com/fr-ca/assistance/HA010450851036.aspx

Voici un exemple complet issu du volume :
"Excel 2002 Programmer's Reference" créé par
Stephen Bullen, John Green, Rob Bovey, Robert Rosemberg
ISBN: 1861005709

'----------------------------------------
Sub GetRatesWithWebQuery()

Dim oBk As Workbook
Dim oQT As QueryTable

'Store the current settings of Excel's number formatting
Dim sDecimal As String
Dim sThousand As String
Dim bUseSystem As Boolean

'Create a new workbook
Set oBk = Workbooks.Add

'Create a query table to download USD rates
With oBk.Worksheets(1)
Set oQT = .QueryTables.Add( _
Connection:="URL;http://www.x-rates.com/tables/USD.html", _
Destination:=.Range("A1"))
End With

'Set the QueryTable's properties
With oQT
.Name = "USD"

'State that we're selecting a specific table
.WebSelectionType = xlSpecifiedTables

'Import the 5th table on the page
.WebTables = "5"

'Ignore the web page's formatting
.WebFormatting = xlWebFormattingNone

'Do not try to recognise dates
.WebDisableDateRecognition = True

'Don't automatically refresh the query each time the file is opened
.RefreshOnFileOpen = False

'Waiting for the query to complete before continuing
.BackgroundQuery = True

'Save the query data with the workbook
.SaveData = True

'Adjust column widths to autofit new data
.AdjustColumnWidth = True
End With

With Application
'Remember Excel's current number format settings
sDecimal = .DecimalSeparator
sThousand = .ThousandsSeparator
bUseSystem = .UseSystemSeparators

'Set Excel's separators to match those of the web site
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = True

'Ignore any errors raised by the query failing
On Error Resume Next

'Perform the query, waiting for it to complete
oQT.Refresh BackgroundQuery:úlse

'Reset Excel's number format settings
.DecimalSeparator = sDecimal
.ThousandsSeparator = sThousand
.UseSystemSeparators = bUseSystem
End With

End Sub
'----------------------------------------

Salutations!

"alesiom" <antoine.wietrich@wanadoo.fr> a écrit dans le message de news: 1137678974.580954.176960@z14g2000cwz.googlegroups.com...
Bonjour,

Je souhaiterais faire une requête pour cette page internet donnée
pour l'exemple :

http://www.boursorama.com/palmares/palmares.phtml

Malheureusement, Excel n'arrive pas à l'importer. J'ai le message
d'erreur suivant :
"Impossible d'ouvrir ... Connexion internet établie mais impossible de
récupérer les données"

D'ou ma question naïve peut-etre :
Est-ce que le propriétaire du site peut refuser que l'on puisse
établir des requêtes externes sur son site ?

Merci beaucoup,

Cordialement,

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Alesiom,

j'ai fait un test et le résultat est négatif....

C'est ce qu'il faut savoir, ce ne sont pas tous les sites
qui se prêtent bien à des importations de données de ce
type. Ces données
doivent avoir été créé en utilisant, je crois « des
tableaux » au moment de la conception du ou des sites
internet visés. Or, je
suppose que certains créateurs de site internet ne sont,
soient pas au courant de la chose ou soit qu'ils le font
volontairement
lorsqu'il s'agit de rendre accessible les données qu'ils
publient sur leur site.

Quoi qu'il en soit, lorsque tu es sur le site en question,
à partir du menu (Internet Explorer) Affichage/Source/le
code HTML de la
page visée s'affiche et là, avec un petit peu de pratique
et de perspicacité, tu peux déceler le « numéro du tableau »
où sont
inscrites les données que tu veux importer. (Je n'ai pas
dit que cela était facile!!!)

Dans le code que je t'ai soumis, ce numéro se transmet à
cette ligne de code :
'Import the 5th table on the page
.WebTables = "5"
La signification de ce "5" renseigne Excel à savoir que tu
veux la 5e table de ladite page qui est en faite la
cinquième occurrence
d'un "Tag " <Table> dans le code HTML.

Pour récupérer des données sur un site Web dans excel,
voici une adresse qui pourrait te mettre le pied à l'étrier :

http://office.microsoft.com/fr-ca/assistance/HA010450851036.aspx

Voici un exemple complet issu du volume :
"Excel 2002 Programmer's Reference" créé par
Stephen Bullen, John Green, Rob Bovey, Robert Rosemberg
ISBN: 1861005709

'----------------------------------------
Sub GetRatesWithWebQuery()

Dim oBk As Workbook
Dim oQT As QueryTable

'Store the current settings of Excel's number formatting
Dim sDecimal As String
Dim sThousand As String
Dim bUseSystem As Boolean

'Create a new workbook
Set oBk = Workbooks.Add

'Create a query table to download USD rates
With oBk.Worksheets(1)
Set oQT = .QueryTables.Add( _
Connection:="URL;http://www.x-rates.com/tables/USD.html", _
Destination:=.Range("A1"))
End With

'Set the QueryTable's properties
With oQT
.Name = "USD"

'State that we're selecting a specific table
.WebSelectionType = xlSpecifiedTables

'Import the 5th table on the page
.WebTables = "5"

'Ignore the web page's formatting
.WebFormatting = xlWebFormattingNone

'Do not try to recognise dates
.WebDisableDateRecognition = True

'Don't automatically refresh the query each time the file is opened
.RefreshOnFileOpen = False

'Waiting for the query to complete before continuing
.BackgroundQuery = True

'Save the query data with the workbook
.SaveData = True

'Adjust column widths to autofit new data
.AdjustColumnWidth = True
End With

With Application
'Remember Excel's current number format settings
sDecimal = .DecimalSeparator
sThousand = .ThousandsSeparator
bUseSystem = .UseSystemSeparators

'Set Excel's separators to match those of the web site
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = True

'Ignore any errors raised by the query failing
On Error Resume Next

'Perform the query, waiting for it to complete
oQT.Refresh BackgroundQuery:úlse

'Reset Excel's number format settings
.DecimalSeparator = sDecimal
.ThousandsSeparator = sThousand
.UseSystemSeparators = bUseSystem
End With

End Sub
'----------------------------------------

Salutations!

"alesiom" a écrit dans le message de news:
Bonjour,

Je souhaiterais faire une requête pour cette page internet donnée
pour l'exemple :

http://www.boursorama.com/palmares/palmares.phtml

Malheureusement, Excel n'arrive pas à l'importer. J'ai le message
d'erreur suivant :
"Impossible d'ouvrir ... Connexion internet établie mais impossible de
récupérer les données"

D'ou ma question naïve peut-etre :
Est-ce que le propriétaire du site peut refuser que l'on puisse
établir des requêtes externes sur son site ?

Merci beaucoup,

Cordialement,

Une requête qui résiste !

4 réponses

Veuillez sélectionner un problème