requete sur le web

Michel Pierron

21/04/2004 à 19:35

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

pat

21/04/2004 à 19:36

merci, je teste
patrick
"Michel Pierron" a écrit dans le message de
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

pat

21/04/2004 à 19:45

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" a écrit dans le message de
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

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" <michel.pierron@free.fr> a écrit dans le message de
news:%23ohfZX8JEHA.3184@TK2MSFTNGP10.phx.gbl...

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" <p@tove> a écrit dans le message de
news:4086a32f$0$26995$626a14ce@news.free.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

Clément Marcotte

21/04/2004 à 20:48

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" a écrit dans le message de
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

Bonjour,

Si j'ai bien compris:

lurldujour = range("a1").value

"pat" <p@tove> a écrit dans le message de
news:4086b2ac$0$17620$636a15ce@news.free.fr...

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" <michel.pierron@free.fr> a écrit dans le message de
news:%23ohfZX8JEHA.3184@TK2MSFTNGP10.phx.gbl...

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" <p@tove> a écrit dans le message de
news:4086a32f$0$26995$626a14ce@news.free.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

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" a écrit dans le message de
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

pat

21/04/2004 à 21:42

Merci beaucoup a vous tout marche impec
cordialement
patrick
"Clément Marcotte" a écrit dans le message
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" a écrit dans le message de
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

Merci beaucoup a vous tout marche impec
cordialement
patrick
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news:ef7C$E9JEHA.3924@tk2msftngp13.phx.gbl...

Bonjour,

Si j'ai bien compris:

lurldujour = range("a1").value

"pat" <p@tove> a écrit dans le message de
news:4086b2ac$0$17620$636a15ce@news.free.fr...

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" <michel.pierron@free.fr> a écrit dans le message de
news:%23ohfZX8JEHA.3184@TK2MSFTNGP10.phx.gbl...

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" <p@tove> a écrit dans le message de
news:4086a32f$0$26995$626a14ce@news.free.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

Merci beaucoup a vous tout marche impec
cordialement
patrick
"Clément Marcotte" a écrit dans le message
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" a écrit dans le message de
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

bigboss2405

17/12/2009 à 16:50

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)

requete sur le web

6 réponses

Veuillez sélectionner un problème