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 :

Envoi fichier Excel via Outlook 2003


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de etorria
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 107
    Par défaut Envoi fichier Excel via Outlook 2003
    Bonjour,

    J'utilise la procédure ci-dessous pour envoyer un fichier PDF via Outlook 2003 à l'aide d'un bouton placé dans un fichier Excel.
    Lorsque je clique sur ce bouton, Outlook s'ouvre en y joignant le fichier PDF.
    Jusqu'à là, pas de soucis.
    Seulement, je voudrais que ce bouton puisse dans une même procédure et dans un premier temps, transformer le fichier Excel en fichier PDF (là je sais pas !) et me l'expédie dans un deuxième temps (là je sais !)

    Auriez vous une idée ?

    Merci

    Etorria

    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
    'Envoi du TB via Outlook
    Private Sub CommandButton1_Click()
    Call Envoi
    End Sub
     
    Sub Envoi()
    Const olMailItem = 0
    Dim ol As Object, myItem As Object
    Dim strHtml As String
     
    strHtml = strHtml & "<font size=3mm>" & "Bonjour, </font><BR>"
    strHtml = strHtml & "<BR><font size=3mm>" & "Vous trouverez ci-joint le <B>Tableau</B></font>"
    strHtml = strHtml & "<BR><BR><BR><BR>" & "<font color=black>" & "Cordialement,</font>" & "<BR>"
    strHtml = strHtml & "<BR><BR><font size=3mm>" & "Pierre Jacques</font>"
    strHtml = strHtml & "<BR><font size=3mm>" & "Service A</font>"
    strHtml = strHtml & "<BR><font size=3mm>" & "Société X</font>"
    strHtml = strHtml & "<BR><font size=2mm>" & "Tél. : 00 00 00 00 00</font>"
     
    Set ol = CreateObject("Outlook.application")
    Set myItem = ol.CreateItem(olMailItem)
     
    With myItem
            .To = "destinataire1@societe.com"
            .CC = "destinataire2@societe.com"
            .Subject = "Tableau"
            .HTMLBody = strHtml
            .Attachments.Add ("c:\pdf\Tableau.pdf")
     
    myItem.Display
     
    End With
     
    Set ol = Nothing
     
    End Sub

  2. #2
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bonjour,

    je te suggère de faire une recherche sur PDFcreator dans ce forum ou dans la FAQ.

    Tu pourras utiliser PDFCreator pour imprimer ton .XLS en PDF et après l'envoyer.

    Si cela ne fonctionne pas, j'ai une solution perso qui fait tout cela Via CutePDF, mais je la garde comme roue de secours si tu ne trouve pas d'autre solution, car elle nécessite l'installation de Ghostscript sur le poste qui fait le print via CutepDf car Cutepdf en version free ne génère que des fichiers .PS à travers un appel software, et il faut donc Ghostscript (par exemple) pour conversion le .PS en .PDF.

  3. #3
    Membre émérite
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    753
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 753
    Par défaut
    Si cela t'intéresse, ce sujet a déjà été abordé récemment dans ce sujet:
    http://www.developpez.net/forums/d62...s-objects-pdf/

    Tu peux éventuellement demander à l'auteur s'il a trouvé quelque chose.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 07/01/2010, 15h15
  2. [XL-2003] Envoi mail par VBA excel via outlook 2003
    Par Thierry1001 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/10/2009, 10h46
  3. Macro envoi mail excel via office outlook web access
    Par tony020422 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 08/07/2009, 09h31
  4. Envoi de mail depuis Excel 2003 via Outlook 2003
    Par SlySylvain dans le forum Excel
    Réponses: 2
    Dernier message: 19/04/2007, 09h01
  5. Script d'envoie d'un fichier excel via un formulaire
    Par Morphine.Nw dans le forum ASP
    Réponses: 4
    Dernier message: 26/01/2006, 13h08

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