Re : Importer contacts outlook vers excel
Bonjour Le Forum
Salut Yaloo
J'ai regarder ta proposition avec un Listview, au niveau présentation et résultat pour les tries et recherche
c'est vraiment bien.
Quelque question :
1. J'ai désactivé à l'ouverture du fichier le lancement de de Récup_outlook
Private Sub Workbook_Open()
'Récup_outlook
End Sub
Car je ne veux qu'il se lance automatiquement, je veux pouvoir choisir par le bouton de la feuille 1.
Par contre il n'ouvre pas outlook et ne me permets pas de choisir une liste de contact.
2. Serait-il possible de combiner entre ta listview et ma Listbox ( Boisgontier ) quelque chose ?
Je m'explique, à l'ouverture de la Listbox, il ne remplit pas un fichier ( Feuill2 et 3 pour ta Lisview ), les données originales sont sur Outlook.
Je préfère cette solution pour mon cas, car au final mon programme sera un fichier modèle et je ne veux pas que
l'on rajoute des choses dessus.
Je ne sais pas comment Boisgontier a fait ça, mais si on pouvait le faire avec ta Listview cela serait le Top.
Je vous joint le Fichier.
3. Comment mettre en italique ou en gras ou en couleur, les 3 dernières lignes de la texbox,
j'ai essayé avec :
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox2 = Item.ListSubItems(1) _
& vbLf & Item.ListSubItems(3) & " " & Item.ListSubItems(2) _
& vbLf & Item.ListSubItems(5) _
& vbLf & Item.ListSubItems(6) & " " & Item.ListSubItems(7) _
& vbLf & Item.ListSubItems(8) & " - " & Item.ListSubItems(9) _
& vbLf & "---------------------------------------" _
& vbLf & "FAX : " & Item.ListSubItems(10) _
& vbLf & "EMAIL : " & Item.ListSubItems(11) .Font.Bold = True _
& vbLf & "NATEL : " & Item.ListSubItems(12) _
Mais cela ne fonctionne pas.
Merci à Vous.
A+