Excel et Outlook

Bonjour à tous,

Dans une cellule "X", j'ai un lien hypertexte correspondant à une adresse mail.

Lorsque je clique sur ce lien je suis dirigé sur une page internet et non pas vers Outlook.

Pourriez vous me dire pourquoi?

Bonsoir,

lorsque vous survoler l'adresse, qu'Est-ce qui s'affiche dans la bulle d'info ?

@ bientôt

LouReeD

Re bonsoir,

si c'est une donnée adresse mail issue d'un Userform , il faut peut-être ajouter "mailto:" à l'adresse renseignée pour la copie dans la cellule. Attention ! pas essayé !!

@ bientôt

LouReeD

Re re

là j'ai essayé !!! c'est mieux non ?

Donc ci dessus ça marche pas, donc voici votre code modifié

Private Sub Nouveau_SP1_Click()
    Dim l As Integer
    Dim i As Byte
    Sheets("SIGNALETIQUE").Select   '****************  Modification
    l = Ws.Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
    For i = 1 To 31
        If i = 10 Then
            Cells(l, i) = "mailto:" & Controls("box" & i)
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(l, i), Address:= _
            "mailto:" & Controls("box" & i), TextToDisplay:=Controls("box" & i)
        Else
            Cells(l, i) = Controls("box" & i)
        End If
    Next
End Sub

@ bientôt

LouReeD

Bonjour à tous , Boujour LouReeD,

Tout d'abord, toutes mes excuses pour ne pas avoir répondu plus tôt mais suite à un changement de FAI, je n'avais plus de connexion.

Alors désolé mais cela ne fonctionne pas petit soucis surement, voilà le message d'erreur reçu:

Bonjour,

peut-être un ".value" à la suite de Controls("Box" & i).value

Private Sub Nouveau_SP1_Click()
    Dim l As Integer
    Dim i As Byte
    Sheets("SIGNALETIQUE").Select   '****************  Modification
    l = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
    For i = 1 To 31
        If i = 10 Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(l, i), Address:= _
            "mailto:" & Controls("box" & i).Value, TextToDisplay:=Controls("box" & i).Value
        Else
            Cells(l, i) = Controls("box" & i)
        End If
    Next
End Sub

au passage, modification de la ligne de recherche de la première ligne vide du tableau afin de s'adapter à toutes les versions d'Excel :

l = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1

Rows.Count à la place de 65536

@ bientôt

LouReeD

Bonjour LouReeD,

Super l'information est maintenant bien considérée comme adresse mail. Par contre en cliquant dessus, toujours une page internet qui s'ouvre et non pas Outlook.

Bonsoir,

en fait je viens de tester chez moi et c'est bien Outlook qui s'ouvre.

Il doit y avoir une mauvaise association entre lien et programme chez vous...

@ bientôt

LouReeD

Re,

Merci LouReeD,

Je vais essayer de contrôler et vous tiens au courant, Merci beaucoup.

Avez vous fait ceci :

http://windows.microsoft.com/fr-fr/windows-vista/change-the-default-e-mail-program

ou bien ceci dans les options d'Outlook :

@ bientôt

LouReeD

Bonsoir LouReeD,

Super Idée, Effectivement Outlook n'était plus défini comme programme par défaut, je suppose depuis la mise à jour avec Windows 10.

Apres modification cela fonctionne parfaitement, je t'en remercie

Et bien on est deux à être content

merci @ vous pour vos mercis

@ bientôt

LouReeD