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