Bouton enregistrer

Bonjour,

J'ai juste un petit problème au niveau du bouton enregistrer que je viens de créer j'ai rentré la macro mais je retrouve pas mon document que je viens d'enregistrer dans le chemin indiqué.

Et j'ai un problème au niveau du bouton "envoie". En effet, mon bouton devrait servir à envoyer à deux adresses mails la 3ème feuille "pièces à commander" mais j'ai un problème au niveau de ma macro

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 !

Parfait merci ça marche très bien