Bonjour, j'aimerai savoir l'équivalent de la fonction php explode() sur vba. Je suis en stage et je dois faire une boucle qui mette tous les contacts d'un élément de contact dans un tableau puis une autre boucle qui enregistre la valeur de tous les contacts du tableau dans un autre élément de contact. Voilà plus bas dans mon code j'aimerai qu'il y ait a la place de "mail@domaine.fr" la valeur du tableau s'il vous plait aidez-moi.

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
19
20
21
22
23
24
25
26
27
28
Sub AjouterContact()
'---------------------------------------------------------------------------------------
' Procédure : CreationContact
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 06/05/2008
' Détail    : Création d'un nouveau Contact
'---------------------------------------------------------------------------------------
'
    'Déclaration des objets
    Dim MonApply As Outlook.Application
    Dim MonContact As Outlook.ContactItem
    
    'Instance des Objets
    Set MonApply = Outlook.Application    'Instance de l'application
    Set MonContact = MonApply.CreateItem(olContactItem)    'Instance du nouveau Contact
    
    'définit plusieurs attributs du nouveau contact
    With MonContact
        .Email1Address = "mail@domaine.fr"
    End With
    'Affichage du nouvel Objet Contact
    MonContact.Save
    
    'Vide des instances
    Set MonApply = Nothing<code type="vbnet"><code type="vbnet">
    Set MonContact = Nothing
    
End Sub