Envois par mail classeur actif

[David]

Bonjour à tous

J''utilise ce code pour envoyer des pièces jointes par mail, mais quand je lui dit d'envoyer le fichier actif, il me dit que le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus, y a t'il un moyen de contourner le problème ?

Sub Envoie_mail(destinataire)
On Erreur GoTo Erreur_envoie
Dim iConf As Object
Dim Flds
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
    .Update
End With
 
    Dim iMsg
    Set iMsg = CreateObject("CDO.Message")
 
With iMsg
    Set .Configuration = iConf
    .To = destinataire
    .From = "xxxxxxxxx@orange.fr"
    .Subject = "Calendrier des congés " & Nom_equipe
    .TextBody = "Bonjour" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & " Merci de nous retourner le fichier AU PLUS TARD le dernier jour d'arrètés des paies en cliquant sur le bouton 'RETOUR DU FICHIER'" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)
    .AddAttachment ActiveWorkbook.FullName
    .Send
End With

Merci