Aide sur VBA
Résolu
dadacourse
Messages postés
128
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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
Merci Eric... j'essaie demain (bravo pour tes réponses rapides et adéquats)
Bon réveillon à toi et tes proches
Bon réveillon à toi et tes proches
