Lien hypertexte avec variables excel

Résolu/Fermé
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
-
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
-
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



5 réponses

Messages postés
24291
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2022
7 034
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
Messages postés
4347
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
2 novembre 2013
1 429
Salut,

voici un exemple

Bonne journée
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
44
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
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
44
J'ai essayé pas mal d'autres choses, mais je bute toujours.

Quelqu'un a-t-il rencontré le même problème?
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
44
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 :)