Private Sub Impression_pdf_par_classe()
Application.DisplayAlerts = False
Dim Chemin As String, Fichier As String, Rep As String
'le Chemin est le dossier source ou se trouve le fichier excel
Chemin = ThisWorkbook.Path & "\"
'créer un dosier avec le nom de la classe et le jour d'enregistrement
Rep = Sheets("BulletinEleve").Range("F1") & " " & Format(Date, "dd.mm.yyyy")
'gestion des erreurs
On Error Resume Next
'définition du chemin
MkDir Chemin & Rep
On Error GoTo 0
Chemin = Chemin & Rep & "\"
Sheets("BulletinEleve").Copy
'copie de la feuille en nommant le fichier avec la classe, le nom et le prénom de l'élève +la date
Fichier = Sheets("BulletinEleve").Range("F1") & " " & Sheets("BulletinEleve").Range("B3") & " " & Sheets("BulletinEleve").Range("B5") & " " & Format(Date, "ddmmyyyy") & ".Pdf"
With ActiveWorkbook
'code qui enregistre en .pdf
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
'ferme le classeur créer
.Close savechanges:=False
'retabli les alertes windows
Application.DisplayAlerts = True
End With
End Sub