Error de ejecución 91 en Excel/VBA

```html Gracias por tu respuesta, es genial, funciona perfectamente en código integrado. Aprovecho tu respuesta para reactivar el tema.

Mi código funciona, pero aparece un error 91 aquí:

Línea subrayada en **negrita** ;)
Te agradezco de antemano por la respuesta que vendrá :)

Private Sub CommandButton1_Click()
Dim objShell As Object, objFolder As Object
Dim Chemin As String, Msg As String
Dim FlagChoix As Long, NbPoint As Integer

SelType = 0 'o 0 dependiendo
If SelType = 0 Then
FlagChoix = &H1
Msg = "Seleccionar una carpeta :"
Else
FlagChoix = &H4000
Msg = "Seleccionar un archivo :"
End If

Set objShell = CreateObject("Shell.Application")
' &h1
' 1er parámetro siempre 0 (cero). Representa el handle de la ventana padre ' &h1
' 2º parámetro Título de la caja, debajo de la barra de título ' &h1
' 3er parámetro opciones de BrowseForFolder ' &h1
' 4º parámetro Opcional. Directorio de inicio de exploración On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
' &h1
'Si el objeto devuelto es válido, probamos su contenido (item.title)
'Si hemos seleccionado la raíz de una partición, se compone del nombre de la partición,
' seguido de su letra y ":" entre paréntesis NbPoint = InStr(objFolder.Title, ":")
If NbPoint = 0 Then
' &h1
'Si no, se compone del nombre de la carpeta únicamente, sin la ruta anterior
'Recuperamos esta ruta con las propiedades y método ParentFolder.ParseName
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
Else ```