Problème - Export Excel avec Mise en forme!

**papoupa31** · 29/11/2018, 10h48

Bonjour,

J'aimerais exporter une table "prepa_mail" et ses enregistrements sous format excell, avec pour but ensuite d'envoyer automatiquement ce fichier par mail Outlook.

Le problème c'est qu'avec mon code, le fichier excel ne garde pas les style du fichier excel d'origine, précedemment envoyé (sans utiliser Access). Savez vous comment définir le style du fichier mail en VBA?

Et aussi certains champs que j'utilise pour sélectionner les bons enregistrements dans prepa_mail, devraient être masquer dans le fichie excel, chose que je n'arrive pas à faire non plus.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
 
Private Sub Commande198_Click()
 
Dim prepa_mail As Table
Dim bReponse As Byte
Dim MonExcel As Object
Dim mail As Recordset
Dim Corps As String
Dim SQL As String
Dim DT_envoi As Variant
Dim DT_Controle As Table
Dim CmpteDom As Integer
 
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "suppr_prepa_mail"
DoCmd.SetWarnings True
 
Forms("MP_envoi_mail").Controls("Fille158").Form.Requery
 
 Call creer_excel
 
 
    bReponse = MsgBox("Voulez-vous envoyer le mail ?", vbDefaultButton2 + vbQuestion + vbOKCancel)
If bReponse = vbOK Then
   DoCmd.SetWarnings False
 
 
    On Error Resume Next
  kill "U:\JOB ORANGE\TIGRE\test.xls"
    On Error GoTo 0
 
 
  Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
 
Set db = CurrentDb
Set tbl = db.TableDefs("DT_Controle_AD")
Set fld = tbl.Fields("DT_envoi")
 
        fld.DefaultValue = "Non"
 
Dim rs As Recordset
 
Set rs = db.OpenRecordset("DT_Controle_MP")
 
rs.AddNew
 
rs!date_envoi = Me.date_today
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "maj_MP_update"
DoCmd.SetWarnings True
'End If
rs.Update
 
rs.Close
 
Set rs = db.OpenRecordset("historique_mail")
 
rs.AddNew
 
rs!nom_util = Me.nom_util_3
rs!nombre_envoi = DCount("*", "prepa_mail")
rs!date_envoi = Me.date_today
rs!ui = Me.txt_ui_3
 
rs.Update
rs.Close
 
 
db.Close
 
Set rs = Nothing
Set db = Nothing
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
 
 
  MonMessage.To = "nicolas.merer@hotmail.fr" ';sametigre.uimp@orange.com"
  'MonMessage.CC =
 
 
  MonMessage.Attachments.Add "U:\JOB \TIGRE\test.xls"
  MonMessage.Subject = "Orange - Envoi des DT à réaliser à la date du " & Date
  Corps = "Bonjour,"
  Corps = Corps & Chr(13) & Chr(10) ' Retour chariot
  Corps = Corps & "Voici le fichier des DT à réaliser, Cordialement."
  Corps = Corps & txt_sign_mail
 
  MonMessage.Body = Corps
 
MonMessage.Send
 
Set MonOutlook = Nothing
Set MonMessage = Nothing
 
 
CurrentDb.Execute "Delete * FROM prepa_mail"
Forms("MP_envoi_mail").Controls("Fille158").Form.Requery
DoCmd.SetWarnings True
 
 
Else
 
MsgBox " Le mail n'a pas été envoyé! "
End If
 
End Sub

Merci

**marot_r** · 29/11/2018, 15h29

Bonjour.

On ne peut pas "masquer" une donnée en Access dans une source de données.
Elle est là ou elle ne l'est pas.
Donc il faut que tu fasses une requête qui ne prend que les enregistrements que tu veux voir dans ton Excel.

A+