adresse mail

[buromania]

Bonjour à tous
Lors de la saisie d'une adresse mail dans une cellule, le lien est automatiquement créé.
Si la saisie se fait par usf, le lien n'est pas
créé.
Que faut-il faire pour l'avoir?
Bon WE

 

[MichelXld]

bonjour Buromania

ce lien pourra peut etre t'aider

Lien supprimé


bon apres midi
MichelXld

 

[buromania]

bjr Michel, le forum

ActiveCell.Offset(0, 11).Value = Client.TextBox8.Value = Pas de lien

J'ai essayé d'adapter le code de thierry sans succès.

With Feuil1
ActiveCell.Offset(0, 11).Value = Client.TextBox8.Value
.Hyperlinks.Add .Range('A10'), Address:=('toto@free.fr')
End With

si je remplace a10 par activecell.Offset(0, 11) et l'adresse par TextBox8.Value ou text
2 erreurs se produisent
1 incompatibilite de type
2 objet ?? ai oublié la suite

si tu as une idée
Bon WE à tous

 

[MichelXld]

rebonjour Buromania

je ne suis pas sur d'avoir bien compris , mais tu peux essayer cette adaptation

Private Sub CommandButton1_Click()
With ActiveCell
.Offset(0, 11) = TextBox8
.Hyperlinks.Add .Offset(0, 11), Address:='mailto:' & TextBox8
End With
End Sub


bon apres midi
MichelXld

 

[buromania]

bonjour à tous
en plein dans le mille Michel
merci beaucoup de ta réponse et bon dimanche