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
    Homme Profil pro
    aucun
    Inscrit en
    décembre 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 23
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : aucun
    Secteur : Bâtiment

    Informations forums :
    Inscription : décembre 2018
    Messages : 1
    Points : 2
    Points
    2

    Par défaut Exporter tableau d'un mail vers Excel

    Bonjour à tous,

    Je reçois quotidiennement des mails contenants un tableau, j'aimerai l'exporter vers Excel mais je n'arrive qu'à récupérer le texte (Item.Body).

    Auriez vous une idée ?

    Merci
    Images attachées Images attachées   

  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,
    Voici une façon de faire

    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
    35
    36
    37
    38
    39
    40
    41
    Sub export_Table_excel()
        Dim Oitem As Outlook.MailItem
        Dim ohtml As HTMLDocument
        Dim xlapp As Object
        Dim WK As Object
        Dim Ws As Object
     
        'on utilise l'email ouvert
        Set Oitem = ActiveInspector.CurrentItem
     
     
        'ici on lance excel
        Set xlapp = CreateObject("Excel.application")
     
        'ici on ajoute un classeur
        Set WK = xlapp.Workbooks.add
        Set Ws = WK.ActiveSheet
        xlapp.Visible = True
     
        Set ohtml = New HTMLDocument
        ohtml.Body.innerHTML = Oitem.HTMLBody
        Set mesHREF = ohtml.getElementsByTagName("TABLE")
        i = 1
        j = 1
     
        For t = 0 To mesHREF.Length - 1
            Set TableHTML = mesHREF(t)
            For Each trBoucle In TableHTML.Rows
                For Each cellBoucle In trBoucle.Cells
                    'MsgBox cellBoucle.outerText
                    Ws.Cells(i, j).Value = cellBoucle.outerText
                    j = j + 1
                Next
                i = i + 1
                j = 1
     
            Next
     
        Next
     
    End Sub

Discussions similaires

  1. Réponses: 12
    Dernier message: 01/07/2015, 12h02
  2. exportation et importation de données vers excel
    Par Skizo dans le forum Access
    Réponses: 3
    Dernier message: 20/05/2006, 09h50
  3. Réponses: 7
    Dernier message: 22/12/2005, 09h56
  4. Export de données d'Access vers Excel
    Par ROPERS dans le forum Access
    Réponses: 4
    Dernier message: 11/10/2005, 17h44
  5. exporter données (requete ou DBGrid) vers Excel
    Par marie253 dans le forum Bases de données
    Réponses: 4
    Dernier message: 14/09/2004, 10h20

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