Discussion :

[sarah0105]

Bonjour,

Je souhaite à partir d'un fichier excel créer un mail et coller en image tous les tableaux se trouvant dans la plage A1:Y37 de tous mes onglets de mon classeur... je ne sais pas du tout comment faire ! Il faut mêler du VBA et du HTML je pense et je ne connais rien au HTML !!

J'ai déjà recherché sur plein de forum mais je ne trouve rien qui correspond vraiment à mon besoin ou que je peux adapter

Pour plus de clarté voici ma macro qui ne fonctionne pas...

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
37
38
39
Sub mail()
Dim i As Integer
Dim ol  As Object, olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)
Dim a
a = InputBox("Nom du fichier à ouvrir :")
'
    ChDir "C:\Users\393181\Documents\MAROC\HISTO GPS"
    Workbooks.Open Filename:=a
 
 
Dim ws As Worksheet
For Each ws In Worksheets
 
Dim x As Range
Set x = Range("A1:Y37")
 
Next ws
Dim text
 
text = "<font style='font-family: Calibri ;font-size: 12pt;'>" & "Hello" & ",<br/><br/> Voici le point stock de la semaine : " & "<br/><br/><font style='font-size: 15pt;'>" & "En résumé : " & "<br/><br/><font style='font-size: 12pt;'>" & " - Maroc : <br/> - Ventes : <br/> - Stock : <br/> - NBS : <br/><br/><br/><font style='font-size: 15pt;'>" & "Faits marquants :" & "<br/><br/>" & "Réceptions et courbes de stock :"
 
 
With olmail
 
 
        .Subject = "Courbes"
 
 
        .HTMLBody = text & x
 
        .Display
 
 
 
    End With
 
End Sub

Merci d'avance

Sarah

[parmi]

Bonjour,

Si tu comprends l'anglais, regarde ICI
Il y a effectivement traitement avec du HTML...

[Jean-Philippe André]

Salut,

pourquoi vouloir s'escrimer a traduire une source en anglais, alors qu'elle est deja dispo chez nous d=]
http://excel.developpez.com/faq/?pag...geCellulesMail

[parmi]

Effectivement...
Et pas mal plus simple avec MailEnvelope...

[sarah0105]

J'ai déjà lu toutes ces discussions mais je n'arrive pas à l'appliquer à mon cas.. je ne sais pas comment spécifier qu'il faut copier cette même plage de cellule de chaque feuille les unes en dessous des autres dans le corps de mon mail. J'arrive à coller le tableau d'une feuille mais c'est tout

[parmi]

Une idée comme ça...

Tu pourrais créer une nouvelle feuille et copier toutes tes plages dans celle-ci.
Une fois terminé, tu envoies la plage créée et tu supprimes cette nouvelle feuille.