Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

 

fanch55

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…