Pb Macro pour joindre onglet excel dans mail

[MicDHL]

Bonjour le forum

J'ai un petit soucis que surement quelqu'un saura me résoudre

J'ai une macro ( qui est trop de la balle) qui me permets d'envoyer une feuille (et même plusieurs) excel transformé en PDF par mail


J'aimerais maintenant avoir la possibilité (car besoin) de mettre dans le même mail :
le Fichier (France) en format PDF (cela OK )
et
1 fichier (BL MQT) qui serait créer comme le Pdf mais en format XLS (je ne trouve pas la combine)

Ci dessous la macro que j'utilise pour les Pdf mais que je n'arrive pas à adapter pour excel.........
-----------------------------------------------------------------------------------------------
Sheets("France").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "France_SHELL.pdf"

Sheets("BL MQT").ExportAsFixedFormat xlsm, Filename:=
ActiveWorkbook.Path & "\" & "BL MQT.xlsm"

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Sheets("Destinataire").Activate
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
s = s & ActiveCell.Value & "; "
ActiveCell.Offset(1, 0).Select
Loop
s = Left$(s, Len(s) - 2)
Set msg = olapp.CreateItem(olMailItem) ' Envoi par mail
msg.To = s
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)

'erreur à ce niveau
msg.Attachments.Add répertoireAppli & "\France_SHELL.pdf"
msg.Attachments.Add répertoireAppli & "\BL MQT.xlsm"


Connaissez vous une parade à celà ? je n'ai rien trouvé en Historique Forum

Merci à vous

 

[MicDHL]

Re : Pb Macro pour joindre onglet excel dans mail

Re

Quelqu'un a t-il une solution ?