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 :
Le mail est bien envoyé mais il reste au format xlsm.
Comment faire l'envoyer en pdf ??
Merci d'avance!
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!