Envoyer un fichier excel

Résolu
TOURRET -  
Bonjour,

dans un fichier excel, je peux mettre dans une cellule une ou plusieurs adresse mail.
Lorsque je clique dessus, ma boite mail s'ouvre automatiquement et le champs des destinataire est directement remplie

est-il possible d'insérer automatiquement en pièce jointe ce même fichier Excel.
actuellement, je suis obligé d'aller le chercher manuellement.

avec tous mes remerciements

26 réponses

Résumé de la discussion

Problème rencontré : dans un fichier Excel, une cellule peut contenir une ou plusieurs adresses e-mail et ouvrir la messagerie, mais l'utilisateur souhaite joindre automatiquement ce fichier Excel en pièce jointe. Plusieurs échanges proposent d'utiliser une macro et de renseigner des adresses dans des cellules dédiées (AG7, F53) pour tester l'envoi via SMTP, et d'adapter le fichier selon le fournisseur. D'autres remarquent la difficulté d'un même fichier à expédier automatiquement quand les destinataires utilisent des fournisseurs SMTP variés, avec des résultats mitigés, des essais et des messages d'erreur. Des échecs de connexion SMTP et des messages d'erreur comme "le transport a échoué dans sa connection au serveur" ont été signalés, illustrant les limites lorsque le fichier doit fonctionner avec plusieurs services.

Bobot (l’IA à votre service)
  1. golf5510
    Bonjour,
    Il y a aussi cette siolution, inscrire les adresse dans un endroit masqué et faire cette macro
    le fichier sera envoyé directement

    Sub EnvoifichierMail()
    Dim myadress(1 To 3)
    Set mylst = ActiveSheet.Range("a1:a3")
    Count = 1
    For Each envoi In mylst
    If Len(envoi) Then myadress(Count) = envoi: Count = Count + 1
    Next
    ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2), myadress(3)), Subject:="NOM DU FICHIER"
    End Sub

    Cordialement
    0
    1. TOURRET
      Bonjour,

      Merci beaucoup de votre retour
      - j'ai commencé la mise en forme du fichier
      - j'ai renommé la feuille principale et supprimé les feuilles inutiles
      - j'ai délimité mon cadre, tout fonctionne à un détail prés, le fichier reçu comporte toujours les 3 feuilles avec leur noms d'origines. Comment corriger cette particularité? (voir fichier ci-joint)

      http://cjoint.com/?CGsquw0biH2

      Ensuite, j'ai rentré mon tableau, et là, plus rien ne fonctionne! (voir fichier ci-joint)

      http://cjoint.com/?CGsqvLKdjGP

      Cordialement
      0
      2. TOURRET
        Bonjour,

        merci de votre retour

        j'ai essayé à nouveau d'adapter le fichier à la mise en page finale
        j'ai dû déplacer des cellules, mais en faisant des essais après chaque modification
        tout a fonctionner jusqu'au moment ou j'ai voulu changer le nom du bouton
        voici le fichier:
        http://cjoint.com/?CGrrMxJ9VIb

        par la même occasion, je voudrais que ce bouton soit au niveau de la cellule BA2

        Cordialement
        0
        2. Mike-31
          Re,

          je ne comprends pas "il me demande à l'ouverture du fichier d'insérer une carte à puce"

          as tu fait les essais à partir de mon fichier

          A+
          Mike-31

          Une période d'échec est un moment rêvé pour semer les graines du savoir.
          0
          1. TOURRET
            bonjour,

            merci de votre retour,

            j'ai fait plusieurs tentative.
            cette fois, il me demande à l'ouverture du fichier d'insérer une carte à puce et je ne peux plus rien envoyer

            cordialement,
            0
            2. TOUTOU03
              Bonjour,

              merci de votre retour,

              j'ai fait plusieurs tentative.
              ça fonctionne mais j'ai toujours en expéditeur le :www.xxxxxxx@free.fr

              il me reste à adapter cette macro à mon fichier final

              cordialement,
              0
              2. TOUTOU03
                Bonjour,

                merci de votre retour
                J'ai essayé d'adapter mon fichier final, mais sans succés. Il est vrai qu'il contient plus de colonne

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

                les personnes qui devront me retourner le fichier sont chez des fournisseurs variés (Oranges, Bouygues, Sfr, Free, etc...) d'ou la difficulté d'avoir un seul SMPT
                Existe t'il un moyen de contourner cette problématique
                par contre, il doit renseigner son adresse mail en cellule AG7

                Cordialement
                0
                1. Mike-31
                  Re,

                  Dans le code tu remarqueras cette ligne, saisir entre les guillemets l'adresse expéditeur, mais dans ton cas il vaudrait mieux saisir cette adresse dans une cellule

                  Const Exped As Variant = "www.xxxxxxx@free.fr" '------ adresse mail de réponse de l'expéditeur

                  ensuite pour ne pas avoir la date et l'heure d'envoi rechercher cette ligne et supprimer la partie en gras

                  TempFileName = Nom_envoi & " " & Format(Now, "dd-mm-yyyy h-mm")

                  pour inclure le nom de l'expéditeur dans une cellule donne moi l'adresse de la cellule souhaitée ainsi que les adresses des cellules du smtp, nom et adresse destinataire que je revois le code et surtout le simplifie
                  -
                  A+
                  Mike-31

                  Une période d'échec est un moment rêvé pour semer les graines du savoir.
                  0
                  1. TOUTOU03
                    Bonjour,

                    Merci beaucoup de votre retour

                    je viens enfin de réussir à envoyer le fichier.
                    en fait, je n'avais pas renommer le fichier tel qu'il était reconnu par la macro.

                    Je remarque deux choses:
                    - lorsque le fichier arrive sur ma boite mail, le nom indiqué en F48 est bien pris en compte, mais il est suivi d'une date et heure: peut-on éviter cela
                    - l'adresse expéditeur n'est pas celui de l'expéditeur, mais celle ci : www.xxxxxxx@free.fr. peut on indiquer soit l'adresse réelle de l'expéditeur, soit une valeur indiquée dans une cellule?

                    Cordialement,
                    0
                    1. Mike-31
                      Re,

                      C'est pourtant cela mais sans les guillemets

                      SMTP. akeonet.com
                      0
                      1. TOURRET
                        Bonjour,

                        Merci beaucoup de votre retour,

                        Mon fournisseur est une filiale de SFR (akeonet)

                        Cordialement
                        0
                        1. Mike-31
                          Re,

                          Pas sur que ce soit cela quel est ton fournisseur d'accès
                          0
                          1. TOURRET
                            bonjour,

                            j'ai mis "akeonet.com",
                            c'est la partie qui se trouve derrière @ de mon adresse mail

                            Cordialement
                            0
                            1. Mike-31
                              Re,

                              Qu'as tu mis comme SMTP

                              A+
                              Mike-31

                              Une période d'échec est un moment rêvé pour semer les graines du savoir.
                              0
                              1. TOURRET
                                Merci,

                                je n'ai pas réussi à faire fonctionner le fichier.
                                si je renseigne le SMTP, j'ai maintenant le code erreur, "le transport a échoué dans sa connection au serveur"

                                Cordialement
                                0
                                1. Mike-31
                                  Re,

                                  Je viens de re-tester le fichier tout va bien de mon côté, teste tu le fichier que je t'ai retourné, as tu bien saisi en F46 ton SMTP

                                  en F48 ce n'est que le nom donné au fichier d'envoi

                                  mais en F53 tu dois saisir l'adresse destinataire

                                  je te retourne le fichier

                                  https://www.cjoint.com/?CFEvb6fRCYa
                                  0
                                  1. TOURRET
                                    merci de votre retour

                                    lorsque je clique sur envoi, j'ai une fenêtre qui s'ouvre et propose un débogage

                                    si je débogue, il y a le code qui s'affiche avec une erreur qui s'affiche en jaune : Nom_envoi = Workbooks("Tourret.xlsm").Sheets("Feuil1").Range("F48").Value

                                    cordialement
                                    0
                                    • 1
                                    • 2

                                    Discussions similaires

                                    question pix mot caché
                                    aorum10

                                    7 réponses