IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Aide Excel VBA formule


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Etudiant
    Inscrit en
    Octobre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Etudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2017
    Messages : 2
    Par défaut Aide Excel VBA formule
    Bonjour à tous,

    j'aurais besoin de votre aide sur une formule VBA.

    Voila j'ai réussi a faire ma macro pour que mon mail parte en appuyant sur le bouton send mais voila lorsque je fais ca, le fichier est bien envoyé mais si des modifcations ont été apportées, elle ne sont pas prises en compte. Comment puis je faire ? car ce fichier sera à la disposition de personne sur une plateforme et l'idéal serait qu'il ait juste à telecharger le fichier, le remplir puis le revoyer par mail en cliquant sur le bouton.

    je ne sais pas si je suis Claire?
    voila ma formule ( Pour l'envoi des mail ca marche mais si je remplis le tableau, les modifications ne sont pas prises en comptes/. ) voir pièce jointe


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Sub envoiClasseur()
     
     'ici on demande d'utiliser Outlook comme client de messagerie'
     Dim MaMessagerie As Object
     Dim MonMessage As Object
     Set MaMessagerie = CreateObject("Outlook.application")
     Set MonMessage = MaMessagerie.Createitem(0)
     
     'ici nous définissons les champs du mail'
     'entre quillemet il faut indiquer les adresses mail'
     MonMessage.to = "xxx@xxx.com"
     
     'ici nous commencons la rédaction du mail'
     
     MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
     
     'sujet du mail'
     MonMessage = "Request form for facilitation"
     
     'corps du mail'
     contenu = "Dear feedback culture team,"
     contenu = contenu & Chr(10) & Chr(13)
     'les caractères Chr indique un saut de ligne'
     contenu = contenu & "Please find attached the excel file for our request of facilitation" & Chr(10) & Chr(13)
     contenu = contenu & "Regards" & Chr(10) & Chr(13)
     MonMessage.body = contenu
     
     'ici on provoque l'envoi du mail et de sa pièce jointe'
     MonMessage.Send
     
     'réinitialisation de la méssagerie'
     Set MaMessagerie = Nothing
     
     'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'
     MsgBox "Your Email has been sent"
     
     
     End Sub

    merci par avance pour votre aide
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2010] Aide Excel VBA formule
    Par jjigs dans le forum Excel
    Réponses: 1
    Dernier message: 30/10/2017, 14h20
  2. [XL-2010] Copier coller feuille complète avec graph en images
    Par brioche31 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 17/10/2017, 12h32
  3. [XL-2010] Excel VBA : formule d'arrondi dans une boucle
    Par chipster62 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/02/2015, 11h29
  4. [XL-2007] Excel-VBA : Formule longue sur plusieurs lignes erreur fin d'instruction
    Par Pauline1374 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/03/2014, 17h46
  5. Aide Excel+VBA/saisie de valeurs
    Par youlard dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/07/2008, 17h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo