1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub Envoi_Fichier_Tableau()
Dim Destinataires As String
Dim DestinatairesCopy As String
Dim TexteCorps As String
Dim Semaine As Integer
Dim Fichier As String
Dim Cellule As Range
Dim DerLigneDest As Long
Dim DerLigneCopy As Long
Dim appliOutlook As New Outlook.Application
Dim emailOutlook As Outlook.MailItem
Set appliOutlook = New Outlook.Application
Set emailOutlook = appliOutlook.CreateItem(olMailItem)
Sheets("Destinataire").Select
Semaine = IsoWeekNum(Date)
DerLigneDest = [A1].End(xlDown).Row
DerLigneCopy = [B1].End(xlDown).Row
TexteCorps = [F1] |
