Commande VB

[Résolu/Fermé]
Signaler
-
 simon -
Bonjour,

J'ai fais cette commande sur excel il y a quelques mois:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "***@***;obr@ylb,ch;***@***;***@***"
monmail.Subject = "Modif suivi des chantiers REL"
monmail.Body = "Des modifications ont été faites dans le fichier du suivi des chantiers REL file://"
monmail.Send
Set ol = Nothing
End Sub


Mon problème: elle ne fonctionne plus et je n'arrive pas a comprendre pk ...

Qui peut m'aider ??


1 réponse

Messages postés
16026
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 octobre 2021
1 548
Bonjour,

Mon problème: elle ne fonctionne plus et je n'arrive pas a comprendre pk ...
1: qu'est-ce qui ne fontionne plus chez vous ?
2: chez moi votre code marche tres bien
c'est bon j'ai trouvé ... l'adresse mail avait une virgule au lieu d'un point.............