Bonjour,
Je tente de programmer un code permettant d'insérer un fichier excel dans un email, jusqu'ici c'est facile
Le problème se situe au niveau du tableau, qui est constitué de liens dynamiques avec le logiciel financier Reuters.
Mon objectif est qu'un destinataire ne disposant pas de Reuters puisse l'ouvrir et avoir les données (collage spécial)
J'ai un bon début de code, mais certaines cellules bloquent.
Si quelqu'un connaît une astuce, je suis preneur. Merci.
Le code est ci-dessous.
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 Sub EnvoiFichier() ' ENVOI PAR E-MAIL DU FICHIER : Dim MonOutlook As Object Dim MonMessage As Object Call Macro2 Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" 'défini le fichier à mettre en pièce jointe Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "x@gmail.com" MonMessage.Attachments.Add Monfichier 'supprimer cette ligne si pas de pièce jointe MonMessage.Subject = "Taux Daily" & Format(Now, ": d-mmm-yy") Corps = "Bonjour, Veuillez trouver ci-joint les taux du jour" Corps = Corps & Chr(13) & Chr(10) MonMessage.body = Corps MonMessage.send Set MonOutlook = Nothing End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 21/01/2009 par 123018055 ' ' Range("A1:K28").Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False End Sub
Partager