Macro pour enregistrer, envoyer en Mail et boite de confirmation

noel33

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Test 1.xlsm
    18.9 KB · Affichages: 48

Lone-wolf

XLDnaute Barbatruc
Bonjour noel :)

VB:
Sub Efface()
Dim rep As String

    rep = MsgBox("Voulez vous vraiment éffacer les données", vbYesNo, "ATTENTION")
    If rep = vbYes Then
        Feuil1.Range("E5:G21").ClearContents
    Else
        Exit Sub
    End If

End Sub

Sub Enregistrement()
'Utilisation d'Outlook sans référence
Dim olApp As Object
Dim olMail
Dim chemin As String, nom As String, fichier As String

    chemin = "C:\Users\" & Environ("Username") & "\Desktop\"
    nom = Feuil1.Range("f5") & " - " & Date

    ActiveSheet.Copy
    ActiveSheet.DrawingObjects.Delete
    ActiveSheet.SaveAs Filename:=chemin & nom & ".xlsm", _
                       FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.Close True


    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    fichier = chemin & nom & ".xlsm"

    With olMail
        .To = "toto.amoto@gmail.com"     'envoyer à:
        .Subject = "Tableau récapitulatif"   'sujet
        '.BCC = "Tout le monde"     'copies cachées
        .Body = "Bonjour à tous"    'corps du message
        .Attachments.Add fichier    'pièce jointe
        .Display   'pour visualiser le message
        '.Send      'pour envois direct
    End With
    Set olMail = Nothing
    Set olApp = Nothing
End Sub
 
Dernière édition:

noel33

XLDnaute Occasionnel
Bonjour Lone-wolf,

Merci de ton aide, malheureusement j'ai une erreur ....


Aussi je me demande si il serait juste possible, en cliquant sur un bouton, d'avoir un enregistrement du fichier a la date d’aujourd’hui?

D'avance merci,

N.
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    33.2 KB · Affichages: 50
  • Capture 2.PNG
    Capture 2.PNG
    29.2 KB · Affichages: 56

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG