Discussion :

[LWKTECH]

Bonjour,
Je cherche à coller un screenshot fait avec la commande CopyPicture dans le Body d'un email.
Merci de votre aide !

Pour être plus clair voici mon code :

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

'---Message box---'
Dim answer As String
answer = MsgBox("Voulez-vous enregistrer le fichier", vbYesNo, "Enregistrement")
If answer = vbNo Then Cancel = True
If answer = vbYes Then

'---Open Outlook type stuff---'
Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set Mail = OutlookApp.CreateItem(olMailItem)

'---Add recipients---'
Mail.Recipients.Add ("email@email.com")

'---Add subject---'
Mail.Subject = "Sujet du mail"

'---Add body---'
ActiveSheet.Range("A1:Q38").CopyPicture >>> Copie le tableau dans le presse-papier
Mail.Body = >>> INSERER LE SCREENSHOT ICI<<<
Mail.Display
Mail.Send

'---Give conformation of sent message---'
MsgBox "Le fichier a bien été enregistré", , "Fichier enregistré"

End If

'---Save the document---'
'---Me.Worksheets.Save---'

End Sub

[Theze]

Bonjour,

Pour une image issu du presse-papier je n'ai pas encore trouvé mais pour du texte tu peux tester ce qui suit.
Il faut cocher la référence "Microsoft Forms 2.0 Object Library". Si tu ne la trouve pas, ajoute une Form dans ton classeur puis vire la, la référence sera ajoutée d'office.

Code :

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

1
2
3
4
5
6
7
 
ActiveSheet.Range("A1:Q38").Copy 'Picture
 
With New dataObject
    .GetFromClipboard
    Mail.Body = .GetText(1)
End With

Hervé.

[LWKTECH]

Le script ne me met pas d'erreur, mais aucun mail ne part maintenant

[Jean-Philippe André]

Hello,

il ne part pas mais s'affiche-t-il au moins ?

[LWKTECH]

Arf désolé j'ai fait une petite boulette Mais c'est bon j'ai vu pourquoi ça ne marchait pas.

Maintenant j'ai une autre question. Voilà est-il possible d'avoir les lignes et colonnes alignées. Je veux dire par la avoir le tableau comme si il était en HTML.

Désolé si je suis un peu chi*nt

[Jean-Philippe André]

Hum,

ca serait pas plus simple de passer par la fonction qui envoie une plage de données directement ?

http://outlook.developpez.com/faq/?p...VBA_Send_Range