Private Sub CommandButton1_Click()
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("Absences")
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub
Sub EnvoieFichierJoint()
Dim Dest As String
Dim Sujet As String
Dest = "toto@laposte.net"
Sujet = "Test d'envoi d'email"
ActiveWorkbook.SendMail Dest, Sujet, True
End Sub
Private Sub CommandButton1_Click()
Sheets(TDGM).Copy
Dim Tableau As Variant
Dim i As Integer
Tableau = TDGM("toto@laposte.net", "toto@laposte.net")
For i = 0 To 1 '........... 0+1 = 2 adresses, pour 3 adresse écrire 0 TO 2
ActiveWorkbook.SendMail Recipients:=Tableau(i), Subject:="sujet du mail"
Next i
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Private Sub CommandButton1_Click()
ActiveSheet.Copy
Dim Dest As String
Dim Sujet As String
Dest = "toto@laposte.net"
Sujet = "Test d'envoi d'email"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Dim olapp As Outlook.Application
Range("A11").Select
Private Sub CommandButton1_Click()
répertoireAppli = ActiveWorkbook.Path
Sheets("TDGM").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\Absences Mosson-Hôp Fac.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select ------------------------------------------->pb?
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "\Absences Mosson-Hôp Fac.xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub