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