Bonsoir
Je voudrais envoyer par mail en copie un destinataire et marquer la date du jour dans l'objet du mail
Vous donne la formule existante pour voir déjà ce qui est fais
'Envoyer par mail
Private Sub CommandButton28_Click()
Dim Rep As Integer
Rep = MsgBox("Voulez-vous envoyer par mail le planning à x et y en copie?", vbYesNo + vbQuestion, "Envoyer par mail")
If Rep = vbYes Then
' ici le traitement si réponse positive
Sheets(Array("2014", "2015")).Copy
Me.Hide
' chemin pour l'enregistrement
ChDir "C:\Users\essai"
'nom de fichier
Dim MonFichier
MonFichier = "essai 1 "
ActiveWorkbook.SaveAs Filename:=MonFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'envoyer par mail
ActiveWorkbook.SendMail "titoffe60@essai.fr", " planning" & " - date"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Votre planning a été envoyée au destinataire")
Else
End If
End Sub
Merci encore une fois de m'aider
A+
Je voudrais envoyer par mail en copie un destinataire et marquer la date du jour dans l'objet du mail
Vous donne la formule existante pour voir déjà ce qui est fais
'Envoyer par mail
Private Sub CommandButton28_Click()
Dim Rep As Integer
Rep = MsgBox("Voulez-vous envoyer par mail le planning à x et y en copie?", vbYesNo + vbQuestion, "Envoyer par mail")
If Rep = vbYes Then
' ici le traitement si réponse positive
Sheets(Array("2014", "2015")).Copy
Me.Hide
' chemin pour l'enregistrement
ChDir "C:\Users\essai"
'nom de fichier
Dim MonFichier
MonFichier = "essai 1 "
ActiveWorkbook.SaveAs Filename:=MonFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'envoyer par mail
ActiveWorkbook.SendMail "titoffe60@essai.fr", " planning" & " - date"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Votre planning a été envoyée au destinataire")
Else
End If
End Sub
Merci encore une fois de m'aider
A+
Dernière édition: