Envoyer des feuilles xl en format PDF

**sarahZA** · 27/11/2017, 15h52

Bonjour à tous,

Pour ma facturation, j'ai crée un fichier excel qui a une feuille récapitulative et plusieurs feuilles (une par client) correspondant à mes factures.
Je souhaiterais, si possible, envoyer chaque feuille du classeur directement au client correspondant.

Je débute en VBA, j'essaye de compiler ce que je trouve dans les forum, et j'ai un peu de mal (beaucoup j'avoue) à écrire la fameuse macro.

Pour l'instant j'ai voulu testé une macro pour ma feuille 1, en esperant l'utiliser ensuite pour les 160 feuilles suivantes.... mais ca bloque deja.

Pourriez vous m'aider?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Envoi_Feuil_Excel_en_PDF()
Dim messageHTML
On Error GoTo errorHandler
Sheets("1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "1.pdf"
 
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Votre facture"
objMessage.To = ActiveWorkbook.Sheets("1").Range("A1").Value
objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre facture" & vbCrLf & "en votre aimable réglement"
piece_jointe = "C:\Users\sarah\Desktop\factures\1.pdf"
messageHTML = "Ceci est un message en HTML"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
 
objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe, il est possible d'envoyer plusieurs pièces
'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
objMessage.Send
MsgBox "Le mail a été bien envoyé !"
'la feuille PDF créée est est supprimée après l'envoi
Kill ActiveWorkbook.Path & "\" & "Devis.pdf"
'si erreur on sort de la procédure
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description
End Sub