Copier-coller emails depuis Outlook vers Excel

[Saumon80]

Bonjour,

Quand j'ouvre un e-mail sur outlook qui contient plusieurs destinataires j'ai la possibilite de copier ces adresses.
Cependant lorsque je veux les coller dans une feuille excel ,les adresses sont colles dans la meme cellule et separes par des points-virgules.

Comment puis je les coller en ayant une adresse email pas cellule ?

Merci beaucoup

 

[Yaloo]

Re : Copier-coller emails depuis Outlook vers Excel

Bonjour Saumon, le forum,

Vois avec cette macro à mettre dans le module de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, m
If Target.Column = 1 Then
Application.EnableEvents = 0
m = Split(Target, ";")
  If UBound(m) > 0 Then
    For i = 0 To UBound(m)
      Cells(Target.Row + i, 1) = m(i)
    Next
  End If
Application.EnableEvents = -1
End If
End Sub

A modifier selon tes besoins

Martial