Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

importer des contacts via excel

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

didger

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
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 😉
 
Vote positif 0 Vote négatif
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 😎
 
Dernière édition:
Vote positif 0 Vote négatif
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+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2021 excel - vbs - csv
2
Réponses
28
Affichages
1 K
Deleted member 441486
D
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
577
job75
C
  • Question Question
XL 2016 Création événement Outlook via Excel
Réponses
1
Affichages
780
danielco
D
  • Question Question
Microsoft 365 Importer données de plusieurs classeurs dans un autre sans VBA
Réponses
7
Affichages
911
chris
J
  • Question Question
XL 2016 importer fichier mdb : probleme passage de excel 2010 à 2016
Réponses
12
Affichages
959
Hasco
A
  • Question Question
XL 2019 vba comment convertir pdf vers excel sans perdre la mise en forme
Réponses
5
Affichages
1 K
kiki29
D
  • Question Question
XL 2016 Copier des colonnes d'un tableau sur une autre feuille via une liste puis sauvegarder aide a développé la macro
Réponses
0
Affichages
526
desquiens.gabriel@hotmail
D
  • Question Question
Outlook extraction from Excel des contacts de tous les groupes de contact d'outlook
Réponses
0
Affichages
1 K
dmc27
D
  • Question Question
XL 2019 Problème ( incroyable?) avec les validations de données
Réponses
6
Affichages
2 K
job75
L
  • Question Question
Outlook Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
Réponses
14
Affichages
3 K
Barbichette
B
Y
  • Résolu(e)
XL 2010 Importer les données des feuilles de plusieurs classeurs Excel
Réponses
4
Affichages
1 K
younes belbaita
Y
L
  • Question Question
XL 2016 Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro
2
Réponses
23
Affichages
13 K
Lolote83
L
L
  • Question Question
Word Excel - QRCode - Word / Publipostage ".pdf" ."jpg" ,Outlook - Mail
Réponses
0
Affichages
3 K
lololo
L
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
  • Question Question
XL 2016 [Macro] Importer des données de plusieurs fichiers dans un seul fichier/plusieurs onglets
Réponses
0
Affichages
3 K
dj-spirit
B
  • Question Question
XL 2016 Importer plusieurs fichiers Excel dans un fichier
Réponses
1
Affichages
3 K
Jacky67
M
  • Résolu(e)
XL 2016 Message d'erreur aléatoire pour les utilisateurs réseau -Excel 2016
Réponses
11
Affichages
2 K
Melidan2006
M
M
  • Question Question
[Resolu] Importer des données d'un autres fichiers excel en le choisissant
Réponses
5
Affichages
1 K
don_pets
X
  • Question Question
Importer un fichier texte parser dans des emplacements fixes fichier Excel
Réponses
6
Affichages
2 K
Staple1600
P
  • Question Question
supprimer confirmation d'envoie d'un mail via vba
Réponses
3
Affichages
2 K
Guest
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…