Sub choisir_fichier()
Dim FD As FileDialog, nf as string
Application.ScreenUpdating = False
Call remise_en_etat
Sheets.Add.Name = "Import"
Application.EnableEvents = True ' arret alarme
classeur_import = Sheets("protege").Range("a5")
'choix du repertoire
Set FD = Application.FileDialog(msoFileDialogOpen)
nf=""
With FD
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Fichiers JPEG", "*.jpg"
.InitialFileName = "C:\Tmp\Nouveau dossier (2)\"
.InitialView = msoFileDialogViewThumbnail
If .Show <> 0 Then
nf = .SelectedItems(1)
MsgBox nf
End If
End With
Sheets("protege").Range("a8") = nf
end sub