Importer fichier Excel dans Outlook

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Importer fichier Excel dans Outlook

groskachou

Bonjour,

Je souhaiterais importer un fichier Excel comprennant mes contacts dans Outlook mais de façon automatiser via une macro VBA auquel je lui donne le chemin vers le fichier Excel. Je suis en train d'écumé le web mais je ne trouve que des export de contact de Outlook vers Excel et non l'import Excel vers Outlook
Une petite aide est donc la bienvenue.

Merci d'avance

Groskachou

Publicité

groskachou

Bon j'ai tatonné en bidouillant ligne par ligne et voici le résultat:

Code :

Sub test()
Dim exlApp As Excel.Application
Dim exlWkb As workbook
Dim exlsht As worksheet
Dim itmContact As Outlook.ContactItem
Set exlApp = New Excel.Application
strFilepath = exlApp.GetOpenFilename
If strFilepath = False Then
exlApp.Quit
Set exlApp = Nothing
Exit Sub
End If
Set exlsht = Excel.Application.Workbooks.Open(strFilepath).Worksheets(1)
Dim iRow As Integer
Dim iCol As Integer
Dim mpiFolder As MAPIFolder
Dim oNs As NameSpace
Set oNs = Outlook.GetNamespace("MAPI" )
Set mpiFolder = oNs.GetDefaultFolder(olFolderContacts)
iRow = 2
iCol = 2
Set itmContact = Outlook.CreateItem(olContactItem)
itmContact.FirstName = exlsht.Cells(iRow, iCol)
itmContact.Save
Excel.Application.Workbooks.Close
exlApp.Quit
Set exlApp = Nothing
End Sub

En tout cas, ca fait ce que je veux donc c'est niquel.

Message édité par groskachou le 16-11-2007 à 12:26:45

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Importer fichier Excel dans Outlook

Sujets relatifs
[PHP] Upload de fichier en plusieurs parties	2 macros excel
[ FLASH ] Qu'est ce qu'un fichier MXP ?	recherche dans un fichier commande lunix
ouvrir un fichier en J2ME	Ouvrir un fichier excel en focntion de son indice
Formulaire : envoi de mail et upload de fichier en un coup	Xsl et police dans une cellule Excel
Régression Linéaire sous Excel	importer des noms contenu dans un fichier excel dans outlook
Plus de sujets relatifs à : Importer fichier Excel dans Outlook

Page générée en 0.050 secondes