Donnees externes et VBA

Bonjour,

C'est bizarre j'y suis arrivé :
Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://partnerpage.google.com/dell.com/fr_fr?
hl=fr&client=dell-row-rel&channel=fr&ibd=1071212" _
, Destination:=Range("$A$1"))
.Name = "fr_fr?hl=fr&client=dell-row-
rel&channel=fr&ibd=1071212"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


On 2 mar, 09:14, "Toto" <t...@wanadoo.fr> wrote:

Bonjour,
Je souhaiterais automatiser (via une macro), la saisie de données exter nes
dans une feuille d'Excel.
Actuellement, j'utilise la commande du menu : Données/Données
externes/Nouvelle requête sur le Web
Je saisis ensuite l'URL de la base de données (http://www.exempl..)
Puis click sur bouton "Importer"

L'enregistrement automatique d'une macro (Outils/Macro/nouvelle macro) ne
permet pas de générer de code en VBA

Merci par avance à ceux qui pourraient me mettre sur la piste

Cdlt

Gaston

Bonsoir,
Ok et merci pour cette info qui m'est très utile

Cdlt
gaston


"dunkelzahn" <dunkelzahn.dunkelzahn@gmail.com> a écrit dans le message de
news: f83a377f-7314-4069-937c-16cf5158eca4@v19g2000yqn.googlegroups.com...
Bonjour,

C'est bizarre j'y suis arrivé :
Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://partnerpage.google.com/dell.com/fr_fr?
hl=fr&clientÞll-row-rel&channel=fr&ibd71212" _
, Destination:=Range("$A$1"))
.Name = "fr_fr?hl=fr&clientÞll-row-
rel&channel=fr&ibd71212"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
End Sub


On 2 mar, 09:14, "Toto" <t...@wanadoo.fr> wrote:

Bonjour,
Je souhaiterais automatiser (via une macro), la saisie de données externes
dans une feuille d'Excel.
Actuellement, j'utilise la commande du menu : Données/Données
externes/Nouvelle requête sur le Web
Je saisis ensuite l'URL de la base de données (http://www.exempl..)
Puis click sur bouton "Importer"

L'enregistrement automatique d'une macro (Outils/Macro/nouvelle macro) ne
permet pas de générer de code en VBA

Merci par avance à ceux qui pourraient me mettre sur la piste

Cdlt

Gaston