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