XL 2016 partage de fichier par email

Neileru4 · 10 Mars 2020

Bonjour a tous

J'ai effectuer une macro qui me permet une fois un fichier excel terminer d'enregistrer et faire un envoie par mail pour partager celui ci

VB:

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 = "prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr;prenom.nom@domaine.fr

monmail.Subject = "Modification du Dossier Partagé "

monmail.Body = "Alerte: Modifications sur le fichier "

monmail.Send

Set ol = Nothing

End Sub

Mon souci est que j'ai des utilisateurs qui utilise outlook version microsoft ( donc l'envoie se fait correctement)
et que j'en ai d'autre qui ont outlook version mail par internet sans microsoft (donc l'envoie ne se fait pas)
savez vous pourquoi ma macro ne fonctionne pas?
avait vous une solution?

merci a tous

Phil69970 · 19 Mars 2020

Bonjour Neileru4, bonjour le forum

Pour l'envoi du mail tu peux voir ici :

==> https://www.tutoderien.com/envoyer-un-mail-outlook-avec-excel-vba/

Cordialement

Neileru4 · 19 Mars 2020

Bonjour le forum
Bonjour Phil

merci pour cette info
mais j'ai deja éssayé
cela ne fonctionne pas car comme je le disais certains de mes useurs utilisent des boites mails via outlook microsoft et d'autres des boites outlook via internet

Donc ta solution ne va pas

L'envoie se fait correctement sur toute les boites pour ceux qui on une boite mails outlook via microsoft
Par contre les utilisateurs qui ont outlook via internet ne peuvent transmettre le fichier car outlook via microsoft s'ouvre et demande de creer une boite

En esperant avoir été clair dans mes explications

Staple1600 · 19 Mars 2020

Bonjour le fil

??
Outlook appartient à Microsoft dans tous les cas.
(version web ou pas)

Neileru4 · 19 Mars 2020

Bonjour staple
re le forum

merci pour la réponse mais alors pourquoi mes users qui utilise la version web d'outlook ne peuvent envoyer le fichier excel avec cette macro?

Staple1600 · 19 Mars 2020

Re

•>Neileru4
Essaies cette macro
(non testée, car ne dispose pas d'Outlook sur ce PC)

VB:

Sub Test_Mail()
Dim Destina$, Sujet$
Destina = "toto.titi@domain.com" '<- à adapter
Sujet = "Objet du mail" '<- à adapter
On Error Resume Next
ActiveWorkbook.SendMail Destina, Sujet
On Error GoTo 0
End Sub

NB: A tester en faisant les adaptations idoines.
(cf commentaires en vert dans le code)

Neileru4 · 19 Mars 2020

Merci Staple pour cette réponse je vais tester

est il possible de rajouter en plus du destinataire et le sujet un texte mail comme j'avais en mettat Body ou c'est une autre formule

Staple1600 · 19 Mars 2020

Re,

Comme précisé je n'ai pas Outlook sous la main.
Donc pas possible de tester plus loin pour moi.

Neileru4 · 19 Mars 2020

Désolé staple mais cela ne fonctionne pas

je cherche toujours
a moins que quelqu'un trouve entre temps

Staple1600 · 19 Mars 2020

Re

Ca ne fonctionne pas du tout?
Essaie quand Outlook est ouvert (mais en réduction dans la barre des tâches)

Neileru4 · 19 Mars 2020

C'est ce que j'ai fait
et cela ne fonctionne pas
je n'ai meme pas d'envoie qui se fait quand je modifie mon fichier

Staple1600 · 19 Mars 2020

Re

La macro telle que je l'ai postée ne se lance pas automatiquement.
Il faut que tu la lances toi-même
Affichage/Macros/Test_Mail -> cliquez sur [Exécuter]

Neileru4 · 19 Mars 2020

ok sauf que c'est pas ce que je recherche

je veux que une fois le fichier excel modifier une alerte s'envoie par mail (et non que le fichier excel s'envoie)
une alerte envoyé a plusieurs personne pour notifier d'une modification dans le fichier partagé

Staple1600 · 19 Mars 2020

Re

Je me fiche de ce que tu recherches pour le moment.
Je parle de faire un test
Il sera toujours temps ensuite (quand le test sera concluant ou pas) d'adapter (ou pas) le code pour l'agencer dans une procédure événementielle.

Neileru4 · 19 Mars 2020

oui cela a l'air de fonctionner sinon

désolé de vouloir une solution si vite

XL 2016 partage de fichier par email

Neileru4

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

Discussions similaires