Récupérer des données dans le corps d'un email

Bonjour,

Je suis nouveau sur le forum, je viens vous consulter afin d'élaborer un fichier qui a pour but de récupérer des données présentes dans le corps d'un email réceptionné chaque jour.

Mon fichier excel est composé de deux feuilles la première un tableau ''Décembre 2k17'' la seconde feuille ''Données'' un copier coller du mail reçu avec les données à rechercher.

Je dois récupérer les valeurs présentes en colonne B9 à B48 et les incrémenter grâce à la date présente en A7.

Afin de renseigner la feuille ''Décembre 2k17'' dans la colonne correspondant à la date présentée en feuille ''Données''

Cela fait un moment que je n'ai pas utiliser VBA et je suis passé par l'enregistreur mais je bloque sur le problème pour récupérer la date.

Je vous remercie pour votre aide.

Bonjour,

Une proposition à étudier.

Cdlt.

Merci c'est super cool, j'ai ajouter moins 1 sur le jour.

Car les données énumérées sont celle de la veille et non celle de la prod du jour.

Merci encore pour ce code. Est ce que tu pense possible de raccourcir le code suivant:

Sub MiseEnForme()

    Sheets(2).Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

End Sub

C'est la phase pour transposer les données en utilisant le séparateur '';''.

Je suis passer par l'enregistreur mais il existe peut être un code plus safe ?