Comment copier résultat Tableau Excel sous Mail Outlook

Hello !

J'aimerai via un bouton envoyer automatiquement une partie de mon tableau excel ainsi que des graphes sous un mail ( modele)

Pour éviter de faire des copier coller laborieux

Est ce possible?

Ci joint mon exemple , si qq un peut m'aiguiller?

Merci d'avance

18test.xlsx (35.75 Ko)

Bonjour,

j'utilise les sendkeys pour cela

exemple ici

ton avatar est-l le bienvenu sur ce forum ? je ne voudrais pas faire de censure

Merci bcp, effectivement je l'ai changé!! les garçons me répondait vite ct bien comme technique je reste soft et sage donc

Bon week

Bonjour à tous,

Problème résolu ?

tu as vu que je n'avais pas chargé ton fichier, as-tu besoin d'aide pour adapter l'exemple ? -je suis pas mal pris en ce moment-

Merci en fait je dois bidouiller pour copier coller mes graphes et tableau dans cette espace où tu as mis l'image "Excel Pratique"si je comprends bien

Si tu peux m'aider ça serait top je gagnerai un temps fou , je te mets mon exemple de tableau de bord

Sur ma feuille de TDB je souhaite que copier coller les 3 objets que j'ai entouré

Est ce possible ?

Un grand merci pour ton aide

7test.xlsx (28.05 Ko)

Re, si j'ai bien compris tu veut que ton fichier tableau soit directement join dans ton mail ?

Veut tu qu'il soit modifiable ?

J'ai peut-être de quoi t'aider

   
  Private Sub Mail_Click()

On Error Resume Next
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

With Application
    .ScreenUpdating = False
    .EnableEvents = False

End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop") 
Set WshShell = Nothing

' Définit le nom du fichier à enregistrer
sNomFic = "confidentiel" & "_" & Format(Date , "dd_mm_yyyy") & ".pdf"  
 'je met la date dans le nom du fichier ici mais c'est en considérant que tu veuille l'enregistrer quelque part et que la date soit voulu.

' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Fin d'enregistrement

'Ouverture d'application outlook
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)   'fichier pdf directement en pièce jointe 
        .Subject = ""
        .Display
    End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub 

   

En éspérant avoir aidé.

Calican a donné la méthode pour le mettre en pièce jointe.

Si tu veux le mettre dans le corps du texte, voici une autre solution pour copier les 2 premiers tableaux.

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim numero As Integer

On Error GoTo erreur

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = ""
        .Subject = "test envoi mail"
    End With

    Range("B16:L31").Copy
    email.display
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "^v", True
    'Application.CutCopyMode = False

    Set email = Nothing
    Set messagerie = Nothing

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Quand je fais cela, je regroupe toutes les infos dans un onglet, y compris le message à envoyer.

Merci Calican et Steelson

Par contre qd je fais le test avec la solution de Steelson, il me colle le tableau sous le destinataire, et comment peut on faire pr copier un graphique

Car avec cette solution on capture seulement une zone de cellule

Est ce possible ?

cdt

ci joint la PJ

16test.xlsx (30.10 Ko)

Re,

je ne pense pas que mettre un graphique directement soit possible.

Je vais regarder mais je ne peut rien promettre.

Re, c'est ça qui est voulu ?

8copie-test.xlsm (38.16 Ko)

qd je fais le test avec la solution de Steelson, il me colle le tableau sous le destinataire, et comment peut on faire pr copier un graphique

Comme je disais plus haut, quand je fais cela, je regroupe les informations, y compris photos et graphiques et je fais une copie de l'ensemble de la zone dans laquelle on va aussi trouver le graphique. (car je ne sais pas si on peut répéter 3 fois le sendkeys, je n'ai jamais essayé)

Dans ton cas, si tu peux mettre les 2 tableaux et le graphique plutôt l'un en dessous de l'autre, à ce moment là tu sélectionnes non plus seulement B16:L31 mais (par exemple) B16:L99


edit : c'est un peu ce que Calican a fait ! mais je pense que la zone est trop large, mais l'idée est là en effet !

Rechercher des sujets similaires à "comment copier resultat tableau mail outlook"