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
Partager