Résultats de la recherche

Merci pour vos premiers retours, voici le code balisé: Function GetEmailAddress(ByVal S As String) As String Dim X As Long, AtSign As Long Dim Locale As String, DomainPart As String Locale = "[A-Za-z0-9.!#$%&'*/=?^_`{|}~+-]" Domain = "[A-Za-z0-9._-]" AtSign = InStr(S, "@") For X = AtSign To 1...

Hello, j'ai chopé ce code sur un site et il a très bien fonctionné sur un fichier. Or quand je veux le dupliquer sur un autre, rien ne se passe et j'ai l'erreur #NOM?. Vous pouvez m'aider? Merci! Function GetEmailAddress(ByVal S As String) As String Dim X As Long, AtSign As Long Dim Locale As...

Bonjour à toute la communauté et d'avance merci pour vos précieux tuyaux!