Bonjour à tous,
 
Je me suis crée une macro Outlook afin d'importer des contacts à partir d'un fichier texte.
 
Mon code fonctionne mais je voudrais, avant, de réinjecter les nouveaux contacts, supprimer tous les contacts existant (et non les répertoires), quelle est la synthaxe ? Il me manque une ligne en fait ...
 
Voici mon CODE :  
 
Sub test()
 
Dim Outlook
Dim Name
Dim NewContacts
Dim tmp
Dim fs, a
Dim chaine, Nvllechaine, Nvllechaine2, Nvllechaine3, Nvllechaine4
Dim NewItem
Dim NbrLignes
 
Set Outlook = GetObject(, "Outlook.Application" )
Set Name = Application.GetNamespace("MAPI" )
Set tmp = Name.GetDefaultFolder(olFolderContacts)
 
-------- LIGNE MANQUANTE -> SUPPRESSION DES CONTACTS ----------
 
Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.OpenTextFile("V:\UsersIntranet.txt" )
NbrLignes = 0
Do While a.AtEndOfStream <> True
NbrLignes = NbLignes + 1
chaine = a.readLine()
b = Len(chaine)
Pos = InStr(chaine, Chr(9))
Nvllechaine = Left(chaine, Pos - 1)
Nvllechaine2 = Right(chaine, b - Pos)
pos2 = InStr(Nvllechaine2, Chr(9))
Nvllechaine3 = Left(Nvllechaine2, pos2 - 1)
Nvllechaine4 = Right(Nvllechaine2, (Len(Nvllechaine2) - Len(Nvllechaine3)) - 1)
Set NewItem = tmp.Items.Add(olContactItem)
NewItem.FirstName = Nvllechaine
NewItem.LastName = Nvllechaine3
NewItem.Email1Address = Nvllechaine4
NewItem.Save
Loop
a.Close
 
End Sub
 
Merci pour vos lanternes les gens !!

J'ai trouvé qqch les gens, mais au moment de supprimer le dernier contact, j'ai une erreur :
Incompatibilté de Type Index de la matrice endehors des limites ...
 
Vs savé ce ke c ?
 
Voici ce ke g rajouté :
 
Temp = tmp.Items.Count
i = 0
 
Do While i = Temp <> True
    Set Supp = tmp.Items(olContactItem)
    Supp.Delete
    i = i + 1
         
Loop