Option Explicit
Private Declare Function SetCurrentDirectory Lib "kernel32.dll" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Sub Test()
Const Racine = "\\ServeurTest\User\DOSSIER"
Dim Chemin As String
If SetCurrentDirectory(Racine) Then
MsgBox "CurDir=" & CurDir, vbInformation, "Test à la demande de Dranreb."
With Application.FileDialog(msoFileDialogFolderPicker)
' .InitialFileName = Application.DefaultFilePath & " \ " ' Des essais m'ont incité à éviter cette instruction.
.Title = "Sélectionnez le répertoire de sauvegarde de la base de données"
.Show
Chemin = .SelectedItems(1) & "\" & "Base de données.xlsx"
End With
Else:
MsgBox """" & Racine & """ non disponible.", vbCritical, "Sauvegarde"
End If
End Sub