Discussion :

[sebinator]

Bonjour,

j'ai trouvé une procédure qui permet de formater correctement un lien email (avoir mailto au lieu de http://)

j'ai créé un module utilitaire et j'ai mis le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub formatemail(mailctrl As String)
'Reformate correctemment le lien hypertexte
'Vire le http:\\ et le remplace par mailto:
'mailctrl doit corresprondre au  controle sur le formulaire par ex: me.mail
Dim hlk As Hyperlink 'déclare la variable
Set hlk = mailctrl.Hyperlink 'alimente la variable avec le contenu du champ sc_mail
If Left(hlk.Address, 7) = "http://" Then 'si le debut du lien est http:// alors
mailctrl = "#mailto:" & Mid(hlk.Address, 8) & "#" 'http:// est remplacé par Mailto:
End If
End Sub

Lorsque j'appelle formatemail a partir d'un afterupdate d'un controle j'obtiens l'erreur suivante :

erreur de compilation : qualificateur incorrect.
le debogeur stoppe sur mailctrl

Qui peut me corriger ?

merci d'avance

[Keihilin]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub formatemail(mailctrl As String)
'Reformate correctemment le lien hypertexte
'Vire le http:\\ et le remplace par mailto:
'mailctrl doit corresprondre au  controle sur le formulaire par ex: me.mail
Dim hlk As Hyperlink 'déclare la variable
Set hlk = mailctrl.Hyperlink 'alimente la variable avec le contenu du champ sc_mail
If Left(hlk.Address, 7) = "http://" Then 'si le debut du lien est http:// alors
mailctrl = "#mailto:" & Mid(hlk.Address, 8) & "#" 'http:// est remplacé par Mailto:
End If
End Sub

J'ai mis en rouge les points qui me parraissent étranges.

Principalement le premier; je ne pense pas qu'il faille passer un type String à ta méthode, mais plutôt le contrôle non ?

[Heureux-oli]

C'est dans le Mid que tu rencontre un problème.

En VBA

Pour l'extraction de partie de chaîne, il faut un entier en plus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mid("Mon Texte" , Caractère début, Nombre Caractères)

Où Caractère Début represente l'emplacement dans la chaîne du premier caractère extrait et Nombre Caractère qui représente le nombre de carctères qui seront extraits.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mid("Heureux-oli", 2, 3)

donnera :
eur
Or, voila ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid(hlk.Address, 8)