Import VCard dans tableau Excel
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 ############
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.
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
bonjour
a tester voir déjà si ca lit bien test fichier Vcard
A+
Maurice
Maurice,
tout d'abord bonjour.
Je ne comprends pas ce que vous avez modifié. Avez-vous modifié la macro "LoadFichier" ? Attention, cette macro était déjà présente sur ma feuille et est très certainement éronnée.
Lorsque je l’exécute elle me supprime une partie de mon tableau.
Cdlmt
Voilà un fichier tout propre
Bonsoir
je vais me coucher
mes la macro se trouve dans le module2 et le fichier va dans l'onglet Import
A+
Maurice
Maurice,
Ca a été compliqué pour moi de récuperer le module, je ne suis pas un expert et veuillez m'en excuser.
En tout cas le fichier à l'air de marcher. Je recupère bien les coordonnées dans l'onglet import.
Je voudrais dès à présent récupérer cela directement dans mon tableau, en dernière ligne (en supposant que les lignes vierges que j'ai ajouté à titre d'exemple soient remplies, il faudrait ajouter une ligne juste avant la dernière ligne constituée de #######################)
De plus je ne sais pas si cela est possible, mais on s’aperçoit qu'en face de "N;LANGUAGE=fr", on a "OURY Léo" (donc nom + prénom). Serait-il possible de dissocier cela en récupérant le Prénom dans la colonne prénom et le nom dans la colonne Nom ?
Je pense que cela est possible, je connais la fonction équivalente en formule Excel mais pas en VBA :
STXT(A1;TROUVE(" ";A1)+1;NBCAR(A1)-TROUVE(" ";A1))
Nous sommes sur la bonne voie. Bonne nuit Maurice !
bonjour
je peux pas faire mieux
1 / bouton Lecture Vcard
2 / Bouton Transfert
A toi de faire des modifes si ca te va pas
A+
Maurice
Alors là, Maurice, chapeau !
Merci beaucoup pour ton aide.
C'est à peu prêt ce que je souhaitais obtenir comme résultat, et je suis en mesure de corriger les deux trois éléments restants pour arriver au résultat escompté.
Merci encore pour le temps que tu m'as consacré. Je te souhaite une excellente soirée !