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
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
