Discussion :

[arnathor]

Bonjour,

A partir d'une base de données réalisée sur Excel je souhaite transférer des contacts dans Outlook 2007. J'ai trouvé le code suivant qui crée le contact dans le dossier par défaut "Contact", alors que je souhaite qu'il soit ajouté dans un dossier nommé "BdD".

Merci par avance pour votre aide.

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
Sub ajouterContactOutlook()
 
    Dim objOutlook As Outlook.Application
    Dim objContact As ContactItem
 
    'Crée l'instance Outlook
    Set objOutlook = New Outlook.Application
    'Crée un élément pour les contacts
    Set objContact = objOutlook.CreateItem(olContactItem)
 
    'Définit les informations du nouveau contact
    With objContact
        .Email1Address = "mon.mail@fournisseur.fr"
        .FirstName = "Prénom"
        .LastName = "Nom"
 
        'Sauvegarde le contact
        .Save
    End With
 
    MsgBox "Contact ajouté !"
End Sub

[ANOVA]

Que fait ton bout de code ? Il crée un fichier dans le répetoire contact alors que tu souhaiterais le mettre dans un autre répertoire ?

Est ce que tu ne pourrais pas dire à Excel de créer le fichier dans le mauvais répertoire (Contact, puisque c'est ce qu'il fait par défaut) et ensuite lui demander de transférer le fichier créé du mauvais répertoire (Contact) vers le bon (BdD) ?

[arnathor]

Bonjour et merci pour la réponse.

Cela peut être une solution, mais je suis persuadé que l'on peut créer le contact directement dans le répertoire "BdD". Avec le code suivant on crée un nouveau dossier perso tel que "BdD", mais je n'arrive pas à l'adapter pour créer le contact directement dans ce fameux répertoire "BdD".

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Ajouter_carnet_adresse_et_cocher()
 
    Dim olApp As Outlook.Application
    Dim Namespace As Outlook.Namespace
    Set olApp = CreateObject("Outlook.Application")
    Set Namespace = olApp.GetNamespace("MAPI")
    Set olApp.ActiveExplorer.CurrentFolder = Namespace.GetDefaultFolder(olFolderContacts)
    NomDossier = InputBox("Quel est le nom du dossier à créer ?")
    Set objStrCtc = Namespace.GetDefaultFolder(olFolderContacts).Parent.Folders.Add(NomDossier, olFolderContacts)
    objStrCtc.ShowAsOutlookAB = True
 
End Sub