Insertion de variables dans un lien URL

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Natoleza
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Natoleza

XLDnaute Nouveau
Bonjour,

J'ai un problème dans mon code et j'aimerais savoir si il est possible de faire ce que je souhaite. En effet, je souhaiterais générer différentes pages web via Excel. Or ces pages web ne varient que de variables que je connais. Ainsi, j'ai crée un code qui me permet de rentrer ces variables et de les changer dans l'url mais ca ne marche pas, quelque soit les valeurs que je donne aux variables, la page générée est la même.

Est ce un problème de concaténation?
Je vous joins mon code pour plus d'explications. j'ai mis en gras ce qui me parait problématique. Merci d'avance pour vos réponses


Sub Titres()

Dim TabTitre(7)
Dim TabTitres(7)

TabTitre(0) = "Nom"
TabTitre(1) = "Code"
TabTitre(2) = "Periodicite"
TabTitre(3) = "Date1"
TabTitre(4) = "Date2"
TabTitre(5) = "NbCours"
TabTitre(6) = "NumFeuille"

Range("A1:G1").Value = TabTitre
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Range("A1:G1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer
Dim Nom As String, Code As String, Periodicite As String
Dim s As String, a1 As Integer, b1 As Integer, b2 As Integer, c1 As Integer, d1 As Integer, d2 As Integer, e1 As Integer, f1 As Integer

Nom = Application.InputBox( _
Prompt:="Quel est le nom de l'indice étudié ?", _
Title:="Choix du nom de l'indice", _
Type:=2)

Code = Application.InputBox( _
Prompt:="Quel est le code de l'indice étudié ?", _
Title:="Code de l'indice", _
Type:=2)

Periodicite = Application.InputBox( _
Prompt:="Quelle est la périodicité de l'indice étudié ?", _
Title:="Choix de la périodicité de l'indice", _
Type:=2)

a1 = Application.InputBox( _
Prompt:="Quelle est le jour de début d'exercice ?", _
Title:="Date de du premier exercice", _
Type:=2)

b2 = Application.InputBox( _
Prompt:="Quelle est le mois de début d'exercice ?", _
Title:="Date de du premier exercice", _
Type:=2)

b1 = b2 - 1

c1 = Application.InputBox( _
Prompt:="Quelle est l'année de début d'exercice ?", _
Title:="Date de du premier exercice", _
Type:=2)

e = Application.InputBox( _
Prompt:="Quelle est le jour de fin d'exercice ?", _
Title:="Date de du dernier exercice", _
Type:=1)

d2 = Application.InputBox( _
Prompt:="Quelle est le mois de fin d'exercice ?", _
Title:="Date de du dernier exercice", _
Type:=1)

d1 = d2 - 1

f1 = Application.InputBox( _
Prompt:="Quelle est l'année de fin d'exercice ?", _
Title:="Date de du dernier exercice", _
Type:=1)

NbCours = Application.InputBox( _
Prompt:="Quel est le nombre de cours ?", _
Title:="Nombre de cours", _
Type:=1)

TabTitres(0) = Nom
TabTitres(1) = Code
TabTitres(2) = Periodicite
TabTitres(5) = NbCours
TabTitres(6) = 1


'Transfère les éléments du tableau dans la feuille de calcul

Range("A2:G2").Value = TabTitres
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

Range("D2").Select
ActiveCell.FormulaR1C1 = a1 & "/" & b2 & "/" & c1
Range("E2").Select
ActiveCell.FormulaR1C1 = e1 & "/" & d2 & "/" & f1

Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=Code&d=d1&e=E&f=f1&g=d&a=a1&b=b1&c=c1&ignore=.csv"

End Sub
 
Trier par date Trier par votes
Re : Insertion de variables dans un lien URL

Bonjour,

pas tout compris de ton code, mais pour recréer une chaine essaye dans ce sens :
Code: 
Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=Code"   & Mavariable1 &  "=" & mavariable2 & "=blabla".......
bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Insertion de variables dans un lien URL

Merci pour ton aide. J'ai change mon code comme ceci, est cela que tu avais en tête?

Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=Code&d&" = "&e&" = "&f&" = "&g=d&a&" = "&b&" = "&c&" = "&ignore=.csv"

Néanmoins il me renvoie erreur d'exécution 13, Incompatibilité de type.
 
Vote positif 0 Vote négatif
Re : Insertion de variables dans un lien URL

Re,

non pas vraiment, plutôt comme ceci :
Code: 
Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=Code&d" & "=" & e & "=" & f & "=" ect...

les signes = faisant partie de l'url....
 
Vote positif 0 Vote négatif
Re : Insertion de variables dans un lien URL

Si je fais ce que vous dites, cela donne

Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?"s="&Code&"a="&a1&"b="&b1&"c="&c1&"d="&d1&"e="&e1&"f="&f1&g=m&ignore=.csv"

Malheureusement on me renvoie Erreur de compilation Attendu fin d'instruction
 
Vote positif 0 Vote négatif
Re : Insertion de variables dans un lien URL

bonjour à tous,

à essayer :

"http://ichart.finance.yahoo.com/table.csv?s=" & XOP & "&a=" & 05 & "&b=" & 2 & "&c=" & 2009 & "&d=" & 04 & "&e=" & 21 & "&f=" & 2012 & "&g=m&ignore=.csv"

bien sur, à adapter à tes codes...
l'idée, c'est de mettre " pour tous les textes, ajouter un & pour assembler tout ça
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
254
CortoXls
C
Etoto
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
275
Etoto
Etoto
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
441
vgendron
vgendron
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
TooFatBoy
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
644
lolo_excelbeginner
L
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
825
Kevin38
K
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
184
Rod59
R
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
47
job75
job75
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
kiki29
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
81
bernardrustrel
B
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
542
job75
job75
ChTi160
  • Résolu(e)
Microsoft 365 Problème avec l'affichage de l'heure dans Label de Userform
Réponses
8
Affichages
121
ChTi160
ChTi160
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
183
escudo
E
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
436
CathyLD
C
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
210
spike29
S
M
  • Question Question
XL 2010 Remise et ajout de quantité
Réponses
10
Affichages
760
Dranreb
Dranreb
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
281
vgendron
vgendron
ZAKAO
  • Résolu(e)
XL 2013 Ecriture de code condensé
Réponses
9
Affichages
604
ZAKAO
ZAKAO
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
338
sylvanu
sylvanu
Retour