Sub Génère_PDF()
Chemin = "C:\Users\PC_PAPA\Desktop\Koadima\" ' A adapter
With Sheets("Relevé de notes")
DL = .Range("A65500").End(xlUp).Row
For L = 3 To DL
[C4] = .Cells(L, "A")
Calculate
[F14] = "Enregistrement de " & [C6]
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & [C6] & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Next L
End With
[F14] = ""
MsgBox ("Génération des pdf terminée. ")
End Sub
Sub Imprimer()
With Sheets("Relevé de notes")
L = Application.Match([F3], .[B:B], 0)
[C4] = .Cells(L, "A")
ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub