Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Femme Profil pro
    Ressources humaines
    Inscrit en
    mai 2019
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 38
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Conseil

    Informations forums :
    Inscription : mai 2019
    Messages : 1
    Points : 3
    Points
    3

    Par défaut Extraction de données spécifiques dans le corps de mail

    Bonjour,

    Je souhaiterai savoir si VBA peut extraire des données spécifiques dans le corps de mail et les renvoyer sur excel.

    Par exemple : un salarié pose les congés payés du 22/05/2019 au 31/05/2019 soit 8 jours

    VBA est-il capable de sortir des éléments précis : nom du salarié;type de congé;date de début;date de fin;nombre de jours ?
    Et faire de même avec toutes les demandes de congés reçues par mail.

    La question se pose en cas de texte libre ou formaté.

    Je vous remercie d'avance.

    Bien à vous,
    Charlotte

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 614
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 614
    Points : 6 275
    Points
    6 275
    Billets dans le blog
    16

    Par défaut

    Bonjour,

    si le format du mail est toujours identique, c'est plus facile, sinon en utilisant les REGEX on peut trouver toutes les occurrences d'une date, par exemple, dans le texte. On determine que la plus ancienne est la date de début et la plus récente la date de fin.

    Voici un exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
    Private Sub TestDate()
        Dim MailBody As String
        Dim retour As Variant
        MailBody = ActiveInspector.CurrentItem.Body
     
        retour = RegExDate(MailBody)
        If retour(0) <= retour(1) Then
            MsgBox retour(0) & vbCr & retour(1)
        Else
            MsgBox retour(1) & vbCr & retour(0)
        End If
        End
    End Sub
     
    Private Function RegExDate(s As String) As Variant
        Dim re, match, Matches, MesDates()
        Set re = CreateObject("vbscript.regexp")
        re.Pattern = "(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)[0-9]{2}"
        re.Global = True
        Set Matches = re.Execute(s)
        ReDim MesDates(Matches.count)
        n = 0
        For Each match In Matches
            MesDates(n) = match.Value
            n = n + 1
            'MsgBox match.Value
            'RegExDate = match.Value
            'Exit For
        Next
        RegExDate = MesDates
        Set re = Nothing
        Set Matches = Nothing
    End Function


    https://cafeine.developpez.com/access/tutoriel/regexp/

Discussions similaires

  1. Extraction de tables spécifiques dans plusieurs bases
    Par djodu69 dans le forum Administration
    Réponses: 2
    Dernier message: 16/08/2010, 13h28
  2. [AC-2007] Mise à jour d'une donnée spécifique dans la BD
    Par christophe31 dans le forum VBA Access
    Réponses: 4
    Dernier message: 23/03/2010, 11h23
  3. [AC-2000] Modification de données directement dans le corps d'un email
    Par tibogaet dans le forum IHM
    Réponses: 1
    Dernier message: 23/08/2009, 10h49
  4. [SQL] Données spécifiques dans un tableau
    Par Shandler dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 12/03/2008, 12h19
  5. extraction de données formatées dans un fichier excel
    Par slausseur dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 14/03/2007, 15h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo