Bonjour
Dans une macro, le code ci-dessous permet à l'utilisateur de choisir un répertoire :
Ce code marche bien, sauf si l'utilisateur choit le bureau (sur Windows 7), auquel cas j'ai une erreur sur la ligne "Chemin = ..."
1/ Comment résoudre ce problème ?
2/ Peut-on choisir le répertoire sur lequel s'ouvre la fenêtre de recherche de dossier (par exemple le répertoire du classeur actif) ?
(à l'instar de .InitialFileName = Application.DefaultFilePath & " \ " de Application.FileDialog(msoFileDialogFolderPicker) )
Merci par avance
Dans une macro, le code ci-dessous permet à l'utilisateur de choisir un répertoire :
VB:
Set objFolder = Nothing
Do While objFolder Is Nothing
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir le répertoire contenant la base de données", &H1&)
Loop
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path & "\" & "Base de données.xlsx"
Ce code marche bien, sauf si l'utilisateur choit le bureau (sur Windows 7), auquel cas j'ai une erreur sur la ligne "Chemin = ..."
1/ Comment résoudre ce problème ?
2/ Peut-on choisir le répertoire sur lequel s'ouvre la fenêtre de recherche de dossier (par exemple le répertoire du classeur actif) ?
(à l'instar de .InitialFileName = Application.DefaultFilePath & " \ " de Application.FileDialog(msoFileDialogFolderPicker) )
Merci par avance