Importer fichier Excel dans Outlook

Importer fichier Excel dans Outlook - VB/VBA/VBS - Programmation

Marsh Posté le 16-11-2007 à 11:12:41    

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

Reply

Marsh Posté le 16-11-2007 à 11:12:41   

Reply

Marsh Posté le 16-11-2007 à 12:24:08    

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

Code :
  1. Sub test()
  2.     Dim exlApp As Excel.Application
  3.     Dim exlWkb As workbook
  4.     Dim exlsht As worksheet
  6.     Dim itmContact As Outlook.ContactItem
  8.     Set exlApp = New Excel.Application
  10.     strFilepath = exlApp.GetOpenFilename
  11.     If strFilepath = False Then
  12.         exlApp.Quit
  13.         Set exlApp = Nothing
  14.         Exit Sub
  15.     End If
  17.     Set exlsht = Excel.Application.Workbooks.Open(strFilepath).Worksheets(1)
  18.     Dim iRow As Integer
  19.     Dim iCol As Integer
  21.     Dim mpiFolder As MAPIFolder
  22.     Dim oNs As NameSpace
  24.     Set oNs = Outlook.GetNamespace("MAPI" )
  26.     Set mpiFolder = oNs.GetDefaultFolder(olFolderContacts)
  27.    
  28.     iRow = 2
  29.     iCol = 2
  31.     Set itmContact = Outlook.CreateItem(olContactItem)
  33.     itmContact.FirstName = exlsht.Cells(iRow, iCol)
  34.     itmContact.Save
  36.     Excel.Application.Workbooks.Close
  37.     exlApp.Quit
  38.     Set exlApp = Nothing
  39. 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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed