EXCEL : Envoyer automatique un tableau croisé dynamique par mail

EXCEL : Envoyer automatique un tableau croisé dynamique par mail - VB/VBA/VBS - Programmation

Marsh Posté le 28-06-2010 à 14:41:26    

Bonjour à tous !
 
Je sèche depuis plusieurs jours sur un sujet et peut être que quelqu'un sur le forum pourrait m'orienter.
 
J'ai un fichier excel, générer chaque matin, que je traite en réalisant les opérations manuelles suivantes :
 

  • Création d'un tableau croisé dynamique
  • Construction des différents tableaux de reporting
  • Nouveau mail Outlook (5 mails différents)
  • Saisie des destinataires / objet pour chaque mail
  • Copié/collé des tableaux dans le corps du mail et envoi (3 par mail, soit 15 copié/collé)


J'ai pu automatiser presque toutes les actions dans une marco Excel qui :

  • Crée le tableau croisé dynamique
  • Construit les tableaux de reporting
  • Crée les nouveaux mails avec les bons destinataires + objet


Et je bloque sur le "copy/paste" des tableaux dans le mail.
 
J'arrive à sélectionner mon tableau :

Citation :

ActiveSheet.PivotTables("assigné" ).TableRange1.Select


 
Je créé mon mail de la manière suivante :

Citation :

Set OutApp = CreateObject("Outlook.Application" )
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(olMailItem)
    On Error Resume Next
    With OutMail
        .To = "to"
        .Subject = "objet"
        .HTMLBody = "corps"
        '.Save
        .Display
    End With


 
Quelqu'un pourrait m'orienter sur la manière d'insérer les tableaux dans les mails ?
 
Merci.
 
 


---------------
iPhone 3GS Orange fw 3.1
Reply

Marsh Posté le 28-06-2010 à 14:41:26   

Reply

Marsh Posté le 30-06-2010 à 09:13:45    

Hello
 
Plusieurs solutions :
Mettre le tableau en html dans le corp
Mettre une image du tableau dans le corp
Copier le tableau dans un nouveau fichier, joindre le fichier au mail
 
(Es tu sur que ca fonctionne qd tu fais un copier/coller de ton tableau a quelqu'un qui a par ex une messagerie Free ?)
 
Je te laisse jeter un coup d'oeil ici
 
Si tu as un souci n'hesite pas ;)


Message édité par SuppotDeSaTante le 30-06-2010 à 09:17:21

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed