Bonjour,

j'utilise la Fonction ExtractEMAIL, qui me récupère uniquement la première adresse mail de la cellule mais pas les suivantes.

Est ce que qqn peut m'aider je n'ai pas trouvé de solution.
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function ExtractEMAIL(cel As Range) As String
 
MyRegExPattern = "[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})"
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
    .Global = True
    .IgnoreCase = True
    .Pattern = MyRegExPattern
End With
 
ExtractEMAIL = ""
Set allMatches = RegEx.Execute(cel.Value)
If allMatches.Count <> 0 Then
    ExtractEMAIL = allMatches(0)
End If
 
End Function