Aide sur VBA
Résolu
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
-
youpiiiiiiiiiiiii !!!! La formule marche très bien, tel quelle. Eric, encore un grand merci....... et une très BONNE ANNEE 2012
-
Merci Eric... j'essaie demain (bravo pour tes réponses rapides et adéquats)
Bon réveillon à toi et tes proches -
ContributeurBonjour,
essaie avec :
With ActiveSheet.QueryTables.Add(Connection:= "URL;" & [A1].value , Destination:=Range("$A$1"))
eric
