Bonjour
J' ai essayé ce code pour rapatrier sur un classeur les valeurs d'une
page Web entière, code qui ne fonctionne pas. La fin de la ligne Http
m'est personnelle, elle ouvre bien quand elle est sur la barre d'adresse
de FF; mais voila en vba il ne se passe rien. J'ose espérer qu'il y ai
une astuce que qq connait peut être sur Mpfe.
Public Sub ChercheWebSource()
Dim Dlgn As Byte
Dim Adweb$
Dlgn = [A50].End(3).Row
Sheets("Import").Select
[A:A].ClearContents
Adweb =
"http://www.msn.com/fr-fr/finance/liste-de-valeurs/fi-38723d2b-f58c-4cc7-9112-b7965bxxxxx"
With Sheets("Import").QueryTables.Add(Connection:=Adweb,
Destination:=Range("A1"))
.Name = "MSN Com"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JièL
Hello,
je serais tenté de dire qu'il manque la connexion au compte MS. Dans le navigateur il y a une connexion qui doit se faire pour accéder à la partie personnelle, je ne pense pas qu'elle se fasse à partir d'excel
-- JièL Connecté
Le 24/07/2015 11:57, Fredo P. a écrit :
Bonjour J' ai essayé ce code pour rapatrier sur un classeur les valeurs d'une page Web entière, code qui ne fonctionne pas. La fin de la ligne Http m'est personnelle, elle ouvre bien quand elle est sur la barre d'adresse de FF; mais voila en vba il ne se passe rien. J'ose espérer qu'il y ai une astuce que qq connait peut être sur Mpfe.
Public Sub ChercheWebSource() Dim Dlgn As Byte Dim Adweb$ Dlgn = [A50].End(3).Row Sheets("Import").Select [A:A].ClearContents Adweb > "http://www.msn.com/fr-fr/finance/liste-de-valeurs/fi-38723d2b-f58c-4cc7-9112-b7965bxxxxx"
je serais tenté de dire qu'il manque la connexion au compte MS.
Dans le navigateur il y a une connexion qui doit se faire pour accéder à
la partie personnelle, je ne pense pas qu'elle se fasse à partir d'excel
--
JièL Connecté
Le 24/07/2015 11:57, Fredo P. a écrit :
Bonjour
J' ai essayé ce code pour rapatrier sur un classeur les valeurs d'une
page Web entière, code qui ne fonctionne pas. La fin de la ligne Http
m'est personnelle, elle ouvre bien quand elle est sur la barre d'adresse
de FF; mais voila en vba il ne se passe rien. J'ose espérer qu'il y ai
une astuce que qq connait peut être sur Mpfe.
Public Sub ChercheWebSource()
Dim Dlgn As Byte
Dim Adweb$
Dlgn = [A50].End(3).Row
Sheets("Import").Select
[A:A].ClearContents
Adweb > "http://www.msn.com/fr-fr/finance/liste-de-valeurs/fi-38723d2b-f58c-4cc7-9112-b7965bxxxxx"
je serais tenté de dire qu'il manque la connexion au compte MS. Dans le navigateur il y a une connexion qui doit se faire pour accéder à la partie personnelle, je ne pense pas qu'elle se fasse à partir d'excel
-- JièL Connecté
Le 24/07/2015 11:57, Fredo P. a écrit :
Bonjour J' ai essayé ce code pour rapatrier sur un classeur les valeurs d'une page Web entière, code qui ne fonctionne pas. La fin de la ligne Http m'est personnelle, elle ouvre bien quand elle est sur la barre d'adresse de FF; mais voila en vba il ne se passe rien. J'ose espérer qu'il y ai une astuce que qq connait peut être sur Mpfe.
Public Sub ChercheWebSource() Dim Dlgn As Byte Dim Adweb$ Dlgn = [A50].End(3).Row Sheets("Import").Select [A:A].ClearContents Adweb > "http://www.msn.com/fr-fr/finance/liste-de-valeurs/fi-38723d2b-f58c-4cc7-9112-b7965bxxxxx"
