XL 2013 Envoyer un tableaux Excel nommé sous format image via Outlook

[driss Kor]

Bonjour TLM,

J'ai besoin de votre aide d'expert pour réaliser mon projet, en fait je souhaite envoyer par mail "Outlook" mon tableau excel sous format Image,
Le pb c'est que j'ai plusieurs tableau que j'ai nommé chacun et je souhaite que à envoyé le tableau que je choisis via son nom depuis une cellule de liste de choix.
sur l'exemple ci-joint lorsque je choisis "Email" sur la cellule L4 (Liste de choix) c'est le tableau nommé "Email" qui doit être envoyé.

D'avance merci pour votre aide.

 

[Oneida]

Bonjour,
Envoi a qui?
Format Image: dans le corps du @MAIL ou ?

 

[driss Kor]

Bonjour Oneida, Oups j'ai oublié de mentionner l'envoi :
To : Test1@gmail.com
CC:Test2@gmail.com
Subject: Envoi d'image

Pour le format je souhaite l'avoir comme image.

Merci

 

[fanch55]

Bonjour, c'est une option de copier qui définit le format Image.
Un exemple de code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [L4].Address Then
       Range(Target.Value).CopyPicture Appearance:=xlScreen, Format:=xlPicture
      ' Cette partie ci-dessous à adapter à votre outlook
       [O1].Select: Me.Paste
    End If
End Sub

 

[Oneida]

Bonjour Oneida, Oups j'ai oublié de mentionner l'envoi :
To : Test1@gmail.com
CC:Test2@gmail.com
Subject: Envoi d'image

Pour le format je souhaite l'avoir comme image.

Merci

Re,
Subject: Envoi d'image: pas faisable
Vous voulez le tabeau en tant qu'image dans le corps du message (Body) ou
en tant que fichier (.Attachments.Add)

 

[driss Kor]

Dans le corps du mail (body) plz

 

[fanch55]

Cliquez sur l’icône Outlook pour faire l'envoi

 

[driss Kor]

Merci Fanch55 c'est exactement ce que je voulais, par contre lorsque j'ai copié le code sur mon fichier
ça a donné un message d'erreur parce que les tableaux nommé se trouve dans une autre Feuille "feuil2"
Même si la liste de choix se trouve bien sur feuille1

 

[driss Kor]

Merci Fanch55 c'est exactement ce que je voulais, par contre lorsque j'ai copié le code sur mon fichier
ça a donné un message d'erreur parce que les tableaux nommé se trouve dans une autre Feuille "feuil2"
Même si la liste de choix se trouve bien sur feuille1

Regarde la pièce jointe 1188653

 

[fanch55]

Merci Fanch55 c'est exactement ce que je voulais, par contre lorsque j'ai copié le code sur mon fichier
ça a donné un message d'erreur parce que les tableaux nommé se trouve dans une autre Feuille "feuil2"
Même si la liste de choix se trouve bien sur feuille1

Regarde la pièce jointe 1188653

Faites la modification nécessaire :
Sheets("Feuil2").Range(Sheets("Feuil1").[L4]).CopyPicture

 

[fanch55]

Que doit-on faire du classeur que vous avez joint au post #9 ?

 

[driss Kor]

Merci Beaucoup franch55, super ça marche, merci aussi à Onieda d'avoir pris le temps de m'aider.

 

[driss Kor]

Merci Beaucoup franch55, super ça marche, merci aussi à Onieda d'avoir pris le temps de m'aider.