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

driss Kor

XLDnaute Nouveau
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.
 

Pièces jointes

  • Envoi outlook.xlsx
    9.7 KB · Affichages: 3
Solution
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

XLDnaute Barbatruc
Bonjour, c'est une option de copier qui définit le format Image.
Un exemple de code :
VB:
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
 

driss Kor

XLDnaute Nouveau
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

1705580451713.png
 

fanch55

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
313 297
Messages
2 096 927
Membres
106 789
dernier inscrit
FrancoisVLD