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
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
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$
patrick
"Michel Pierron" news:%
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:%
Si j'ai bien compris:
lurldujour = range("a1").value
"pat" a écrit dans le message de
news:4086b2ac$0$17620$
.htm",
cordialement
patrick
"Clément Marcotte" de news:ef7C$
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)