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

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