Oui je viens de voir
InputBox mais vu que je n'ai jamais fais de vba mais je me suis fais aider voilà mon code il n'est pas terminer mais on ne sait jamais qui pourrait en avoir besoin.
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 MonNameSpace As NameSpace
Dim MonDossier As Folder
'Instance des Objets
Set MonApply = Outlook.Application 'Instance de l'application
Set MonNameSpace = MonApply.GetNamespace("MAPI")
MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Item("collègue").Delete
Dim Temp As Object
Set Temp = MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Add("collègue", "olFolderContacts")
Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Item("collègue")
Dim test As String
Dim Name() As String
Address = InputBox("Entrer la liste d'email", "bonjour")
Name = Split(Address, "; ")
MsgBox (Name(0))
'définit plusieurs attributs du nouveau contact
For Each statements In Name
Dim MonContact As Outlook.ContactItem
Set MonContact = MonApply.CreateItem(olContactItem)
'Instance du nouveau Contact
With MonContact
.Email1Address = statements
End With
'Affichage du nouvel Objet Contact
MonContact.Save
MonContact.Move MonDossier
Set MonContact = Nothing
Next
'Vide des instances
Set MonApply = Nothing
Set Temp = Nothing
End Sub
