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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
dunkelzahn
Le #18800821
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"
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


Toto
Le #18805121
Bonsoir,
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"
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


Publicité
Poster une réponse
Anonyme