Enregister sous + Envoi mail en 1 click

Bonjour à tous,

Je suis débutant en macro et VBA.

J'ai créé une macro avec bouton pour effectuer une série de manipulation.

Une fois celle-ci lancée j'arrive donc sur le résultat voulu.

2demande-test.xlsx (11.72 Ko)

(Je n'ai publié que le résultat final en modifiant les caractères)

Je souhaiterai créer un bouton pour qu'en 1 click je puisse enregistrer sous : C:\ (je terminerai le chemin seul), que le nom du fichier soit une combinaison de "JOURNEE DU + Cellule A1" puis, une fois le fichier enregistré, que cela ouvre outlook, que le fichier soit ajouté en pièce jointe, que le titre de l'objet soit le nom de la PJ et que le destinataire soit mail1@monorganisation.fr

Si c'est également possible, que le corps du texte soit prérempli avec : "Bonjour,

Vous trouverez en PJ le fichier (titre de la pièce jointe)

Bonne journée"

Voilà ce que j'ai réussi à faire :

Sub EnregistrerEtEnvoyer()

Dim chD$, Fich$, ChNomF
chD = "C:\"
Fich = "JOURNEE DU" & " " & ActiveSheet.Range("A1")
ChDrive "C:\"
ChDir chD
ChNomF = Application.GetSaveAsFilename(Fich, "Excel files (*.xls),*.xls")
If ChNomF <> False Then
ThisWorkbook.SaveAs ChNomF, xlOpenXMLWorkbookMacroEnabled
End If
Dim sTo As String
Dim sObject As String
sTo = "mail1@monorganisation.fr"
sObject = "Compo_UM_DU " & Range("A1")
Application.Dialogs(xlDialogSendMail).Show sTo, sObject
End Sub

Mon soucis je voudrais que la cellule A1 (=AUJOURD'HUI()+1) s'enregistre au format dimanche 11 avril 2021 et non au format 11/04/21.

Et je ne sais pas comment pré-remplir le corps du texte.

Quelqu'un peut-il m'aider?

Merci.

Bonjour Sumo211 et

Merci d'effectuer des recherches sur le forum avant de poster

Application.Dialogs(xlDialogSendMail).Show sTo, sObject

Ne permet pas de remplir le corps du mail

@+

Merci pour l'info.

Et concernant mon autre soucis tu aurais une idée?

Mon soucis je voudrais que la cellule A1 (=AUJOURD'HUI()+1) s'enregistre au format dimanche 11 avril 2021 et non au format 11/04/21.

Re,

sObject = "Compo_UM_DU " & Format(Range("A1"), "mm/dd/yyyy") 
@?
Rechercher des sujets similaires à "enregister envoi mail click"