Discussion :

[Charlotine]

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

[Oliv-]

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/

[Charlotine]

Merci beaucoup!