Lien hypertexte avec variables excel Résolu

Question

Bonjour le forum,

je souhaite faire un lien hypertexte qui amènerait à un formulaire (page web en php). Je souhaiterais remplir l'url avec des variables, pour que le formulaire soit déjà prérempli.

Ex : http://test.php?user="le contenu de la cellule B1"&partner="le contenu de la cellule B2"...

Peut-être qu'en enregistrant le fichier en page web?

Ou bien y a-t-il plus simple mais je ne le sais pas?


Merci d'avance



Configuration: Windows XP / Firefox 3.6.8

Ricky38 · Answer

Salut,

voici un exemple

Bonne journée

Pimp92a · Answer

Bonsoir,

je reviens avec mon problème.

L'exemple que tu m'as fourni Ricky38 m'a permis d'avancer dans ma tâche.

Mais, j'ai un problème tout de même.

Lorsque je souhaite faire cette formule sous vba avec des variables, cela ne fonctionne pas. L'erreur est la suivante:

ERREUR DEFINIE PAR L'APPLICATION OU PAR L'OBJET.

Voici le code que j'utilise :

Dim g As Integer
Dim h As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim Lig As Long
Dim s As Integer
Dim t As Integer
Dim u As Integer
Dim v As Integer
Dim w As Integer

Do

w = w + 1

Loop While Cells(9, w) <> "CONTRACT NUMBER"

Do
v = v + 1
Loop While Cells(9, v) <> "PLA"

Do
u = u + 1
Loop While Cells(9, u) <> "ORGANIZATION"

Do
t = t + 1
Loop While Cells(9, t) <> "DOMAIN NAME"

Do
g = g + 1
Loop While Cells(9, g) <> "RENEWAL TYPE "

i = 10

Do
h = h + 1
j = j + 1
k = k + 1
l = l + 1
n = n + 1
o = o + 1
Loop While Cells(9, h) <> "SERIAL NUMBER STATUS"

ActiveSheet.Range("BG9").Value = "http://test/index.php?name="
ActiveSheet.Range("BH9").Value = "&mail=test@test.fr&phone=01.41.41.41.41&domainname="
ActiveSheet.Range("BI9").Value = "&partner="
ActiveSheet.Range("BL9").Value = "&repname="
ActiveSheet.Range("BM9").Value = "&contractnumber="
ActiveSheet.Range("BN9").Value = "&expirationdate=11/11/11&addcomments="")"

ActiveSheet.Range("AN10") = ActiveSheet.Range("BG9") & ActiveSheet.Range("BH9") & ActiveSheet.Range(Lig, t) & ActiveSheet.Range("BI9") & ActiveSheet(Lig, u) & ActiveSheet.Range("BL9") & ActiveSheet.Range(Lig, v) & ActiveSheet.Range("BM9") & ActiveSheet.Range(Lig, w) & ActiveSheet.Range("BN9")

En fait le code regarde sur chaque ligne les infos des colonnes mentionnées et les concatènent pour remplir le formulaire.

Pouvez-vous m'aider?

Merci d'avance

Pimp92a · Answer

J'ai essayé pas mal d'autres choses, mais je bute toujours.

Quelqu'un a-t-il rencontré le même problème?

eriiic · Answer

Bonsoir,

Ton code sans la feuille ne sert pas à grand chose...
La prochaine fois dépose un extrait de ton fichier sur cijoint.fr et colle ici le lien fourni.

Lien hypertexte avec variable :
    variable = "affich-18825011-lien-hypertexte-avec-variables-excel"
    Worksheets("feuil1").Hyperlinks.Add Anchor:=[B3], Address:= _
        "https://forums.commentcamarche.net/forum/" & variable _
        , TextToDisplay:="libellé du lien"

eric

Pimp92a · Answer

Bonjour Eric,

merci pour la formule, c'était exactement ce que je souhaitais. Malheureusement, je ne pouvais pas envoyer mon classeur, mais à l'avenir, si je le peux je le ferai.

Encore merci pour l'aide fournie :)

Lien hypertexte avec variables excel

5 réponses

Votre réponse

Discussions similaires