Bonjour,

J’ai une petite problématique
J’ai besoin de faire une envoi automatique d’in mail OUTLOOK via VBA mais a condition avant l’envoi j’ai besoin de compresse le fichier en RAR vu la taille importante du fichier
Ci-dessous le scripte vous pouvez voir si il y a une partie a ajouter encore une chose j’ai besoin de laisse le fichier sur la feuille Accueil par défaut lors de l’envoi :

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
Sub mailchat()
Dim Ol As New Outlook.Application
Dim OlMail As MailItem
Dim CurrFile As String
Dim ListeDEST As String
Dim ListeCC As String
 
Worksheets("TCD").Activate
Sheets("TCD").Visible = True
ActiveSheet.Range("A1:D36").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = Sheets("TCD").Range("U1")
    .Item.CC = Sheets("TCD").Range("U2") & (";") & Sheets("TCD").Range("U3") & (";") & Sheets("TCD").Range("U4")
    .Item.Subject = " Dépassement de pause CHAT "
    .Item.Send
    MsgBox " Votre alerts à été envoyé à l'ensemble des encadrants " & vbCr & " Merci "
    ThisWorkbook.Save
End With
End Sub