Envois par mail classeur actif

  • Initiateur de la discussion Initiateur de la discussion David
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

David

XLDnaute Occasionnel
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 ?

Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
809
  • Question Question
Réponses
1
Affichages
584
Réponses
7
Affichages
867
Réponses
6
Affichages
739
  • Question Question
Microsoft 365 Excel VBA
Réponses
14
Affichages
881
Retour