Private Sub CommandButton5_Click() 'Export vers Clé USB
'en G10 chez moi :
'=GAUCHE(CELLULE("FILENAME";A1);1)&":\2019\COURRIERS\PLANNING INDIVIDUEL\Planning individuel PDF\DERNIÈRE RECTIF\"
'en A1 :
'Export exécuté pour MARJORIE
'en B4 :
'MARJORIE
Dim fichier As String
Dim dl
[A1].ClearContents
dl = Cells(Rows.Count, 3).End(xlUp).Row
If dl < 8 Then del = 8
Application.ScreenUpdating = False
fichier = [G10] & [B4] & ".pdf"
With Range("B6:E" & dl)
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'True
End With
Application.ScreenUpdating = True
[A1] = "Export exécuté pour " & [B4]
End Sub