Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lien hypertexte composé d'une partie fixe et d'une partie variable issue d'un champ du formulaire

6 réponses
Avatar
Gandy Alain
Bonjour,

Je souhaiterais à partir d'un formulaire client ouvrir directement la page
du site www.societe.com correspondant au numéro SIREN contenu dans le champ
NumSIREN de ce formulaire.
Par exemple, la page de www.societe.com correspondant au numéro SIREN
(439003096) de mon entreprise est :
http://www.societe.com/cgi-bin/recherche?rncs=439003096

Je ne parviens pas à créer un champ du style
http://www.societe.com/cgi-bin/recherche?rncs=& [NumSIREN] qui fonctionne.
(la première partie seule du lien fonctionne).
J'ai essayé avec des #, mais je n'y arrive pas !

Avez-vous une solution ?

Merci d'avance !

Alain GANDY
http://www.fidulane.com

6 réponses

Avatar
Fred M.
Tu as essayé en mettant des côtes ?
'http://www.societe.com/cgi-bin/recherche?rncs=' &
[NumSIREN]

-----Message d'origine-----
Bonjour,

Je souhaiterais à partir d'un formulaire client ouvrir
directement la page

du site www.societe.com correspondant au numéro SIREN
contenu dans le champ

NumSIREN de ce formulaire.
Par exemple, la page de www.societe.com correspondant au
numéro SIREN

(439003096) de mon entreprise est :
http://www.societe.com/cgi-bin/recherche?rncsC9003096

Je ne parviens pas à créer un champ du style
http://www.societe.com/cgi-bin/recherche?rncs=&
[NumSIREN] qui fonctionne.

(la première partie seule du lien fonctionne).
J'ai essayé avec des #, mais je n'y arrive pas !

Avez-vous une solution ?

Merci d'avance !

Alain GANDY
http://www.fidulane.com


.



Avatar
Raymond
bonsoir.
il faut indiquer un littéral alpha entre guillemets ( doubles quotes)
Mavariable = "http://www.societe.com/cgi-bin/recherche?rncs=" & [NumSIREN]
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Gandy Alain" a écrit dans le message de
news:bjn7v6$99f$
Bonjour,

Je souhaiterais à partir d'un formulaire client ouvrir directement la page
du site www.societe.com correspondant au numéro SIREN contenu dans le
champ

NumSIREN de ce formulaire.
Par exemple, la page de www.societe.com correspondant au numéro SIREN
(439003096) de mon entreprise est :
http://www.societe.com/cgi-bin/recherche?rncsC9003096

Je ne parviens pas à créer un champ du style
http://www.societe.com/cgi-bin/recherche?rncs=& [NumSIREN] qui fonctionne.
(la première partie seule du lien fonctionne).
J'ai essayé avec des #, mais je n'y arrive pas !

Avez-vous une solution ?

Merci d'avance !

Alain GANDY
http://www.fidulane.com




Avatar
Anor
Bonjour Gandy Alain

Gandy Alain a confié :
| Bonjour,
|
| Je souhaiterais à partir d'un formulaire client ouvrir directement la
| page du site www.societe.com correspondant au numéro SIREN contenu
| dans le champ NumSIREN de ce formulaire.
| Par exemple, la page de www.societe.com correspondant au numéro SIREN
| (439003096) de mon entreprise est :
| http://www.societe.com/cgi-bin/recherche?rncsC9003096
|
| Je ne parviens pas à créer un champ du style
| http://www.societe.com/cgi-bin/recherche?rncs=& [NumSIREN] qui
| fonctionne. (la première partie seule du lien fonctionne).
| J'ai essayé avec des #, mais je n'y arrive pas !
|
| Avez-vous une solution ?
|
| Merci d'avance !
|
| Alain GANDY
| http://www.fidulane.com

Personnellement, j'ai mis un controle navigateur web microsoft dans un contrôle d'onglet,
une zone de texte pour savoir où je vais, et sur clic du bouton le code suivant :

Me.Refresh
Me.siren = EpurerTexte(Me.siren)
Me!txtLiens.Value = "http://www.societe.com/cgi-bin/recherche?rncs=" & Left(Me.siren, 9) &
"&vu=1"
Navigate

'La fonction EpurerTexte :

Function EpurerTexte(strTexte As String) As String
Dim Resultat As String
Dim Signe As String '* 1
Dim Position As Integer
If Len(strTexte) > 0 Then
For Position = 1 To Len(strTexte)
Signe = Mid$(strTexte, Position, 1)
If (Signe >= "A" And Signe <= "Z") _
Or (Signe >= "a" And Signe <= "z") _
Or (Signe >= "0" And Signe <= "9") Then
Resultat = Resultat & Signe
End If
Next Position
EpurerTexte = Resultat
End If
End Function


' et la fonction navigate :

Private Function Navigate()
On Error Resume Next
If Len(Me!txtLiens) > 0 Then
Me!ActiveXCtl1.Navigate Me!txtLiens
End If
DoCmd.ShowToolbar "Web", acToolbarNo
End Function

Mais si je peux me permettre, il y a aussi ça :

Private Sub Annuairedelaposte_net_siret_Click()
Me.Refresh
Me.siren = EpurerTexte(Me.siren)
Me!txtLiens.Value "http://www.annuairedelaposte.net/recherche/recherche_to_reponse.asp?from=listclient&rcs=&quot; &
Me.siren & "&typerecherche=RCS"
Navigate
End Sub


Le mieux est encore le site de l'insee qui centralise les divers registres (commerce, greffe,
etc...)
mais je n'ai pas eu le temps de chercher comment se positionner sur la bonne page directement.
Si on y est déjà, ça marche. Sinon, il faut s'y rendre manuellement.

Private Sub sirene_fr_siret_Click()
Me.Refresh
Me.siren = EpurerTexte(Me.siren)
Me.siren.SetFocus
Me.siren.SelStart = 0
Me.siren.SelLength = 9
DoCmd.RunCommand acCmdCopy
Select Case Len(Me.siren)
Case 9
'Liste
Me!txtLiens.Value "http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille
=siren&waitframeúlse&siren=" & Me.siren & "&option=2"
'Siege
'strQuestion "http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille
=siren&waitframeúlse&siren=" & Me.siren & "&option=1"
Navigate
Case 14
'Etablissement particulier
Me!txtLiens.Value "http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://213.30.146.38/REPERTOIRE/Interrogation/Interrogation_principal.asp?action=valider&grille
=siren&waitframeúlse&siren=" & Left(Me.siren, 9) & "&nic=" & Right(Me.siren, 5) & "&option=3"
Navigate
Case Else
MsgBox "Le numéro de Siren ou de Siret est erronné", vbCritical + vbOKOnly, "Opération annulée"
End Select
End Sub

Bon de toute façon Raymond avait donné la bonne réponse,
et comme tu n'as pas encore dit merci, on peut espérer que tu viendras lire les différentes
réponses.

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------
Avatar
Gandy Alain
Bonjour,

Je viens d'essayer les 2 premières solutions proposées :
'http://www.societe.com/cgi-bin/recherche?rncs=' &
[NumSIREN]
et
= "http://www.societe.com/cgi-bin/recherche?rncs=" & [NumSIREN]

Je parviens pas à les faire fonctionner. J'ai essayé avec des zones de
texte, avec des boutons de commande, en mettant ou non le signe = au début,
en supprimant les espaces. Il semble très difficile d'insérer le contenu
d'un champ dans un lien hypertexte.
Je n'ai pas encore essayé la solution de Anor, car je maîtrise pas la
programmation.

Merci à tous

Alain Gandy


"Raymond" a écrit dans le message news:
#
bonsoir.
il faut indiquer un littéral alpha entre guillemets ( doubles quotes)
Mavariable = "http://www.societe.com/cgi-bin/recherche?rncs=" & [NumSIREN]
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Gandy Alain" a écrit dans le message de
news:bjn7v6$99f$
Bonjour,

Je souhaiterais à partir d'un formulaire client ouvrir directement la
page


du site www.societe.com correspondant au numéro SIREN contenu dans le
champ

NumSIREN de ce formulaire.
Par exemple, la page de www.societe.com correspondant au numéro SIREN
(439003096) de mon entreprise est :
http://www.societe.com/cgi-bin/recherche?rncsC9003096

Je ne parviens pas à créer un champ du style
http://www.societe.com/cgi-bin/recherche?rncs=& [NumSIREN] qui
fonctionne.


(la première partie seule du lien fonctionne).
J'ai essayé avec des #, mais je n'y arrive pas !

Avez-vous une solution ?

Merci d'avance !

Alain GANDY
http://www.fidulane.com







Avatar
Raymond
Je viens de tester , ça fonctionne mais je pense que tu ne dois pas utiliser
la bonne fonction.

J'ai un champ de table type texte (pas hypertexte) nommé NumSIREN qui
contient le numéro siren du client par exemple : 439003096
j'ai un bouton nommé Commande0 et j'ai mis le code suivant dans l'événement
de ce bouton:
Private Sub Commande0_Click()
Dim HLK As Hyperlink
Set HLK = Me.Commande0.Hyperlink
HLK.Address = "http://www.societe.com/cgi-bin/recherche?rncs=&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.societe.com/cgi-bin/recherche?rncs=&quot; &
Me.NumSiren
HLK.Follow
End Sub

j'ai compose le numéro dans le champ et j'ai cliqué sur le bouton et j'ai
obtenu les renseignements sur la société fidulane paris 11°
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Gandy Alain" a écrit dans le message de
news:bjpfij$4hn$
Bonjour,

Je viens d'essayer les 2 premières solutions proposées :
'http://www.societe.com/cgi-bin/recherche?rncs=' &
[NumSIREN]
et
= "http://www.societe.com/cgi-bin/recherche?rncs=&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.societe.com/cgi-bin/recherche?rncs=&quot; & [NumSIREN]

Je parviens pas à les faire fonctionner. J'ai essayé avec des zones de
texte, avec des boutons de commande, en mettant ou non le signe = au
début,

en supprimant les espaces. Il semble très difficile d'insérer le contenu
d'un champ dans un lien hypertexte.
Je n'ai pas encore essayé la solution de Anor, car je maîtrise pas la
programmation.

Merci à tous




Avatar
Gandy Alain
Bonjour,

Super, ça marche !
Je m'étais en effet contenté de mettre le lien dans la zone "lien
hypertexte" d'un bouton de commande, et aussi dans une simple zone de texte.

Merci beaucoup de votre aide et de votre patience !

Bon week end

Alain


"Raymond" a écrit dans le message news:
#
Je viens de tester , ça fonctionne mais je pense que tu ne dois pas
utiliser

la bonne fonction.

J'ai un champ de table type texte (pas hypertexte) nommé NumSIREN qui
contient le numéro siren du client par exemple : 439003096
j'ai un bouton nommé Commande0 et j'ai mis le code suivant dans
l'événement

de ce bouton:
Private Sub Commande0_Click()
Dim HLK As Hyperlink
Set HLK = Me.Commande0.Hyperlink
HLK.Address = "http://www.societe.com/cgi-bin/recherche?rncs=&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.societe.com/cgi-bin/recherche?rncs=&quot; &
Me.NumSiren
HLK.Follow
End Sub

j'ai compose le numéro dans le champ et j'ai cliqué sur le bouton et j'ai
obtenu les renseignements sur la société fidulane paris 11°
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Gandy Alain" a écrit dans le message de
news:bjpfij$4hn$
Bonjour,

Je viens d'essayer les 2 premières solutions proposées :
'http://www.societe.com/cgi-bin/recherche?rncs=' &
[NumSIREN]
et
= "http://www.societe.com/cgi-bin/recherche?rncs=&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.societe.com/cgi-bin/recherche?rncs=&quot; & [NumSIREN]

Je parviens pas à les faire fonctionner. J'ai essayé avec des zones de
texte, avec des boutons de commande, en mettant ou non le signe = au
début,

en supprimant les espaces. Il semble très difficile d'insérer le contenu
d'un champ dans un lien hypertexte.
Je n'ai pas encore essayé la solution de Anor, car je maîtrise pas la
programmation.

Merci à tous