Sendmail convertir copie feuille xlsm en pdf

miliev83

XLDnaute Occasionnel
Bonjour,

Je suis sous Excel 2007, je n'ai pas outlook et ne connait pas le nom du serveur et le port utilisé (pc de l'entreprise)

Je passe par la fonction Sendmail pour envoyer une copie de mon onglet actif au format xlsm mais j'aimerai convertir cette copie avant l'envoi en pdf.

Le fait de passer en pdf m'éviterait de devoir protéger la feuille avant l'envoi car certaine données doivent rester filtrées.

Voici mon code :

Code:
Sub envoiMailEtFeuilleActive()
 ActiveSheet.Copy ' créée une copie de la feuille active
Sheets("planning2").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
 ActiveWorkbook.Path & "\" & "Planning2.pdf"
 ActiveWorkbook.SendMail Recipients:=Range("Y11").Value, Subject:="Planning"
 Application.DisplayAlerts = False
 ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
 Application.DisplayAlerts = True
 End Sub

Le mail est bien envoyé mais il reste au format xlsm.

Comment faire l'envoyer en pdf ??

Merci d'avance! ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510