Erreur envoi mail en VBA

Bonjour,

j'avais récupéré ce code qui marche très bien car je l'avais testé. J'ai voulu le mettre sur un nouveau fichier et il met met comme message d'erreur "indice n'appartient pas à la sélection" ça veut dire quoi ?

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("Feuil7").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
    ActiveWorkbook.Path & "\" & "Av235.PDF"

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Relevé Av235"  'A modifier
    objMessage.From = "xxx.xx@xxx.com" 'adresse mail de l'expéditeur n'est pas obligatoire
    objMessage.To = "c.yyy.yy@xxx.com" 'Email du destinataire doit-être correct ici
    objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce l'AV235 du mois en cours" & vbCrLf & "coridalement," 'A modifier
    piece_jointe = ActiveWorkbook.Path & "\" & "Av235.PDF"
    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.xxx.fr"  'A changer
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objMessage.Configuration.Fields.Update

    objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe, il est possible d'envoyer plusieurs pièces
    'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
    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 & "\" & "Av235.PDF"
    'si erreur on sort de la procédure
    Exit Sub
errorHandler:
    'description de l'erreur survenue
    MsgBox Err.Description

End Sub

Merci pour votre aide

Francky

Bonjour,

Regarde sur quelle ligne le message apparaît et anlayse si l'objet dont il est question existe.

Merci,

en fait cela était dû au nom de l'onglet de la feuille qui était personnalisée.

Francky