Crash Excel a la suite d'un envoi de mail

Bonjour à tous,

J'ai rédigé le code VBA ci dessous pour envoyer un fichier excel à mon équipe.

L'ensemble du code se déroule sans erreur, le mail s'envoi seulement après 5 secondes Excel crash et redémarre.

Sub EnvoiPage()

Dim Destinataires(3) As String, Sujet As String

Sheets("1").Select

'Modifier les mails des destinataires

Destinataires(1) = "pierre@help.com"

Destinataires(2) = "paul@help.com"

Destinataires(3) = "jack@help.com"

Sujet = "Rapport de productivité du " & Range("C1").Value

ThisWorkbook.Sheets("1").Copy

ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception

ActiveWorkbook.Close False

End Sub

Une petite idée de ce code pourtant simple ?

Merci d'avance

Bonjour,

les variables Destinataires et AccuseReception ne sont pas renseignées

Bonsoir,

Je pense que la fermeture du fichier (et donc du code) intervient alors que l'opération d'envoi n'est pas terminée. Il faut donc intercaler une instruction "DoEvents"

Sub EnvoiPage()

    Dim Destinataires(3) As String, Sujet As String

    Sheets("1").Select

    'Modifier les mails des destinataires
    Destinataires(1) = "pierre@help.com"
    Destinataires(2) = "paul@help.com"
    Destinataires(3) = "jack@help.com"

    Sujet = "Rapport de productivité du " & Range("C1").Value

    ThisWorkbook.Sheets("1").Copy
    ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
    DoEvents
    ActiveWorkbook.Close False

End Sub

Par ailleurs, la variable booléenne " AccuseReception" n'est pas définie.

Bonjour,

Merci à vous pour vos réponses mais le fichier plante toujours et j'ai beau chercher de partout sur le web je ne trouve pas de réponse.

pouvez-vous joindre votre fichier ?