Discussion :

[fxleo]

Bonjour,

J'ai un soucis avec une création de mail automatique.
Je veux générer un mail automatiquement à partir d'une feuille excel qui contient :

Les destinataires
le corps du message
4 tableaux croisées
2 graphes provenant de tableaux croisées.

Afin de me simplifier la vie je copie l'ensemble et je le colle après avoir généré le mail avec l'implémentation des zones destinataires et autre.
Mon soucis est que les cellules sont redimensionnées lors de la copie et que les tableaux ne ressemblent plus à rien.
Auriez vous une solution?
Merci

[Fvandermeulen]

Salut,
Pas hyper claire ton truc, tu colles tes tableaux et graph dans le corps du message ?
Tu fais un copier coller/valeur des tes TCD ?
Si tu as un code, peux tu nous le monter ?
A+

[fxleo]

je me doute c'est pas évident

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
'Création du mail
Range("A2:I105").Select
Selection.Copy
Dim ol As New Outlook.Application
Dim olmail As MailItem
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Sheets("Mail").Cells(1, 2).Value
.CC = "nom"
.Subject = "Avance de la gestion du dossier retraite"
.Body = " "
.Display
'.Send
End With
'Set olmail = Nothing
'Set ol = Nothing
SendKeys "%e"
SendKeys "O"

En gros je copie les cellules qui vont constituer le corps du message.
Le truc pénible c'est que les cellules copiés contiennent des tableaux qui vont s'élargir . Je précise que ces tableaux sont des tableaux croisés dynamiques
merci

[Fvandermeulen]

Re,
Donc tu veux bel et bien coller ça dans le corps du message...
J'avoue ne jamais avoir fait ça, faudra chercher un peu mais je te donne quand même quelques alternatives qui seront plus simple à mettre en oeuvre:
-Joindre le fichier
-Insérer dans le corps une capture écran

A+

[fxleo]

j'ai trouvé une autre solution mais j'ai un soucis pour la mettre en oeuvre, je fais un copié/collé: J'ouvre le mail, je lance mes sendkeys pour atteindre "collage spécial" mais dès que la fenêtre des formats s'ouvre les sendkeys s'arrêtent et je ne peux séléctionner le format image métafichier amélioré.
Des idées ?
Merci