Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Envoi mail en PDF

sellig 29

XLDnaute Occasionnel
Bonjour,

J'ai actuellement une macro qui me copie une feuille et l'envoie en format "excel" par mail en PJ, aux destinataires renseignés dans une liste (voir code ci dessous).
J'aurais souhaité garder la même configuaration avec l'expédition de la feuille copiée, en format PDF (à la place d'excel).
Je pense que mon souhait est réalisable mais ma compétence en VBA n'est toutefois pas suffisante pas réaliser l'adaptation nécessaire
Merci d'avance pour l'aide que vous pourrez m'apporter!

Sub EnvoiMail()
ActiveSheet.Unprotect ("REGUL")
Dim wbksource As Workbook
Set wbksource = ThisWorkbook
Dim derlign As Integer
Dim adr, x As String
Dim nom As String
derlign = Feuil1.Range("B31").End(xlUp).Row
nom = "Régularité " & " Bretagne " & Feuil2.Range("N2")
Feuil2.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
On Error Resume Next
ActiveWorkbook.SaveAs nom
x = ActiveWorkbook.FullName
Application.DisplayAlerts = False
With wbksource
For i = 2 To 24
adr = wbksource.Sheets("Base").Range("E" & i)
If wbksource.Sheets("Base").Range("E" & i) = "" Then GoTo suite1
ActiveWorkbook.SendMail adr, nom
suite:
suite1:
Next
fin:
ActiveWorkbook.Close False
Kill x
End With
ActiveSheet.Protect ("REGUL")
End Sub
 

sellig 29

XLDnaute Occasionnel
Re : Envoi mail en PDF

Merci doubleZero, j'avais auparavant consulté le post de BrunoM45 mais comme je l'indique dans ma demande, mes compétences en VBA sont assez limitées et ne suis pas parvenu à faire l'adaptation nécessaire...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…