XL 2016 Extraire les données de cellules contenant des liens hypertexte de type courriel

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #2

Bonjour et bienvenue sur xld,

Il est difficile aux répondeurs de travailler sur une image (...quelque soit son format 🙂 ).
Si vous voulez des réponses, sans doute qu'un fichier exemple anonymisé et sans données confidentielles nous aiderait à vous aider.

cordialement

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #3

Bonjour et merci de votre diligente réponse
en pj le doc
je souhaite donc extraire les données du lien hypertexte "envoyer un message" de la colonne E (adresses mails)et transférer ces adresses dans la colonne F. Mon fichier excel comprendra 1500 lignes Bien cordialement

 

Pièces jointes

• liste GHM SNGM.xls

  36.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #4

Re,

Euh??? et c'est nous qui devons créer la liste de liens hypertextes pour pouvoir en extraire les adresses mails ????

A revoir

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #5

Le ficher envoyé est un exemple de mon fichier, je souhaite connaitre la technique (vba, formule...) qui me permettrait d'afficher l'email de chaque personne. Dans la colonne E cette l'adresse mail n’apparaît pas. Le lien hypertexte "envoyer un message" ne me permet que d'envoyer un email. le but est de les afficher et de les utiliser pour des envois groupés.
Merci

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #6

Désolé,

Je ne travaille pas sur du vide.

Bon courage

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #7

Roblochon à dit:

Désolé,

Je ne travaille pas sur du vide.

Bon courage

Cliquez pour agrandir...

Me suis je mal exprimé dans ma demande
Bien cordialement

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #8

Re,

Dans votre fichier il n'y a aucun lien hypertext (même bidon) desquels nous pourrions tirer des adresses mail.

Cordialement

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #9

Effectivement le fichier est vide
Je vous le renvoie merci

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #10

le voici

 

Pièces jointes

• liste GHM SNGM 1.xlsm

  18.6 KB · Affichages: 7

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #11

Re,

Voici la macro suivante dans le fichier joint :

VB:

Sub ExtraireAdressesCourriels()
    Dim c As Range    ' variable range d'une cellule parcourue par la boucle for
    Dim t() As String    ' Tableau de résultats
    Dim i As Integer     ' indice de tableau
  
    'Travailler sur le tableau de la feuille GHM
    With ThisWorkbook.Sheets("GHM").Range("A1").CurrentRegion
        '
        ' Eviter la ligne d'entête
        With .Offset(1).Resize(.Rows.Count - 1)
          
            ReDim t(1 To .Rows.Count)
          
            ' Boucler sur les cellules de la cinquième colonne
            For Each c In .Columns(5).Cells
              
                ' si la cellule parcourue contient un lien hypertexte
                If c.Hyperlinks.Count > 0 Then
                    i = i + 1
                    ' S'il s'agit d'un lien mailto
                    If Left(LCase(c.Hyperlinks(1).Address), 7) = "mailto:" Then
                        ' valoriser le tableau
                        t(i) = Replace(LCase(c.Hyperlinks(1).Address), "mailto:", "")
                    End If
                End If
            Next c

            If i > 0 Then .Columns(6) = Application.Transpose(t)
        End With
    End With
End Sub

[Edition] Ai corrigé une erreur de logique (en cas de cellule sans lien ) et re loader le fichier.

bonne soirée

 

Pièces jointes

• liste GHM SNGM 1.xlsm

  26.4 KB · Affichages: 10

Dernière édition: 11 Mai 2020

Vote positif 0 Vote négatif

Solution

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #12

Super merci je débute en. VB pouvez vous m'indiquer la procédure à suivre pour effectuer cette manip et récupérer les email
Bien cordialement Marie

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #13

Re,

Ecoutez.... soyez plus précis dans vos demandes, pour ma part j'ai répondu à votre demande initiale.
Je ne vois pas de quelle manip vous parlez !!!

Demander un dépannage, n'oblige pas à faire l'économie d'un apprentissage de base.

Je vais finir par passer mon chemin.

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #14

Je comprends .. être plus précis je veux bien mais j'avoue que je n'ai aucune connaissance en VB donc pas évident pour moi.
Pourriez-vous me renvoyer vers un tuto qui m'expliquerait comment et où installer cette commande et me permettre de récupérer les email. Merci par avance de votre patience
Bien cordialement

 

Vote positif 0 Vote négatif

franck78600

XLDnaute Nouveau

• 11 Mai 2020

• #15

En glanant des infos sur le net j'ai trouvé l'utilisation des macros
encore merci de votre aide et de votre patience😉
Bonne soirée

 

Vote positif 0 Vote négatif