Transfert données de Outlook vers Excell

[Phosie]

Bonjour,

J'ai des contacts sous outlook. Est-il possible, à partir de Outlook ou de Excell, de transférer les champs Outlook (noms, prénoms, tél) d'un contact vers Excell ?
Mes versions sont Outlook et Excell 2003.

Merci d'avance.

Pr.Phosie

 

[dg]

Bonjour


depuis outlook

fichier
Exporter
Fichier séparé par des virgules


depuis excel

Ouvrir

Fichier texte (txt csv ...)
et choisir le fichier généré par Outlook

A+

 

[Phosie]

Merci pour cette réponse ultra rapide.

Seulement, j'ai pas été assez précis !

Je souhaite transférer seulement noms, prénoms, tél d'une personne en particulier. Je pensais faire cela avec un bouton dans le formulaire de mon contact. Le script devrait ouvri excell et mon fichier et y intégrer les champs spécifiés.

Re-merci d'avance... ;=)

Pr.Phosie

 

[Phosie]

Merci pour cette réponse ultra rapide.

Seulement, j'ai pas été assez précis !

Je souhaite transférer seulement noms, prénoms, tél d'une personne en particulier. Je pensais faire cela avec un bouton dans le formulaire de mon contact. Le script devrait ouvri excell et mon fichier et y intégrer les champs spécifiés.

Re-merci d'avance... ;=)

Pr.Phosie

 

[michel]

bonjour Phosie , bonjour Dg

j'espere que cet exemple ,qui permet d'extraire des informations de la base de données des contacts Outlook , pourra t'aider


Option Compare Text
Sub Informations_ContactsOutlook()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set dossierContacts = olApp.getNamespace("MAPI").getDefaultFolder(olFolderContacts)

For Each Cible In dossierContacts.Items
If Cible.LastName = "MichelXLD" Then 'partie droite du champ nom complet

Cells(1, 1) = Cible.lastNameAndFirstName 'champ nom complet
Cells(1, 2) = Cible.FirstName 'partie gauche du champ nom complet
Cells(1, 3) = Cible.LastName 'partie droite du champ nom complet
Cells(1, 4) = Cible.homeTelephoneNumber 'numero de telephoe domicile
Cells(1, 5) = Cible.BusinessTelephoneNumber 'numero telephone bureau
End If
Next
End Sub


pour activer la reference Microsoft Outlook xx.x Object Library
dans Visual Basic Editor (Alt+F11)
menu Outils
References
coches la ligne Microsoft Outlook xx.x Object Library
cliques sur OK pour valider



bonne soiree
MichelXld

 

[Olivier]

Bonjour a tous , je cherche a savoir comment faire pour travailler avec une liste , et que quand dans une colone , je rentre un age , dans la colone a cotée il me donne une valeur .

Voir fichier joint .

D'avance merci de votre aide .


Olivier

 

[Olivier]

Desole , je me suis tronper de sujet . Olivier

 

[valskaya]

Re : Transfert données de Outlook vers Excell

Bonjour,

J'ai cherché partout sur le net mais pas moyen de trouver ! :s
La réponse ci-dessus est pour extraire à partir des contacts. Moi ce serait dans un dossier d'emails.

Je reçois des emails de la part d'un partenaire pour m'envoyer des contacts de personne qui veulent des devis. Ces emails sont tous les mêmes :

"Contact Name: Ed XXXXX
Company Name: Expert XXX

Location:
XX XXXX Street

Naples, FL 34109

Email: ed@XXXXs.com
Phone: XXX-XXX-XXXX
Fax:
"

Je cherche à extraire vers [/contents/tableur/tablintro.php3 Excel] tous ces données automatiquement sans à avoir à faire un copier/coller sur plus de 200 emails. 😱

Merci d'avance pour votre aide !!

 

[valskaya]

Re : Transfert données de Outlook vers Excell

Petit up 🙂