importer des contacts via excel

didger · 17 Septembre 2011

Bonjour,

Je suis depuis trois jours, sur un problème, j'essaye juste d'importer une liste de 400 contacts sur outlook avec une feuille excel.

Afin d’éviter les erreurs, j'ai commencé par exporter les contacts(vide) de façon a avoir ma feuille excel, par la suite je rentre les données (nom, prenom,ect) puis import ecxel 2003/07- et la rien, aucune donnée dans les contacts d'outlook.

Avez vous une petite idée sur mon problème ?

Merci

Compte Supprimé 979 · 17 Septembre 2011

Re : importer des contacts via excel

Bonjour Didger

As-tu modifié des entêtes de colonnes ?
Sur qu'elle version d'outlook es-tu ?

A+

didger · 18 Septembre 2011

Re : importer des contacts via excel

Bonjour Bruno,

Je n'ai pas modifié les entêtes des colonnes, par contres toutes les colonnes ne sont pas remplies.(adresse2, 3, ect), sinon j'ai un pc sous outlook 2007 et un second PC sous 2010. j' ai le problème sur les deux version.

didger · 18 Septembre 2011

Re : importer des contacts via excel

C'est bon, je suis passé par une appli de l'iphone pour faire ma synchro.
Merci

Misange · 14 Octobre 2011

Re : importer des contacts via excel

Bonjour

Commence par saisir un contact dans outlook avant de faire ton exportation à vide. Ca t'aidera car les intitulés des colonnes sont souvent trompeurs...
Ensuite ce n'est pas en version 97/2003 qu'il faut enregistrer mais en CSV.

Lone-wolf · 22 Décembre 2011

Re : importer des contacts via excel

Bonsoir à tous,

@didger, dans la feuille excel les intitulés doivent avoir les mêmes intitulés d'Outlook, ex.:

Adresse(Domicile) ou Adresse(Bureau)-Téléfone(Bureau) ou Téléphone(Domicile) etc.; ensuite pour l'exportation,

code à adapter.

Code:

Private Sub Enregistrer_Click()
Dim numLigneVide As Integer
Worksheets("Liste").Activate
numLigneVide = ActiveSheet.Columns(1).Find("").Row
If Nom.Text = "" Then
MsgBox "Vueillez saisir le nom !", , "Carnet d'adresses"
Nom.SetFocus
Else
ActiveSheet.Cells(numLigneVide, 1) = Nom.Text
ActiveSheet.Cells(numLigneVide, 2) = Prénom.Text
ActiveSheet.Cells(numLigneVide, 3) = Rue.Text
ActiveSheet.Cells(numLigneVide, 4) = CP.Text
ActiveSheet.Cells(numLigneVide, 5) = Ville.Text
ActiveSheet.Cells(numLigneVide, 6) = Téléphone.Text
ActiveSheet.Cells(numLigneVide, 7) = Mobile.Text
ActiveSheet.Cells(numLigneVide, 8) = Email.Text
ActiveSheet.Cells(numLigneVide, 9) = Web.Text

Nom.Text = ""
Prénom.Text = ""
Rue.Text = ""
CP.Text = ""
Ville.Text = ""
Téléphone.Text = ""
Mobile.Text = ""
Email.Text = ""
Web.Text = ""
Nom.SetFocus
End If
 'création du contact dans Outlook
    Dim objOutlook As Outlook.Application
    Dim objContact As ContactItem
    Set objOutlook = New Outlook.Application
    Set objContact = objOutlook.CreateItem(olContactItem)
    Dim NomFamille As String
    NomFamille = Sheets("Liste").Range("b65535").End(xlUp).Text & " " & _
         Sheets("Liste").Range("a65535").End(xlUp).Text
    With objContact
        .FullName = NomFamille
        .BusinessAddressStreet = Sheets("Liste").Range("c65535").End(xlUp).Text
        .BusinessAddressPostalCode = Sheets("Liste").Range("d65535").End(xlUp).Text
        .BusinessAddressCity = Sheets("Liste").Range("e65535").End(xlUp).Text
        .BusinessTelephoneNumber = Sheets("Liste").Range("f65535").End(xlUp).Text
        .MobileTelephoneNumber = Sheets("Liste").Range("g65535").End(xlUp).Text
        .Email1Address = Sheets("Liste").Range("h65535").End(xlUp).Text
        .Save
   End With
   Load Nouveau
End Sub

Comme tu peux le voir ici, c'est le préfix (si j'ose dire) Bureau (Business); donc les intilutés dans Excel doivent être: Adresse(Bureau)-Domicile(Bureau)-Téléphone(Bureau) etc.

A toi de jouer!

A+

Staple1600 · 22 Décembre 2011

Re : importer des contacts via excel

Bonsoir à tous

Lone-Wolf
On faiblit ?

Code:

'création du contact dans Outlook
    Dim objOutlook As Outlook.Application
    Dim objContact As ContactItem
    Set objOutlook = New Outlook.Application
    Set objContact = objOutlook.CreateItem(olContactItem)

Tu te souviens déjà plus de ma suggestion d'hier

Lone-wolf · 22 Décembre 2011

Re : importer des contacts via excel

Salut Stapple,

C'est un ancien fichier et je n'ai pas pris la peine de faire les modifications.

Mais rassure-toi, je n'est pas oublié. J'ai procédé tout de suite aux modifs sur le nouveau.

Code:

Dim olApp ,Msg
Set olApp =CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(olMailItem)

A+ Boy

Staple1600 · 22 Décembre 2011

Re : importer des contacts via excel

Re

Comme c'est Noel, un tit KDO pour toi

Lone-wolf · 22 Décembre 2011

Re : importer des contacts via excel

Re, Stapple.

Un shti Cad Ooooh??? C'est très sympa de ta part.

A+

PS (Pardon Sir): Hier,

J'ai procédé tout de suite aux modifs sur le nouveau.

Staple1600 · 22 Décembre 2011

Re : importer des contacts via excel

Re

Tu as cliqué sur le lien de mon précédent message au moins ?

Lone-wolf · 22 Décembre 2011

Re : importer des contacts via excel

Quel lien et quel message?

PS: Fallait le trouver celui-là , mais...

il y a trèèèèèèèèèèèèèèèèèèèèsss longtemps que je ne joue plus avec ça; même mon gamin de 6ans préfère les ordis aux jeux de gamins.

A+

Staple1600 · 22 Décembre 2011

Re : importer des contacts via excel

RE

Pourtant je te trouve très beau comme cela.

Lone-wolf · 22 Décembre 2011

Re : importer des contacts via excel

Et Bin! t'as de drôles de goûts dit-donc.

A+

importer des contacts via excel

didger

XLDnaute Nouveau

Compte Supprimé 979

Guest

didger

XLDnaute Nouveau

didger

XLDnaute Nouveau

Misange

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires