requete sur le web

Le
pat
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere des données
sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With
ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01.htm",
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel Pierron
Le #1264855
Bonsoir Pat;
Pourquoi pas simplement:
Sub requete()
Const strURL As String = "http://pleguet.free.fr/01.htm"
With ActiveSheet
.Range("A1") = strURL
With .QueryTables.Add(Connection:="URL;" & strURL,
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End With
End Sub

MP
"pat" a écrit dans le message de
news:4086a32f$0$26995$
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere des
données

sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With

ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01.htm",

Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub




Répondre en citant
pat
Le #1264854
merci, je teste
patrick
"Michel Pierron" news:%
Bonsoir Pat;
Pourquoi pas simplement:
Sub requete()
Const strURL As String = "http://pleguet.free.fr/01.htm"
With ActiveSheet
.Range("A1") = strURL
With .QueryTables.Add(Connection:="URL;" & strURL,
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End With
End Sub

MP
"pat" a écrit dans le message de
news:4086a32f$0$26995$
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere des
données

sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With



ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01.htm",

Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub








Répondre en citant
pat
Le #1264853
Bonjour Michel,
Merci pour ton aide,
Ta macro marche bien, mais je ne voulais pas inscrire l'url en a1, mais je
voudrais recuperer l'url qui est inscrite en a1. Cette url varie chaque
jour.
Suis-je plus clair ?
Cordialement
patrick
"Michel Pierron" news:%
Bonsoir Pat;
Pourquoi pas simplement:
Sub requete()
Const strURL As String = "http://pleguet.free.fr/01.htm"
With ActiveSheet
.Range("A1") = strURL
With .QueryTables.Add(Connection:="URL;" & strURL,
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End With
End Sub

MP
"pat" a écrit dans le message de
news:4086a32f$0$26995$
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere des
données

sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With



ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01.htm",

Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub








Répondre en citant
Clément Marcotte
Le #1264848
Bonjour,

Si j'ai bien compris:

lurldujour = range("a1").value


"pat" a écrit dans le message de
news:4086b2ac$0$17620$
Bonjour Michel,
Merci pour ton aide,
Ta macro marche bien, mais je ne voulais pas inscrire l'url en a1,
mais je

voudrais recuperer l'url qui est inscrite en a1. Cette url varie
chaque

jour.
Suis-je plus clair ?
Cordialement
patrick
"Michel Pierron" news:%
Bonsoir Pat;
Pourquoi pas simplement:
Sub requete()
Const strURL As String = "http://pleguet.free.fr/01.htm"
With ActiveSheet
.Range("A1") = strURL
With .QueryTables.Add(Connection:="URL;" & strURL,
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End With
End Sub

MP
"pat" a écrit dans le message de
news:4086a32f$0$26995$
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere
des



données
sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With





ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01

.htm",
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub












Répondre en citant
pat
Le #1264843
Merci beaucoup a vous tout marche impec
cordialement
patrick
"Clément Marcotte" de news:ef7C$
Bonjour,

Si j'ai bien compris:

lurldujour = range("a1").value


"pat" a écrit dans le message de
news:4086b2ac$0$17620$
Bonjour Michel,
Merci pour ton aide,
Ta macro marche bien, mais je ne voulais pas inscrire l'url en a1,
mais je

voudrais recuperer l'url qui est inscrite en a1. Cette url varie
chaque

jour.
Suis-je plus clair ?
Cordialement
patrick
"Michel Pierron" news:%
Bonsoir Pat;
Pourquoi pas simplement:
Sub requete()
Const strURL As String = "http://pleguet.free.fr/01.htm"
With ActiveSheet
.Range("A1") = strURL
With .QueryTables.Add(Connection:="URL;" & strURL,
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End With
End Sub

MP
"pat" a écrit dans le message de
news:4086a32f$0$26995$
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere
des



données
sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With





ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01

.htm",
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub















Répondre en citant
bigboss2405
Le #20788151
pat a écrit le 21/04/2004 à 18h39 :
Bonjour à tous
Avec la macro ci dessous (merci l'enregistreur !!!), je recupere des
données
sur le web.
Jusqu'ici ous va bien.

Mon pb : je voudrais recuperer l'url en cellule A1
D'avance Merci de vous pencher sur mon cas
Cordialement
Patrick

Sub requete()


With
ActiveSheet.QueryTables.Add(Connection:="URL;http://pleguet.free.fr/01.htm",
Destination:=Range("A2"))
.Name = "01"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:úlse
End With
End Sub


Bonjour à tous,
d'abord désolé de relancer un topic qui a 5ans mais c'est le seul qui corespond à ceux que j'ai besoin pour faire ma macro et je ne voulais pas créer un nouveau topic alors que la réponse ne doit pas être si loin.
c'est à dire que je veux :
-récupérer des données externes à partir d'une url qui se trouve dans une cellule (par exemple A1) et m'afficher les données dans une autre cellule (A2), tout ça dans une macro.
j'ai bien comprit qu'il fallait dire à la cellule A1 qu'elle correspond à l'url (du style "strURL = Range("A1").Value") et ensuite réutiliser la variable pour afficher le contenu des données externe.
ça fait 2 petites heures que je tourne un peu en rond, j'ai essayé quelques trucs mais cela n'a pas l'air d'être ça.

Merci d'avance
(Ms Office 2003 Pro, Vista)
Répondre en citant
Publicité
Poster une réponse
Anonyme