Créer un lien entre excel et messagerie gmail [Fermé]

Signaler
-
Messages postés
7331
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
-
Bonjour,

J'aurai besoin d'aide, et j'espère que quelqu'un pourra vite me venir en aide.
Je suis amenée à créer un lien entre excel et la messagerie de l'entreprise. En effet, j'ai un projet à faire, et je dois trouver comment générer un mail automatique lorsque une des cellule d'excel affiche que la fabrication à l'atelier est terminée.

J'ai beau cherché comment faire, je me demande si au final c'est possible de réaliser ça. Même avec le lien hypertexte je n'y arrive pas.

1 réponse

Messages postés
7331
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
622
Bonjour,

En vba voici 2 méthodes pour ouvrir une messagerie:

'Livemail
Sub lancer()
Dim appl
appl = Shell("C:\Program Files (x86)\Windows Live\Mail\wlmail.exe", vbNormalFocus) 'adapter le chemin de l'application
End Sub
'outlook
Sub ouvrir()
Dim myOlApp, myItem, olMailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display
End Sub


Messages postés
7331
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
622
Lire ceci pour activer les macros. Ensuite enregistrer ton classeur en cochant dans le menu déroulant enregistrement acceptant les macros.
Ensuite tu ouvres ton classeur et c'est opérationnel.

https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e74-b45e-16fed1a7e5c6?redirectsourcepath=%252ffr-fr%252farticle%252factiver-ou-d%2525c3%2525a9sactiver-les-macros-dans-les-documents-office-7b4fdd2e-174f-47e2-9611-9efe4f860b12&ui=en-us&rs=en-us&ad=us

Pour accéder à l'éditeur appuyer sur Alt F11, ensuite dans le ruban:
Insertion, UserForm
Affichage, Boite à outils, mettre un CommandButton
Double cliquez sur ce CommandButton et mettre dans le module qui apparaît:

Option Explicit
Private Sub CommandButton1_Click()
lancer 'ou ouvrir au choix
End Sub
'Livemail
Sub lancer()
Dim appl
appl = Shell("C:\Program Files (x86)\Windows Live\Mail\wlmail.exe", vbNormalFocus) 'adapter le chemin de l'application
End Sub
'outlook
Sub ouvrir()
Dim myOlApp, myItem, olMailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display
End Sub


ensuite appuyer F5

Voilà
Messages postés
23993
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
6 719
Bonjour,

et enregistrer en .xlsm
eric
j'ai effectué toutes les étapes, mais une fois que je fais la touche F5, il est affiché : " erreur de complation Nom ambigu détecté : CommandButton 1_Click " ....
Que dois-je faire ?
Bon enfaite, maintenant, il m'affiche "fichier introuvable" " erreur d’exécution " j'ai le choix entre "fin" ou " déblocage " ........
Messages postés
7331
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
622 > Cassandra
il m'affiche "fichier introuvable"

il faut mettre le chemin de l'exe de ta messagerie

pour cela si tu as un raccourci Bureau pour lancer ta messagerie, tu fais un clic droit dessus: Ouvrir l'emplacement du fichier.
Ensuite tu cherches un fichier avec l'extension exe. Tu copies le chemin et tu le colles à la place de celui ci:

"C:\Program Files (x86)\Windows Live\Mail\wlmail.exe"