Base de données (contacts) xlsx pour convertion vcard

[Fredox]

Bonjour à tous,

Je souhaite créer un fichier excel (xlsx) pour gérer mes contacts (environ 530 à ce jours, contacts pro), fichier un peu plus complet que ce que j'ai déjà trouvé.
l'idée est d'ensuite les exporter au format Vcard, puis les utiliser sous Outlook.

- J'ai récupérer le fichier Export_vCard.xls déjà prêt, il permet d'exporter ensuite les contacts (chaque lignes) en un fichier Vcard
- Pour l'importation en nombre des fichiers Vcard sous Outlook j'ai récupérer la macro (Outlook) i.e. SiMpLy_me, celle-ci fonctionne à merveille.

J'aimerais ajouter des informations, mais je n'arrive pas à trouver les codes correspondants à ces informations:
- Téléphone domicile 2
- Telephone societe
- Anniversaire
… en gros toutes les informations possibles à intégrées dans ma fiche de contact Outlook.

Quelqu'un connait-il ces "codes" ?

Merci

 

[Fredox]

Bonjour Tatiak,
Oui, cela ressemble au fichier Export_vCard.xls que j'ai utiliser, c'est de ce type de fichier que je compte m'inspirer.
En fait, je souhaite intégrer plus de champs, dans le fichier que tu as joint;
Dans la macro, j'ai bien retrouver certains "codes" pour désigner les informations du contact, j'aimerais disposer de plus

"FN:"
"ORG:"
"TITLE: "
"TEL;WORK;VOICE:"_
"TEL;WORK;FAX:"
"EMAIL;WORK;PREF;INTERNET:"
"URL;WORK:"
"ADR;WORK:;;"
"LABEL;WORK;PREF:"
"TEL;HOME;VOICE:"
"TEL;CELL;VOICE:"
"ADR;HOME;PREF:;;"
"X-MS-OL-DEFAULT-POSTAL-ADDRESS:1"
"EMAIL;INTERNET:"
"NOTE:"

Je souhaite ajouter le groupe de contacts, telephone société, anniversaire...

Ou je peux trouver cela ?


Merci

 

[Fredox]

Bonjour Tatiak,
Oui, je cherchais plus de possibilié, ce qu j'ai trouver un peu partout sur le web, et en retouchant un peu ton fichier:

Contenu = Contenu & "BEGIN:VCARD" & vbCrLf _
                & "VERSION:3.0" & vbCrLf _
                & "N:" & Prénom & ";" & Nom & vbCrLf _
                & "FN:" & Nom & " " & Prénom & vbCrLf _
                & "ORG:" & Range("G" & i).Value & vbCrLf _
                & "TITLE: " & Range("H" & i).Value & vbCrLf _
                & "TEL;TYPE=CELL;VOICE:" & Range("I" & i).Value & vbCrLf _
                & "TEL;TYPE=WORK;VOICE:" & Range("J" & i).Value & vbCrLf _
                & "TEL;TYPE=HOME;VOICE:" & Range("K" & i).Value & vbCrLf _
                & "TEL;TYPE=HOME;VOICE:" & Range("L" & i).Value & vbCrLf _
                & "EMAIL;TYPE=INTERNET,WORK,pref:" & Range("M" & i).Value & vbCrLf _
                & "EMAIL;TYPE=INTERNET,HOME:" & Range("N" & i).Value & vbCrLf _
                & "ADR;TYPE=WORK:;;" & Adr_pro & ";" & Ville_pro & ";;" & CP_pro & vbCrLf _
                & "ADR;TYPE=HOME:;;" & Adr_perso & ";" & Ville_perso & ";;" & CP_perso & vbCrLf _
                & "X-MS-OL-DEFAULT-POSTAL-ADDRESS:1" & vbCrLf _
                & "CATEGORIES: " & Range("B" & i).Value & vbCrLf _
                & "BDAY:" & Format(Range("F" & i).Value, "yyyymmdd") & vbCrLf _
                & "NOTE:" & Range("X" & i).Value & vbCrLf _
                & "URL;TYPE=WORK:" & Range("W" & i).Value & vbCrLf _
                & "END:VCARD" & vbCrLf

- J'ai ajouter une macro pour convertir les nombres en numéros de téléphone (00 00 00 00 00)
- Impossible de retrouver la catégorie, n'apparait pas sous Outlook
- J'ai vu que toi aussi tu n'utilisait pas le préfixe (M. Mme.), je n'arrive pas à l'insérer également

J'aimerais utiliser LOGO, qui serait situé dans le même répertoire que mon fichier excel, et qui porterait le même nom que l'entreprise, au format PNG, c'est possible d'ajouter cela ?