Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2618 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Créer une macro pour générer un PDf et envoi par mail

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Créer une macro pour générer un PDf et envoi par mail

n°3156521
davidadam
Le nom de mon fils
Posté le 24-01-2015 à 13:15:43  profilanswer
 

Bonjour
Je ne maitrise pas les macro EXCEL (pour le moment), et je voudrais faire un classeur d'inscription à des compétitions de bowling
 
Chaque équipe aura un onglet dédié
Il y aura deux phases
 
Phase 1 "Enregistrement"
Enregistrement de l'onglet en PDF dans le dossier source au nom de la cellule F6 suivi de Enregistrement
Envoi de l'onglet du classeur (En PDF) à deux adresses mail se trouvant dans les cellules N17 & N20 via OUTLOOK
 
Phase 2 Validation inscription
Enregistrement de l'onglet en PDF dans le dossier source au nom de la cellule F6 suivi de Validation
Envoi de l'onglet du classeur à deux adresses mail se trouvant dans les cellules N17 & N20 via OUTLOOK
Vous remerciant par avance de votre précieuse aide
J'utilise EXCEL 2010


---------------
JLD
mood
Publicité
Posté le 24-01-2015 à 13:15:43  profilanswer
 

n°3156980
davidadam
Le nom de mon fils
Posté le 26-01-2015 à 14:55:11  profilanswer
 

Re bonjour
J'ai le code suivant pour l'envoi d'une page en PDF mais j'ai un message récurrent "Objet requis"
Pourriez-vous m'aider?
Ci-dessous mon code
Merci d'avance
Sub Envoi_Feuil_Excel_en_PDF()
 
    Dim messageHTML
    On Error GoTo errorHandler
    'on cré le fichier PDFdans le même dossier que le fichier source
        Sheets("Feuille1" ).ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
    ActiveWorkbook.Path & "\" & "Feuille1.PDF" ' à changer"
 
    Set objMessage = CreateObject("CDO.Message" )
    objMessage.Subject = "Enregistrement"  'A modifier
    objMessage.From = "jean-luc.david88@orange.fr" 'adresse mail de l'expéditeur n'est pas obligatoire
    objMessage.To = "jean-luc.david88@orange.fr"  'Email du destinataire doit-être correct ici
    objMessage.TextBody = Range("F2" )
    piece_jointe = ActiveWorkbook.Path & "\" & "Feuille1.PDF" ' à modifier
    messageHTML = "Ceci est un message en HTML"
 
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = smtp.orange.fr ' "smtp.orange.fr"   'A modifier
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
    objMessage.Configuration.Fields.Update
 
    objMessage.Send
    MsgBox "Le mail a été bien envoyé !"
    'la feuille PDF créée est est supprimée après l'envoi
    Kill ActiveWorkbook.Path & "\" & "Feuille1.PDF" 'à modifier
    'si erreur on sort de la procédure
    Exit Sub
errorHandler:
    'description de l'erreur survenue
    MsgBox Err.Description
     
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Créer une macro pour générer un PDf et envoi par mail

 

Sujets relatifs
Mail chimp, problème d'affichage ds mail du nom du destinataireMessages envoyés d'une même boîte mail sur plusieurs ordinateur
Créer un compte skype étape par étapeDéfi : m'aider à trouver un PDF
Conversion PDF dans Word 2013 qui plante[WORD 2010] Créer un doc (80 p) avec zones figées & personalisables
Impossible de créer un lecteur de restaurationcréer des liens réseaux permanents dans l'explorateur
Windows live Mail plante au démarragesoucis avec Windows live mail 2012
Plus de sujets relatifs à : Créer une macro pour générer un PDf et envoi par mail


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR