Donnees externes et VBA
Le
Toto
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
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
Poser une question
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"
Ok et merci pour cette info qui m'est très utile
Cdlt
gaston
"dunkelzahn" news:
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"