Macro pour enregistrer fichier et boite de confirmation

Bonjour à tous,

Petit exercice du soir:

J'ai un fichier avec deux macro:

La première, me fait effacer les colonnes de mon tableau mais je voudrais ajouter une boite de message avec confirmation:

Êtes vous sur ? oui/non.

La deuxième concerne la macro d'enregistrement,

Est il possible de:

Enregistrer et envoyer en Mail?

Et :

Enregistrer avec en nom de fichier en plus la date d’aujourd’hui?

J'actionnerai les macro par des boutons :

Effacer,

Envoyer (Enregistrement + envoi)

Sauvegarder.

D'avance merci pour vos précieuses aides,

N.

Bonjour noelgigi,

je voudrais ajouter une boite de message avec confirmation

Sub Efface()
'
' Efface Macro
  If MsgBox("Etes-vous certain de vouloir supprimer le contenu du Tableau ?", vbYesNo, "Demande de confirmation") = vbYes Then

    Range("E5:G21").Select
    Selection.ClearContents
    Range("e4:g4").Select

   MsgBox "Le contenu du Tableau a été effacé !"
    End If

End Sub

Enregistrer et envoyer en Mail?

Enregistrer avec en nom de fichier en plus la date d’aujourd’hui?

https://forum.excel-pratique.com/post543418.html?hilit=envoi%20par%20mail#p543418

Cordialement,

Bonjour xorsankukai,

merci pour ton aide, mais ça ne marche pas :

Je t'ai ajouté le Bug...

Bonsoir,

N'aurai-tu pas effacé la première ligne de ta macro ?

Sub Efface()

Ci-joint ta macro modifiée, ça ne bug pas chez moi...

Bonne soirée.

Extra, ca fonctionne.

Merci!

Par contre, comment faire pour avoir un bouton qui,

en cliquant dessus, m'enregistre le fichier avec au bout du nom la date d’aujourd’hui?

D'avance merci,

N.