Import VCard dans tableau Excel

Bonjour,

pour les import il faut du vCard 3.0.

J'ai un petit souci pour importer une url d'une vcard dans une cellule Excel.

Si vous avez une idée

Il faut pour voir mette l''url type

https://www.siteground.com
http://www.siteground.com

Ou pas d'url dans la vcard

et un message box pour pour pourvoir modifier (pour l'instant c'est optionnel)

Si url type : www.siteground.com

je joins le fichier :

et le vcard:

Bonjour Jean35,

Je te propose de remplacer la ligne suivante dans ta procédure "Import_VCard" :

                        Case "UR"
                            new_Contact(14, i) = S1(1) & IIf(UBound(S1) > 1, S1(2), "") ' Site WEB

Bonjour GVIALLES,

Message d'erreur " l'indice ..........)

Ca fonctionne bien uniquement quand il y a un lien.

Il faut aussi voir pour les Vcard sans Site web.

j'ai mis les fichiers en ZIP

merci.

Bonjour Jean35,

Nouvelle proposition de code :

        Case "UR"
            Select Case UBound(S1)
                Case 0
                    new_contact(14, i) = ""            ' Pas de site WEB
                Case 1
                    new_contact(14, i) = S1(1)         ' Site WEB sans HTTP
                Case 2
                    new_contact(14, i) = S1(1) & S1(2) ' Site WEB avec HTTP
            End Select

Bonjour Gérard,

As tu me trou le ....

T'es trop bon, vraiment merci.

Ca marche sauf qu'il manque les 2 points https//forum.excel-pratique.com

Apres l'import ils sont supprimés de l'url.

                         Case "UR"
                            Select Case UBound(S1)
                            Case 0
                            new_Contact(14, i) = ""            ' Pas de site WEB
                            Case 1
                            new_Contact(14, i) = S1(1)         ' Site WEB sans HTTP
                            Case 2
                            new_Contact(14, i) = S1(1) & ":" & S1(2) ' Site WEB avec HTTP
                            End Select

J'ai ajouté & ":" :

   "new_Contact(14, i) = S1(1) & ":" & S1(2) ' Site WEB avec HTTP"        

Jusqu'à la prochaine modif.

Cordialement Jean.