[VBA-E] Bloquer GetOpenFileName dans un dossier particulier

juste pour savoir, en utilisant un getopenfilename est il possible de faire que l'utilisateur attérissant dans le bon répertoire, ne puisse pas en sortir ?
Par exemple : le chemin par défaut soit C:\fichiersdetests\ et qu'il ne puisse pas sortir de ce dossiers?

Je ne sais pas si c'est possible tel que tu le formules mais tu aurais la solution consistant à mettre une vérif dans ton code : Si ce n'est pas le bon répertoire, tu replaces l'utilisateur dans le bon et tu lui dis qu'il s'est "trompé" ou qu'il n'a rien à faire "ici", enfin bref, tu l'engueules pour qu'il ne recommence pas. Il pourra visiter mais "pas touche !"
Juste une idée
A+

Salut,
je sais pas si ma réponse va arriver trop tard, mais essaye avec cette routine là:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function ChoixDossierFichier(SelType As Byte) As String
     Dim objShell As Object, objFolder As Object
     Dim Chemin As String, msg As String
     Dim FlagChoix As Long, NbPoint As Integer
 
     If SelType = 0 Then
          FlagChoix = &H1
          msg = "Sélectionner un dossier :"
     Else
          FlagChoix = &H4000
          msg = "Sélectionner un fichier :"
     End If
 
     Set objShell = CreateObject("Shell.Application")
' 1er paramètre toujours 0 (zéro). Il représente le handle de la fenêtre parent
' 2ème paramètre Titre de la boite, en dessous de la barre de titre
' 3ème paramètre options de BrowseForFolder
' 4ème paramètre Facultatif. Répertoire de début d'exploration
     On Error Resume Next
     Set objFolder = objShell.BrowseForFolder(&H0&, msg, FlagChoix)
'Si l 'objet retourné est valide, on teste son contenu (item.title)
     'Si on a sélectionné la racine d'une partition, il se compose du nom de la partition,
     ' suivi de sa lettre et ":" entre parenthèses
     NbPoint = InStr(objFolder.Title, ":")
     If NbPoint = 0 Then
          ' &h1
'Sinon, il se compose du nom du dossier uniquement, sans le chemin précédent
          'On récupère ce chemin à l'aide des propriété et méthode ParentFolder.ParseName
          Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
     Else
          ' &h1
' si racine on récupère la lettre du lecteur et les 2 points
          Chemin = Mid(objFolder.Title, NbPoint - 1, 2)
     End If
     ChoixDossierFichier = Chemin
     Debug.Print Chemin
End Function

Dans la fonction objShell.BrowseForFolder, tu mets ton répertoire par défaut. L'utilisateur ne pourra pas remonter l'arborescence....
J'espère que ca pourra te filler un coup de main!!

PS: si qqu'un pouvait me dire comment je fais pour activer la fonction pour que mon code VBA apparaissent dans une fenetre séparée, ca serait cool!! Merci!

Ha! enfin! un nouveau qui s'inscrit pour répondre plutôt que de poser une question! C'est rafraichissant!

Bienvenue sur DVP.