Extraire des adresses e-mail dans une base de données Excel

Salut à tous.

SVP, Prière m'aider à trouver une ou des fonctions qui me permettraient d'extraire les adresses e-mail dans une base de données Excel vers un fichier Word par exemple ou dans le champ A: dans un logiciel de messagerie, le tout séparé par des points virgule (;).

Merci pour votre aide.

Je joins le fichier pour vous permettre de comprendre ma préoccupation.

Adresse du fichier:

https://www.excel-pratique.com/~files/doc2/Adresses.xls

Bonjour,

Ta question est trop vague :

dans un logiciel de messagerie,

Quel logiciel de messagerie?

cousinhub a écrit :

Bonjour,

Ta question est trop vague :

dans un logiciel de messagerie,

Quel logiciel de messagerie?

Yahoo par exemple ou hotmail par exemple.

Merci encore

Re-,

je ne connais pas avec ces logiciels, mais pour récupérer toutes tes adresses dans un tableau VBA, tu peux utiliser ce code :

Sub ee()
Tbl = Range("D2:D" & [D65000].End(xlUp).Row)
For i = LBound(Tbl) To UBound(Tbl)
    If InStr(1, Tbl(i, 1), "@") > 0 Then _
    tmp = Tbl(i, 1) & "; " & tmp
Next i
tmp = Left(tmp, Len(tmp) - 2)
End Sub

tmp contient toutes tes adresses mail séparées par un ";"

cousinhub a écrit :

Re-,

je ne connais pas avec ces logiciels, mais pour récupérer toutes tes adresses dans un tableau VBA, tu peux utiliser ce code :

Sub ee()
Tbl = Range("D2:D" & [D65000].End(xlUp).Row)
For i = LBound(Tbl) To UBound(Tbl)
    If InStr(1, Tbl(i, 1), "@") > 0 Then _
    tmp = Tbl(i, 1) & "; " & tmp
Next i
tmp = Left(tmp, Len(tmp) - 2)
End Sub

tmp contient toutes tes adresses mail séparées par un ";"

Connaissez-vous Outlook?

N'est-il pas possible de trouver une fonction sans le visual basic?

Merci

Bonjour à tous,

une petite procédure pour extraire les contacts du carnet d'adresse de Outlook. Si ça peut servir:

Public Sub ExtractionOutlook()
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
    'Extrait de la liste des contacts de Outlook le prénom et le nom des contacts
    Dim olApp As Outlook.Application
    Dim Cible As Outlook.ContactItem
    Dim DossierContacts As Outlook.MAPIFolder
    Dim ListeContact() As String
    Dim i, j As Integer

    Set olApp = New Outlook.Application
    Set DossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

    ReDim ListeContact(DossierContacts.Items.Count, 2)
    For Each Cible In DossierContacts.Items
        ListeContact(i, 0) = Cible.FirstName
        ListeContact(i, 1) = Cible.LastName
        ListeContact(i, 2) = Cible.Email1Address
        i = i + 1
    Next

    Sheets("Feuil1").Activate
    Range("A1").Select
    For j = 0 To i
        ActiveCell.Offset(j, 0) = ListeContact(j, 0)
        ActiveCell.Offset(j, 1) = ListeContact(j, 1)
        ActiveCell.Offset(j, 2) = ListeContact(j, 2)
    Next j

    Set Cible = Nothing
    Set DossierContacts = Nothing
    Set olApp = Nothing
End Sub

sinon si tu veux fonctionner avec Outlook, tu peux carrément exporter ton carnet d'adresse dans un fichier Excel.

Math a écrit :

Bonjour à tous,

une petite procédure pour extraire les contacts du carnet d'adresse de Outlook. Si ça peut servir:

Public Sub ExtractionOutlook()
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
    'Extrait de la liste des contacts de Outlook le prénom et le nom des contacts
    Dim olApp As Outlook.Application
    Dim Cible As Outlook.ContactItem
    Dim DossierContacts As Outlook.MAPIFolder
    Dim ListeContact() As String
    Dim i, j As Integer

    Set olApp = New Outlook.Application
    Set DossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

    ReDim ListeContact(DossierContacts.Items.Count, 2)
    For Each Cible In DossierContacts.Items
        ListeContact(i, 0) = Cible.FirstName
        ListeContact(i, 1) = Cible.LastName
        ListeContact(i, 2) = Cible.Email1Address
        i = i + 1
    Next

    Sheets("Feuil1").Activate
    Range("A1").Select
    For j = 0 To i
        ActiveCell.Offset(j, 0) = ListeContact(j, 0)
        ActiveCell.Offset(j, 1) = ListeContact(j, 1)
        ActiveCell.Offset(j, 2) = ListeContact(j, 2)
    Next j

    Set Cible = Nothing
    Set DossierContacts = Nothing
    Set olApp = Nothing
End Sub

sinon si tu veux fonctionner avec Outlook, tu peux carrément exporter ton carnet d'adresse dans un fichier Excel.

Merci infiniment,

Je vais essayer et je vous tiendrai informer.

Si non n'est-il pas possible de résoudre ce problème avec la concaténation.

Merci

je pense que je suis a co^té de la track...

Esct-ce que tu veux extraire les adresses email d'un client de messagerie ou bien tu les à déjà dans un classeur excel et tu veux les envoyer dans un fichier word?