Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Lien hypertexte composé d'une partie fixe et d'une partie variable issue d'un champ du formulaire

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

9 réponses
Avatar
Gandy Alain
Bonjour,

Je reviens sur une question que j'avais posée il y a quelque temps :
"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 "

La réponse qui m'avait été donnée est bonne (du moins presque) :
" 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=" &
Me.NumSiren
HLK.Follow
End Sub "

Mais quand je ferme la fenêtre d'Internet Explorer (après avoir consulté la
page du site), j'obtiens un message dans une fenêtre " Hlink Assert !", et
je ne peux m'en débarasser qu'en maintenant le doigt appuyé sur le
l'interrupteur de l'unité centrale ("redémarrage en force") !
Faut il modifier le code VBA pour éviter ce problème ?
(je précise que j'ai désactivé les Active X dans les options d'I.E., que le
site societe.com comporte des Active X, et que qu'avec ce code VBA je n'ai
pas le message habituel du style "ce site comporte des Active X, voulez-vous
les activer ?".

Merci d'avance

Alain Gandy
Fidulane
www.fidulane.com


-----------------------
De: "Raymond" <Raymond.seneque@free.fr>
Objet: Re: Lien hypertexte composé d'une partie fixe et d'une partie
variable issue d'un champ du formulaire
Date : jeudi 11 septembre 2003 13:46

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=" &
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" <NoSpam.infos@fidulane.com> a écrit dans le message de
news:bjpfij$4hn$1@news-reader4.wanadoo.fr...
> 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
Société Fidulane
55-57 rue de Montreuil
75011 PARIS
Tél. : 01 43 73 05 42
http://www.fidulane.com
a.gandy@fidulane.com
Les sites indispensables pour votre entreprise :
http://www.fidulane.com/Quelques_sites_utiles.htm
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.
je me souviens de ce post.

essaie cette solution sans le HLK.Follow:
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
HLK.Address = "http://www.societe.com/cgi-bin/recherche?rncs=" & Me.NumSiren
Set HLK = Nothing

J'ai testé ce code sous 2003 et j'ai obtenu que c'était toi le gérant. 55
rue de montreuil à paris 11e

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c6887h$5oi$
Bonjour,

Je reviens sur une question que j'avais posée il y a quelque temps :
"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 "

La réponse qui m'avait été donnée est bonne (du moins presque) :
" 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=" &
Me.NumSiren
HLK.Follow
End Sub "

Mais quand je ferme la fenêtre d'Internet Explorer (après avoir consulté
la

page du site), j'obtiens un message dans une fenêtre " Hlink Assert !", et
je ne peux m'en débarasser qu'en maintenant le doigt appuyé sur le
l'interrupteur de l'unité centrale ("redémarrage en force") !
Faut il modifier le code VBA pour éviter ce problème ?
(je précise que j'ai désactivé les Active X dans les options d'I.E., que
le

site societe.com comporte des Active X, et que qu'avec ce code VBA je n'ai
pas le message habituel du style "ce site comporte des Active X,
voulez-vous

les activer ?".

Merci d'avance

Alain Gandy
Fidulane
www.fidulane.com


Avatar
Gandy Alain
Bonjour,

Merci pour la réponse.
J'ai cependant toujours le même problème de message "Hlink Assert" quand je
ferme I.E. (surtout avec societe.com).
Je précise que mon champ NumSiren fait appel au champ NumSiret, avec comme
source contrôle : "=VraiFaux([NumSIRET]<>"";CNum(Gauche([NumSIRET];12)))"

Alain Gandy

"Raymond [mvp]" a écrit dans le message news:
u#
Bonjour.
je me souviens de ce post.

essaie cette solution sans le HLK.Follow:
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
HLK.Address = "http://www.societe.com/cgi-bin/recherche?rncs=" &
Me.NumSiren

Set HLK = Nothing

J'ai testé ce code sous 2003 et j'ai obtenu que c'était toi le gérant. 55
rue de montreuil à paris 11e

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c6887h$5oi$
Bonjour,

Je reviens sur une question que j'avais posée il y a quelque temps :
"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 "

La réponse qui m'avait été donnée est bonne (du moins presque) :
" 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=" &
Me.NumSiren
HLK.Follow
End Sub "

Mais quand je ferme la fenêtre d'Internet Explorer (après avoir consulté
la

page du site), j'obtiens un message dans une fenêtre " Hlink Assert !",
et


je ne peux m'en débarasser qu'en maintenant le doigt appuyé sur le
l'interrupteur de l'unité centrale ("redémarrage en force") !
Faut il modifier le code VBA pour éviter ce problème ?
(je précise que j'ai désactivé les Active X dans les options d'I.E., que
le

site societe.com comporte des Active X, et que qu'avec ce code VBA je
n'ai


pas le message habituel du style "ce site comporte des Active X,
voulez-vous

les activer ?".

Merci d'avance

Alain Gandy
Fidulane
www.fidulane.com






Avatar
Raymond [mvp]
Si tu envoie des valeurs siret bonnes , as-tu l'erreur ?

la fonction vraifaux n'a pas de critère facultatif.
IIf(expr, truepart, falsepart)

donc le numéro siret peut renvoyer n'importe quoi, de même que la fonction.
essayer:
=VraiFaux([NumSIRET]<>""; CNum(Gauche([NumSIRET];12)); "")
le cnum n'apporte rien, essaie:
=VraiFaux([NumSIRET]<>""; Gauche([NumSIRET];12); "")
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c68rcb$n4v$
Bonjour,

Merci pour la réponse.
J'ai cependant toujours le même problème de message "Hlink Assert" quand
je

ferme I.E. (surtout avec societe.com).
Je précise que mon champ NumSiren fait appel au champ NumSiret, avec comme
source contrôle : "=VraiFaux([NumSIRET]<>"";CNum(Gauche([NumSIRET];12)))"

Alain Gandy


Avatar
Gandy Alain
Oui, j'ai ce problème avec les bonnes valeurs SIRET (la page désirée de
societe.com s'ouvre comme il faut, mais le problème survient à la fermeture
d'Internet Explorer).
Quant au "cnum", le but est de supprimer les espaces que j'ai insérés dans
le SIRET (pour le lire plus facilement).

Merci
Bonne soirée (ou bonne journée ?) !

"Raymond [mvp]" a écrit dans le message news:
#
Si tu envoie des valeurs siret bonnes , as-tu l'erreur ?

la fonction vraifaux n'a pas de critère facultatif.
IIf(expr, truepart, falsepart)

donc le numéro siret peut renvoyer n'importe quoi, de même que la
fonction.

essayer:
=VraiFaux([NumSIRET]<>""; CNum(Gauche([NumSIRET];12)); "")
le cnum n'apporte rien, essaie:
=VraiFaux([NumSIRET]<>""; Gauche([NumSIRET];12); "")
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c68rcb$n4v$
Bonjour,

Merci pour la réponse.
J'ai cependant toujours le même problème de message "Hlink Assert" quand
je

ferme I.E. (surtout avec societe.com).
Je précise que mon champ NumSiren fait appel au champ NumSiret, avec
comme


source contrôle :
"=VraiFaux([NumSIRET]<>"";CNum(Gauche([NumSIRET];12)))"



Alain Gandy






Avatar
Anor
Bonjour,

Gandy Alain wrote:
| Oui, j'ai ce problème avec les bonnes valeurs SIRET (la page désirée
| de societe.com s'ouvre comme il faut, mais le problème survient à la
| fermeture d'Internet Explorer).
| Quant au "cnum", le but est de supprimer les espaces que j'ai insérés
| dans le SIRET (pour le lire plus facilement).
|
| Merci
| Bonne soirée (ou bonne journée ?) !
|

Si tu veux jouer avec les Siret et les Siren,
tu peux essayer la base exemple suivante :
http://memoaccess.free.fr/fichiers/A2KCompanyCheck.zip

tu remarqueras que un copier coller d'un siret dans le champ supprime automatiquement
tout caractère parasite.

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
Raymond [mvp]
ce message apparaît lorsque tu fermes IE. à ce moment-là access n'a plus
aucun lien avec IE, suite au nothing.
fais un essai:
click sur le bouton, affichage 1ere page, fermer IE par la X.
le message est présent ?
si non, ça ne vient pas d'access.
si oui, le message est-il vraiment de la part d'acces ?
refais un autre essai.
click sur le bouton, affichage 1ere page.
fermer la base access
travailler sur IE
fermer IE
si encore le même message, il n 'est pas de la part d'access mais de IE en
relation avec ton societe.com

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c68voh$r5n$
Oui, j'ai ce problème avec les bonnes valeurs SIRET (la page désirée de
societe.com s'ouvre comme il faut, mais le problème survient à la
fermeture

d'Internet Explorer).
Quant au "cnum", le but est de supprimer les espaces que j'ai insérés dans
le SIRET (pour le lire plus facilement).

Merci
Bonne soirée (ou bonne journée ?) !


Avatar
Gandy Alain
Bonsoir,

Merci pour ces conseils.
J'ai fait les 2 tests. J'ai le problème dans les 2 cas.
La première fenêtre est la suivante :
http://www.fidulane.com/Exercices/Hlink%20Assert!.jpg
J'ai constaté qu'après avoir vidé le dossier 'Temporary Internet Files", il
me reste dans ce dossier le fichier d'extension phc suivant :
http://www.fidulane.com/Exercices/btsoc[1].phc.txt
(contenu : document.write("<A TARGET='_blank'
HREF='http://www.indexa.fr/societe/'>");
document.write("<IMG
SRC='http://www.societe.com/indexa/images/btn_voscoord_indexa.gif'
BORDER=0></A>");"

Le problème serait il lié au site de societe.com ?

Merci pour tout et bonne soirée !

Alain Gandy

"Raymond [mvp]" a écrit dans le message news:
#
ce message apparaît lorsque tu fermes IE. à ce moment-là access n'a plus
aucun lien avec IE, suite au nothing.
fais un essai:
click sur le bouton, affichage 1ere page, fermer IE par la X.
le message est présent ? OUI
si non, ça ne vient pas d'access.
si oui, le message est-il vraiment de la part d'acces ?
refais un autre essai.
click sur le bouton, affichage 1ere page.
fermer la base access
travailler sur IE
fermer IE OUI
si encore le même message, il n 'est pas de la part d'access mais de IE en
relation avec ton societe.com

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c68voh$r5n$
Oui, j'ai ce problème avec les bonnes valeurs SIRET (la page désirée de
societe.com s'ouvre comme il faut, mais le problème survient à la
fermeture

d'Internet Explorer).
Quant au "cnum", le but est de supprimer les espaces que j'ai insérés
dans


le SIRET (pour le lire plus facilement).

Merci
Bonne soirée (ou bonne journée ?) !






Avatar
Raymond [mvp]
Je pense qu'il faudrait déjà poser le problème sur le groupe IE6, pour
cerner le problème. ils ont peut-être des idées.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gandy Alain" a écrit dans le message de
news:c693r9$brr$
Bonsoir,

Merci pour ces conseils.
J'ai fait les 2 tests. J'ai le problème dans les 2 cas.
La première fenêtre est la suivante :
http://www.fidulane.com/Exercices/Hlink%20Assert!.jpg
J'ai constaté qu'après avoir vidé le dossier 'Temporary Internet Files",
il

me reste dans ce dossier le fichier d'extension phc suivant :
http://www.fidulane.com/Exercices/btsoc[1].phc.txt
(contenu : document.write("<A TARGET='_blank'
HREF='http://www.indexa.fr/societe/'>");
document.write("<IMG
SRC='http://www.societe.com/indexa/images/btn_voscoord_indexa.gif'
BORDER=0></A>");"

Le problème serait il lié au site de societe.com ?

Merci pour tout et bonne soirée !

Alain Gandy


Avatar
Raymond [mvp]
regarde les fiches suivantes, il semblerait qu'il y ai un problème sur
certaines versions:
La version française du Service Pack 1'Internet Explorer 5.5 comprend une
version de débogage incorrecte de Hlink.dll
http://support.microsoft.com/default.aspx?scid=kb;fr;298074

Liste des problèmes résolus dans le Service Pack 2 Internet Explorer 5.5
http://support.microsoft.com/default.aspx?scid=kb;fr;303201

si tu as IE 5.5 ça doit venir de là.

quoi qu'il arrive mets à jour ton système avec tous les SP, ça devrait se
résoudre.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum