Bonjour,
Pour ta macro sauvegarder en pdf, je l'ai testé avec mon chemin et ca a fonctionné. Donc vérifie ton chemin. pour rappel :
chemin = "C:\Utilisateurs\Bureau\NomDeLaCopie" 'sans nom de domaine
'Exemple
chemin = "C:\Users\Desktop\test"
'donc la copie sera enregistrer sur ton bureau sous le nom test.pdf
Ensuite pour ta macro envoie par mail, je n'ai jamais utilisé le .SendMail par contre voilà un code que tu peux adapter si tu utilises Microsoft Outlook :
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
With oBjMail
.To = "blabla@hotmail.fr 'les destinataires
.Subject = "Tire" ' l'objet du mail
.Body = "Message" 'le corps du mail ..son contenu
.Attachments.Add ActiveWorkbook.FullName 'A adapter pour n'envoyer que ta 3ème feuille
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
A plus !