Bonjour,
J'espère que vous pourrez m'apportez une solution, cela fait quelques semaines que je bloque sur le développement d'une feuille excel. Je m'en remets donc aux pro du VBA. J'expose mon problème :
Je cherche à réaliser une base de données de fournisseurs, avec une interface simple d'import/export de contact. J'ai déjà réussi à créer un bouton me permettant d'exporter cette base de données dans un dossier, sous forme de VCard.
Je souhaiterai créer un bouton permettant l'opération inverse, c'est à dire :
1) Qu'une ligne vierge soient créée à la fin de mon tableau, juste au dessus de la ligne composée de ############ (en supposant que toutes les lignes vierges au dessus soient remplies)
2) Ouvrir une fenêtre me permettant de sélectionner une VCard
3) Que les informations contenues dans cette dernière soit ajoutées à ligne tout fraichement créée à la fin de mon tableau (en dessous de la ligne Entreprise 2 dans mon fichier joint), dans les colonnes respectives (Cf. la trame ci-dessous).
Je n'ose même pas vous envoyer la trame que j'ai commencé, je me suis complètement emmêlé les pinceaux. Je suis dans le BTP et le VBA n'est pas un ami de longue date ! Un fichier m'a particulièrement aidé, malheureusement je souhaiterai récupérer plus d'informations que le Nom, le prénom et le numéro de téléphone. Je vous fournis le fichier ( en pièce jointe : recuperer-contacts.xlsm) :
NOTE : Le trame de mes VCard, lorsqu'elle est ouvert avec un éditeur de texte, est la suivante :
BEGIN:VCARD
VERSION:2.1
N;LANGUAGE=fr: Nom Prénom
FN: Civilité Nom Prénom
ORG: Entreprise
TITLE: Fonction
TEL;WORK;VOICE: Tél. Fixe
TEL;CELL;VOICE: Tél. Mobile
TEL;WORK;FAX: Fax
EMAIL;WORK;PREF;INTERNET: mail
URL;WORK: site
ADR;WORK: Ville Departement
LABEL;WORK;PREF: Ville Departement
X-MS-OL-DEFAULT-POSTAL-ADDRESS:1Ville; Departement
END: VCARD
Merci encore pour le temps que vous me consacrerez .
Partager