Bonjour,
à l'ouverture d'un fichier que je télécharge en dbf, ouvert dans Excel 2003,
un champ recevant des adresses de courriel se présente au format texte, les
adresses ne sont donc pas cliquables.
Pour qu'elles le soient, il suffit d'aller dans la cellule et valider.
J'essaie de faire une macro pour l'automatiser, mais par exemple:
Range("Z5").Select
A = ActiveCell.Value
ActiveCell.FormulaR1C1 = A
ne me rend pas l'adresse cliquable; je pense qu'il faut lui ajouter un
format, mais je n'en vois pas dans le Format Cellules...
Merci de votre aide
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
Daniel.C
Bonjour. Essaie pour la cellule active :
text = ActiveCell.Value ActiveSheet.Hyperlinks.Add ActiveCell, "mailto:" & text, text
et adapte-le pour ta plage de cellules. Daniel
Bonjour, à l'ouverture d'un fichier que je télécharge en dbf, ouvert dans Excel 2003, un champ recevant des adresses de courriel se présente au format texte, les adresses ne sont donc pas cliquables. Pour qu'elles le soient, il suffit d'aller dans la cellule et valider. J'essaie de faire une macro pour l'automatiser, mais par exemple:
Range("Z5").Select A = ActiveCell.Value ActiveCell.FormulaR1C1 = A
ne me rend pas l'adresse cliquable; je pense qu'il faut lui ajouter un format, mais je n'en vois pas dans le Format Cellules... Merci de votre aide
Bonjour.
Essaie pour la cellule active :
text = ActiveCell.Value
ActiveSheet.Hyperlinks.Add ActiveCell, "mailto:" & text, text
et adapte-le pour ta plage de cellules.
Daniel
Bonjour,
à l'ouverture d'un fichier que je télécharge en dbf, ouvert dans Excel 2003,
un champ recevant des adresses de courriel se présente au format texte, les
adresses ne sont donc pas cliquables.
Pour qu'elles le soient, il suffit d'aller dans la cellule et valider.
J'essaie de faire une macro pour l'automatiser, mais par exemple:
Range("Z5").Select
A = ActiveCell.Value
ActiveCell.FormulaR1C1 = A
ne me rend pas l'adresse cliquable; je pense qu'il faut lui ajouter un
format, mais je n'en vois pas dans le Format Cellules...
Merci de votre aide
text = ActiveCell.Value ActiveSheet.Hyperlinks.Add ActiveCell, "mailto:" & text, text
et adapte-le pour ta plage de cellules. Daniel
Bonjour, à l'ouverture d'un fichier que je télécharge en dbf, ouvert dans Excel 2003, un champ recevant des adresses de courriel se présente au format texte, les adresses ne sont donc pas cliquables. Pour qu'elles le soient, il suffit d'aller dans la cellule et valider. J'essaie de faire une macro pour l'automatiser, mais par exemple:
Range("Z5").Select A = ActiveCell.Value ActiveCell.FormulaR1C1 = A
ne me rend pas l'adresse cliquable; je pense qu'il faut lui ajouter un format, mais je n'en vois pas dans le Format Cellules... Merci de votre aide
FdeCourt
Salut,
Avec ceci : For Each c In Selection ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ "mailto:" & c.Value, TextToDisplay:=c.Value Next
Cordialement,
F.
Salut,
Avec ceci :
For Each c In Selection
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
"mailto:" & c.Value, TextToDisplay:=c.Value
Next
Avec ceci : For Each c In Selection ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ "mailto:" & c.Value, TextToDisplay:=c.Value Next
Cordialement,
F.
Tendasque
Merci à Fdecourt et Daniel, les 2 suggestions fonctionnent, sauf quand la cellule est vide (parfois il n'y a pas de courriel). Je vais adapter une boucle pour tester si la cellule est vide
"FdeCourt" a écrit dans le message de news:
Salut,
Avec ceci : For Each c In Selection ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ "mailto:" & c.Value, TextToDisplay:=c.Value Next
Cordialement,
F.
Merci à Fdecourt et Daniel, les 2 suggestions fonctionnent, sauf quand la
cellule est vide (parfois il n'y a pas de courriel).
Je vais adapter une boucle pour tester si la cellule est vide
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
a10117ef-00d3-47dc-a2a2-65e60b113543@n35g2000yqm.googlegroups.com...
Salut,
Avec ceci :
For Each c In Selection
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
"mailto:" & c.Value, TextToDisplay:=c.Value
Next
Merci à Fdecourt et Daniel, les 2 suggestions fonctionnent, sauf quand la cellule est vide (parfois il n'y a pas de courriel). Je vais adapter une boucle pour tester si la cellule est vide
"FdeCourt" a écrit dans le message de news:
Salut,
Avec ceci : For Each c In Selection ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _ "mailto:" & c.Value, TextToDisplay:=c.Value Next