XL 2016 envoie mail automatique lors de double-clic sur cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J@ba

XLDnaute Nouveau
Bonjour excusez-moi de vous déranger je suis en train de créer une macro VBA me permettant lorsque je double-clic de pouvoir envoyer une notification par mail. je clique donc sur une cellule de la colonne 27 dans mon cas et je souhaiterai qu'il prenne le mail fournit dans la même ligne sur la colonne 28. Si vous pouvez m'aider merci beaucoup

(PS j'utilise la librairie Microsoft Outlook 16.0 Object Library)

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Notification As Variant                              ' création de la variante pour l'envoie du mail de notification

Set Notification = CreateObject("Outlook.Application")   ' selection de l'application à utiliser( en utilisant la librairie "Microsoft Outlook 16.0 Object Library " )

With Notification.CreateItem(olMailItem)                 ' creation du mail
    .Subject = "Impression Finie"                        ' sujet du mail
    .To = Columns(28).End(xlToRight).Select                 ' selection le mail de la personne
    .Body = "Votre demande d'impression 3D à été faite."   ' texte du mail
    .Send                                             ' envoie du mail, on peut remplacer  ".Send" par ".Display" pour voir a quoi ressemble le mail

    
End With
End sub
 
@J@ba

Comme tu as mis une image je te réponds en image c'est plus pratique pour moi ! 😉 🤣

1697026656560.png


Bonne chance
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
708
Réponses
17
Affichages
2 K
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
631
Réponses
6
Affichages
666
Réponses
2
Affichages
917
Retour