[Excel] envoi mail - enregistrement Fermé

Question

Salut!

Petite question qui ne vous posera sans doute pas de problème. Nous travaillons à plusieurs sur un fichier partagé, et il faudrait qu'une personne reçoive une notification par mail lors de la modification de ce fichier. J'ai bien trouvé des codes, mais je ne sais même pas comment les insérer, ni les faire se déclencher (à l'enregistrement du fichier par exemple).

Merci d'avance à ceux qui pourront m'aider =)

Apatik · Answer

Hum... Up?

pijaku · Answer

Bonjour,

tu dis :
 J'ai bien trouvé des codes 
Lesquels?
Donne nous au moins un de ces codes qui fonctionne, on l'adaptera à l'événement que tu souhaites...

pijaku · Answer

Bon on va déjà essayer avec ton code.

- Ouvre un nouveau classeur Excel,
- Enregistre le,
- depuis n'importe qu'elle feuille de ce classeur, tape ALT+F11,
- dans la fenêtre Visual Basic Editor qui vient de s'ouvrir : 
==> Menu Insertion/Module
- Dans le module (partie de la fenêtre blanche qui occupe la majeure partie de l'écran) copie-colle ce code :
Sub Envoi()
ThisWorkbook.SendMail Recipients:="prenom.nom@maboite.fr", Subject:="Test envoi classeur", ReturnReceipt:=True
End Sub
 - adapte le en remplaçant : prenom.nom@maboite.fr par ton adresse, toujours entourée de guillemets!!
- ferme la fenêtre Visual Basic pour retourner sous ta feuille de calcul,
- Tape ALT+F8, choix : Envoi, clic sur Exécuter.

De 2 choses l'une, soit cela va fonctionner, soit pas.
Si ce code ne fonctionne pas, une fenêtre de débogage (clic sur fin) va apparaitre qui va te faire un blabla sur la méthode SendMail.
Cette méthode peux ne pas fonctionner sous ta version d'excel, il me semble qu'elle a débuté avec Xl2007...

Dans ce cas, reviens on verra avec Outlook qui semble de toutes manières la meilleure des solutions.

Le souci, dans le cas de macro envoie mails, c'est que je ne peux pas tester, n'ayant jamais les mêmes outils à ma disposition...
Donc teste et j'attends ton retour.

pijaku · Answer

Voici donc un code à tester. Suit bien toutes ces étapes :
1- ouvre un nouveau classeur excel,
2- enregistre le,
3- Tape ALT+F11 depuis n'importe qu'elle feuille
4- sous Visual Basic Editor : Menu Outils / Reference / Cocher "Microsoft Outlook Library"
5- Dans Visual Basic Editor, en haut à gauche de ton écran, tu as : VBA Project (NomDuClasseur.xls) et en dessous : Microsoft Excel Objects.
Dans  Microsoft Excel Objects tu trouves : les noms de tes feuilles et ThisWorkBook. Double clic sur ThisWorkBook. Le module Thisworkbook est ainsi ouvert.
6- Copie-colle ce code dans le module :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String, Utilisateur As String

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

Nom_Fichier = ThisWorkbook.Name
Utilisateur = Environ("username")
With oBjMail
    .To = "prenom.nom@mail.fr"      ' le destinataire
    .Subject = "Notification de modification du fichier : " & Nom_Fichier
    .Body = "Le fichier excel : " & Nom_Fichier & " a été modifié et enregistré le " _
    & Now & " par l'utilisateur : " & Utilisateur & "."
    .Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub 

7- Adapte le code en remplaçant : prenom.nom@mail.fr par la bonne adresse mail,
8- ferme Visual Basic Editor
9- Essaye d'enregistrer, normalement l'envoi se fait automatiquement

Tu dis...

pijaku · Answer

Essaye ce code à la place du dernier transmis :
mise en place ICI
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MonOutlook As Object
Dim MonMessage As Object
Dim strNomClasseur As String, Utilisateur As String

Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
strNomClasseur = ThisWorkbook.Name
Utilisateur = Environ("username")

MonMessage.To = "prenom.nom@mail.fr"
'MonMessage.CC = "prenom2.nom2@mail.fr"
'MonMessage.Attachments.Add strNomFichier
MonMessage.Subject = "Notification de modification du fichier : " & strNomClasseur
MonMessage.Body = "Le fichier excel : " & strNomClasseur & " a été modifié et enregistré le " _
    & Now & " par l'utilisateur : " & Utilisateur & "."
MonMessage.Send
Set MonOutlook = Nothing
Set MonMessage = Nothing
End Sub