Envoyé mail avec un bouton

Bonjour,

j'aimerais créer un bouton "envoyé par mail".
Actuellement j'ai deux feuilles; une intitulée "commande" et l'autre "base de données".
Sur la feuille "commande" il y a une liste déroulante "fournisseur"
Cette liste est récupéré sur un tableau située dans la feuille "base de de donné"
J'avais créé à coté du tableau "fournisseur" une colonne intitulé "contact" pour y prévoir d'y mettre ultérieurement les adresses mails des fournisseurs.
Je souhaiterais qu'en fonction du fournisseur sélectionné dans la liste déroulante situé sur la page "commande", l’utilisateur clique sur un bouton "envoyé par mail" ; que le mail soit créé via outlook, que l'adresse mail soit récupérée dans la colonne "contact" située sur la feuille "base de données", l'objet du mail soit récupérer dans une cellule spécifique situé sur la page commande (cette cellule me sert déjà à quelque chose), et le corps du mail contienne un texte type "Bonjour xxxxxx......"
Merci d'avance pour votre aide !

Configuration: Windows / Firefox 78.0

8 réponses

  1. Bonjour,

    pour plus de clarté, vous trouverez ci-joint un fichier test.
    merci d'avance.
    https://we.tl/t-xgiVp3MOcx
    1
    1. Contributeur
      Voici le classeur

      https://www.cjoint.com/c/JGBnzYDVvgQ

      pour que cela fonctionne

      Allez dans Outils, Références et cochez Microsoft Outlook xxx Object library

      + Le Pivert
      0
  2. Contributeur
    Tu n'as pas lu le code!

    'attribution des valeurs aux variables
    MonSujet = "Test d'email d'Excel avec variables"
    MonDestinataire = adresse
    MonContenu = "Bonjour " & Worksheets("test").Range("B12").Value & ", voici un petit message de test... Avec un fichier en plus."
    MaPieceJointe = sRep & sFilename
        

    1
    1. Bonjour,

      c'est parfait. une dernière chose si vous pouvez m'aider.
      Sur la feuille "base de données", il y ale tableau "fournisseur"
      A sa droite il y a une partie grise foncé intitulé "rajout d'un fournisseur"
      Lorsque l'utilisateur clique sur le bouton ça rajoute le fournisseur dans le tableau "fournisseur" et fait un trie par ordre alphabétique. Je crois d'ailleurs que c'est vous qui m'aviez proposé ce code.
      Je voudrais que s'il rentre en dessous l’e-mail celui-ci soit rajouter dans la colonne prévu à cet effet du tableau fournisseur
      Et enfin, vous avez une dernier encadré intitulé suppression d'un fournisseur. je souhaiterais rajouter un bouton pour que l'on puisse supprimer un fournisseur et l'éventuelle e-mail.
      Voilà, après ça sera vraiment parfait.
      merci d'avance.
      0
    2. Contributeur
      @MarcVoilà

      https://www.cjoint.com/c/JGCp6TrxEHQ

      Bonne lecture

      corrige cela:

      Private Sub CommandButton2_Click()
      If Worksheets("BASE DONNEES").Range("F11").Value = "" Then Exit Sub
      For_X_to_Next_Ligne
      End Sub
      


      pour éviter un bug si vide!

      @+ Le Pivert
      0
    3. @cs_Le PivertBonjour,

      je reviens au sujet de ma demande et concernant notre dernier échange.
      Je ne remet plus la main sur votre dernier fichier et le lien ne fonctionne plus.
      L'avez-vous conservé ?
      Merci
      0
    4. Contributeur
      @MarcCela fait un mois, je n'ai plus rien!
      Désolé je ne peux pas garder tous les classeurs

      @+
      0
  3. 0
    1. Bonsoir,
      Merci pour votre réponse.
      Ce n’est pas la méthode qui me pause problème. J’avais cherché des pistes sur internet et trouver des éléments similaires.
      Ce qui est le plus complexe c’est d’adapter ces éléments à mon cas.
      Merci encore pour votre aide
      0
  4. d'abord tu cree la structure sur word pour lettre commande standard
    0
    1. Merci mais comment les adresses mails seront récupérer dans le tableau des fournisseurs ?
      Comment le sujet du mail sera récupérer dans la cellule prévue a cette effet ?
      Merci
      0
    2. @hich24Bonjour

      Je viens de tester votre idée.
      Désolé mais ça ne fonctionne pas.
      Encore merci
      0
    3. @hich24Vous me proposer une méthode pour faire du publipostage.
      Je suis allé au bout pour essayer de comprendre la solution que vous me proposiez.
      Le publipostage fonctionne. Mais ce n’est pas ce que je recherche.
      Je veux que l’on envoi un mail en fonction d’un fournisseur choisi dans mon bon de commande sur Excel.
      Merci de votre proposition
      0
  5. Merci.
    Je regarderai ça lundi matin au travail.
    Je vous tiens au courant.
    Bon week-end
    0
    1. Contributeur
      Bonjour,

      Ce qui est le plus complexe c’est d’adapter ces éléments à mon cas.

      pour cela il faudrait un modèle!

      en attendant voici 2 sites qui traite le sujet:

      http://www.maitrise-excel.com/global-graph/outlook-2010-compilation-d-outil-excel-vba-pour-envoi-outlook/

      https://www.extendoffice.com/documents/excel/3559-excel-send-email-to-multiple-recipients.html

      0
      1. Bonjour
        Je peux vous envoyer un fichier Excel test si vous souhaitez. Ce qui pourrait être plus clair.
        Je vous envoie dans la journée un lien
        0
    2. Bonjour,

      merci pour votre serieux coup de pouce.
      Deux petites choses.
      Où puis-je trouver le texte du mail type pour le modifier ?
      Dernier point y a t'il une possibilité pour que l'objet du mail soit récupérer en H6 (feuille "test")?
      Merci d'avance
      0
      1. Bonjour
        désole mais je ne comprends pas pourquoi sur le fichier il n'y a pas ce code
        Je viens de le tlecharger de nouveau et il s'ty trouve.
        Merci encore
        0