[VBA] extraction information parti d'un texte

thebear45 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un string contenant plusieurs adresses mails séparer par des points-virgules:
Dim liste as string
liste = adresse1@ccm.com ; adresse2@ccm.fr ; adresse3@ccm.fr
je voudrais stocker ces adresses dans une table.
Comment puis-je récuperer chacune des adresses ?
Bien sur la longueur d'une adresse mail peut varier
Merci

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    tu pourrais utiliser la fonction split
    lesmel=split(liste,";")
    'lesmel est une variable tableau
    
    'par exemple
    for indice=0 to ubbound(lesmels)
         mgbox lesmels(indice)
    next
    0