'**** select la petite boite ouvrir dossier ****
'(&H0&, "Sélectionnez un dossier", &H201&, "C:\") (&H1&=avec "créer un nouveau dossier") (&H201& sans)
'Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(&H0&, Message$, &H201&, RepParDefaut$)
Public Function FLoadNomDuREP() As String
Dim ObjFolder As Object, REP As String
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Sélectionnez un dossier", &H201&)
If Not ObjFolder Is Nothing Then
REP = ObjFolder.Items.Item.Path
If Right(REP, 1) <> "\" Then REP = REP & "\"
End If
FLoadNomDuREP = REP
Set ObjFolder = Nothing
End Function
'**** select la grande boite ouvrir dossier ****
Public Function FLoadNomDuRep2() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.ButtonName = "OK"
.InitialFileName = ThisWorkbook.Path & " \ "
.Title = "Sélectionnez un dossier"
.Show
If .SelectedItems.Count > 0 Then FLoadNomDuRep2 = .SelectedItems(1) Else FLoadNomDuRep2 = ""
'ou direct
'If .Show = -1 Then FLoadNomDuRep2 = .SelectedItems(1) Else FLoadNomDuRep2 = ""
End With
End Function