Bonjour à tous,
J'utilise un classeur partagé.
J'ai échoué avec l'éditeur de macro.
Soit une plage de cellule de A1:A6.
Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser
automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de
[contenu de la cellule]".
Rêve ou réalité?
Merci +++ de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
Bonjour
C'est possible.
La seule chose c'est que pour créer le code, il te faudra ôter le partage du
classeur.
Une fois le partage enlevé voici un exemple de mise en place avec
***Outlook*** :
Clic droit sur la feuille, visualiser la code et placer ceci dans la partie
droite en adaptant avec ton besoin :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
dest = "toto@titi.fr"
obj = "pour info"
Dim ObjOutlk As Object
Dim LeMail As Object
Set ObjOutlk = CreateObject("Outlook.Application")
Set LeMail = ObjOutlk.CreateItem(olMailItem)
With LeMail
.Recipients.Add (dest)
.Subject = obj
.Body = "modification de la cellule " & Target.Address
.ReadReceiptRequested = True
.Send
End With
Set LeMail = Nothing
Set ObjOutlk = Nothing
End If
End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur.
A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook.
Cordialement
Pascal
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
eU8xdgVIFHA.4076@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'utilise un classeur partagé.
J'ai échoué avec l'éditeur de macro.
Soit une plage de cellule de A1:A6.
Lorsque l'une des cellules de la plage est modifiée je souhaiterai
adresser automatiquement un mail d'alerte à "MrMachin", qui dirait
"modification de [contenu de la cellule]".
Rêve ou réalité?
Merci +++ de votre aide.
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
ManBas
Génialissime papou! 2 question avant la mise en oeuvre? - Pour plusieurs destinataires, le code devient-il dest = "; "? - Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité de outlook"? Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
Génialissime papou!
2 question avant la mise en oeuvre?
- Pour plusieurs destinataires, le code devient-il
dest = "toto@titi.fr; tata@tit.fr"?
- Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité
de outlook"?
Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
OFkyBwVIFHA.720@TK2MSFTNGP10.phx.gbl...
Bonjour
C'est possible.
La seule chose c'est que pour créer le code, il te faudra ôter le partage
du classeur.
Une fois le partage enlevé voici un exemple de mise en place avec
***Outlook*** :
Clic droit sur la feuille, visualiser la code et placer ceci dans la
partie droite en adaptant avec ton besoin :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
dest = "toto@titi.fr"
obj = "pour info"
Dim ObjOutlk As Object
Dim LeMail As Object
Set ObjOutlk = CreateObject("Outlook.Application")
Set LeMail = ObjOutlk.CreateItem(olMailItem)
With LeMail
.Recipients.Add (dest)
.Subject = obj
.Body = "modification de la cellule " & Target.Address
.ReadReceiptRequested = True
.Send
End With
Set LeMail = Nothing
Set ObjOutlk = Nothing
End If
End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur.
A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook.
Cordialement
Pascal
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
eU8xdgVIFHA.4076@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'utilise un classeur partagé.
J'ai échoué avec l'éditeur de macro.
Soit une plage de cellule de A1:A6.
Lorsque l'une des cellules de la plage est modifiée je souhaiterai
adresser automatiquement un mail d'alerte à "MrMachin", qui dirait
"modification de [contenu de la cellule]".
Rêve ou réalité?
Merci +++ de votre aide.
Génialissime papou! 2 question avant la mise en oeuvre? - Pour plusieurs destinataires, le code devient-il dest = "; "? - Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité de outlook"? Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
papou
Re Pour plusieurs destinataires tu peux ajouter autant de .Recipients.Add("") .Recipients.Add("") Pour les avertissements de sécurité, en ce qui concerne Outlook 2003 en tout cas, lorsqu'un programme accède à la messagerie, un message te demande si tu l'autorises ou pas, tu dois donc y répondre. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Génialissime papou! 2 question avant la mise en oeuvre? - Pour plusieurs destinataires, le code devient-il dest = "; "? - Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité de outlook"? Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
Re
Pour plusieurs destinataires tu peux ajouter autant de
.Recipients.Add("toto@titi.fr")
.Recipients.Add("titi@toto.fr")
Pour les avertissements de sécurité, en ce qui concerne Outlook 2003 en tout
cas, lorsqu'un programme accède à la messagerie, un message te demande si tu
l'autorises ou pas, tu dois donc y répondre.
Cordialement
Pascal
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
eSsD3VWIFHA.608@TK2MSFTNGP10.phx.gbl...
Génialissime papou!
2 question avant la mise en oeuvre?
- Pour plusieurs destinataires, le code devient-il
dest = "toto@titi.fr; tata@tit.fr"?
- Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité
de outlook"?
Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
OFkyBwVIFHA.720@TK2MSFTNGP10.phx.gbl...
Bonjour
C'est possible.
La seule chose c'est que pour créer le code, il te faudra ôter le partage
du classeur.
Une fois le partage enlevé voici un exemple de mise en place avec
***Outlook*** :
Clic droit sur la feuille, visualiser la code et placer ceci dans la
partie droite en adaptant avec ton besoin :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
dest = "toto@titi.fr"
obj = "pour info"
Dim ObjOutlk As Object
Dim LeMail As Object
Set ObjOutlk = CreateObject("Outlook.Application")
Set LeMail = ObjOutlk.CreateItem(olMailItem)
With LeMail
.Recipients.Add (dest)
.Subject = obj
.Body = "modification de la cellule " & Target.Address
.ReadReceiptRequested = True
.Send
End With
Set LeMail = Nothing
Set ObjOutlk = Nothing
End If
End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur.
A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook.
Cordialement
Pascal
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
eU8xdgVIFHA.4076@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'utilise un classeur partagé.
J'ai échoué avec l'éditeur de macro.
Soit une plage de cellule de A1:A6.
Lorsque l'une des cellules de la plage est modifiée je souhaiterai
adresser automatiquement un mail d'alerte à "MrMachin", qui dirait
"modification de [contenu de la cellule]".
Rêve ou réalité?
Merci +++ de votre aide.
Re Pour plusieurs destinataires tu peux ajouter autant de .Recipients.Add("") .Recipients.Add("") Pour les avertissements de sécurité, en ce qui concerne Outlook 2003 en tout cas, lorsqu'un programme accède à la messagerie, un message te demande si tu l'autorises ou pas, tu dois donc y répondre. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Génialissime papou! 2 question avant la mise en oeuvre? - Pour plusieurs destinataires, le code devient-il dest = "; "? - Que veux-tu dire par "attention aux fenêtres d'avertissement de sécurité de outlook"? Merci beaucoup.
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour C'est possible. La seule chose c'est que pour créer le code, il te faudra ôter le partage du classeur. Une fois le partage enlevé voici un exemple de mise en place avec ***Outlook*** : Clic droit sur la feuille, visualiser la code et placer ceci dans la partie droite en adaptant avec ton besoin : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then dest = "" obj = "pour info" Dim ObjOutlk As Object Dim LeMail As Object Set ObjOutlk = CreateObject("Outlook.Application") Set LeMail = ObjOutlk.CreateItem(olMailItem) With LeMail .Recipients.Add (dest) .Subject = obj .Body = "modification de la cellule " & Target.Address .ReadReceiptRequested = True .Send End With Set LeMail = Nothing Set ObjOutlk = Nothing End If End Sub
Fermer ensuite la fenêtre VBE puis rétablir le partage du classeur. A NOTER : Attention aux fenêtres d'avertissement de sécurité d'Outlook. Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous, J'utilise un classeur partagé. J'ai échoué avec l'éditeur de macro. Soit une plage de cellule de A1:A6. Lorsque l'une des cellules de la plage est modifiée je souhaiterai adresser automatiquement un mail d'alerte à "MrMachin", qui dirait "modification de [contenu de la cellule]". Rêve ou réalité? Merci +++ de votre aide.
