Aide sur VBA
Résolu
dadacourse
Messages postés
143
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,
Merci de votre aide pour résoudre mon problème !!
Voici l'écriture de la macro.....................
Sheets("BB").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pmu.fr/turf/31122011/reunion-1-PARIS_VINCENNES/index.html", _
Destination:=Range("$A$1"))
.............. seulement l'adresse de l'URL (entre les guillemets) change tout le temps. Cette adresse est automatiquement indiquée dans la feuille AA en A1.... Comment remplacer l'adresse dans la macro par une formule qui indique que c'est la valeur de la cellule A1 de la feuille AA.
Merci de votre aide pour résoudre mon problème !!
Voici l'écriture de la macro.....................
Sheets("BB").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pmu.fr/turf/31122011/reunion-1-PARIS_VINCENNES/index.html", _
Destination:=Range("$A$1"))
.............. seulement l'adresse de l'URL (entre les guillemets) change tout le temps. Cette adresse est automatiquement indiquée dans la feuille AA en A1.... Comment remplacer l'adresse dans la macro par une formule qui indique que c'est la valeur de la cellule A1 de la feuille AA.
3 réponses
Bonjour,
essaie avec :
With ActiveSheet.QueryTables.Add(Connection:= "URL;" & [A1].value , Destination:=Range("$A$1"))
eric
essaie avec :
With ActiveSheet.QueryTables.Add(Connection:= "URL;" & [A1].value , Destination:=Range("$A$1"))
eric
