Discussion :

[200dtr]

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

[Fvandermeulen]

Bonjour,
Quand tu parles de lien vers Reuters, ce sont des 'hyperlink' ?
Si oui, tu peux essayer ceci, sinon il faudrait un peu plus d'info sur les cellules qui bloquent...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Hyperlinks.Delete

[200dtr]

Bonjour,
les cellules sont reliées à des fonctions de récupération de données Reuters.
EX: =REUTER|IDN!'EURIBOR01,IRGROW 8,,33,6'

En ce moment, je fais un copier collage valeur du tableau pour fixer les données, puis j'enregistre le tableau sur un fichier.
L'idéal est d'automatiser ce copier/collage valeur.

[Fvandermeulen]

Ta 'Macro2' semble OK, quand as tu le message d'erreur ?

Sinon, tu peux peut-être résoudre en partant de la cible au lieu de la source, je m'explique.
Pour l'exemple la feuille que tu veux copier s'appelle Source et la feuille sur laquelle tu vas copier s'appelle Cible
Alors:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Cible").range("A1") = Sheets("Source").range("A1").

Si ça marche, on peut imaginer une boucle pour parcourir toutes les cellules concernées.

[200dtr]

Il n'y a pas un moyen de prendre une plage de cellule plutôt qu'une boucle ?

[Fvandermeulen]

Désolé, ça je n'ai jamais réussi, c'est pourquoi je le fais en boucle quand j'en ai besoin...il faut espérer que quelqu'un d'autre lise ce post et ai la réponse!