XL pour MAC Comment crée un macro ou VBA, pour envoie de mail de rappel ?

anto23

XLDnaute Nouveau
Bonjour,
savez vous comment crée un macro ? si oui pouvez vous m'expliquez s'il vous plais ?
J'aimerais crée un macro afin d'envoyer un mail de rappel quand j'ouvre Excel.

je mets le fichier en pièce jointe.

Merci beaucoup !
 

Pièces jointes

  • Pret de matos.xlsx
    13.1 KB · Affichages: 11

binch

XLDnaute Nouveau
Bonjour Anto23,

la première chose c'est de récupérer l'evènement "ouverture classeur"
dans la fenêtre VBA, dblclick sur ThisWorkbook ou Classeur, une feuille de code s'ouvre, il suffit de choisir Workbook en haut à gauche et normalement, le Sub WorkBook_open apparait automatiquement.

Ensuite il suffit de remplir ce sub fonction des besoins.
pour l'envoi de mail via outlook, j'avais récupéré (je ne me rappelle plus où, probablement sur le site excel downloads :)) , un code qui fonctionne... en voici une copie

'********************************************************************************************
'
' Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
'
'********************************************************************************************

Private Sub Workbook_Open()

Dim ObjOutlook As New outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

Set ObjOutlook = New outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
'Exemple pour envoyer un classeur en pièce jointe
'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
'Ou bien entrer le path et nom du fichier autrement
''Nom_Fichier = "C:\Users\essai.txt"
''If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
Set ObjOutlook = New outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.Sender = "emetteur" ' l'emetteur
.To = "destinataire" ' le destinataire
.CC = "destinataire" 'en copie
.Subject = "sujet" ' l'objet du mail
.Body = "corps" 'le corps du mail ..son contenu
.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Save
.Send

ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub
'***********************************************************************************************

A adapter, en fonction de tes besoins. A toi de jouer bon courage.
Cordialement

Christian
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390