Relancer msoFileDialogFolderPicker si condition non remplie

Version imprimable

Bonjour à tous
J'ai un petit bout de code qui me permet d'aller sélectionner un dossier à partir d'un chemin précis, voici ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CommandButton1_Click()
 
Dim Chemin As String, Dossier As String
Chemin = "\\SERVEUR\Dossier principal\test\"
 
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Chemin
    .Show
        If .SelectedItems.Count > 0 Then Dossier = .SelectedItems(1) & "\"
        End With
        If Dossier = Chemin Then
        MsgBox "Vous devez sélectionner un répertoire d'enregistrement", vbExclamation, "Pas de répertoire sélectionné"
        Else: MsgBox "Répertoire sélectionné :" & vbLf & vbLf & Dossier
        End If
End Sub

mon souci c'est que je souhaite que si Dossier = Chemin on affiche la Msgbox puis on réouvre la fenêtre de sélection de dossier.

Merci pour votre aide

21/01/2015, 13h49
deedolith

Le mieux est que tu ecrive une fonction qui va afficher la boite de dialogue, avec en paramètre le chemin, et qui te renvoie le dossier.
après l'appel de la fonction, tu fait ton test et refait ton appel si necessaire. Ce sera moin lourd à écrire, et plus facile à gérer.

PS: je ne suis pas fan de forcer la main de l'utilisateur.
Et que ce passe-t-il si l'utilisateur ne selectionne rien ?
21/01/2015, 13h57
Scorpdragon

Merci pour cette réponse mais j’avoue que je ne suis pas spécialiste en VBA du coup je ne vois pas comment faire la fonction que tu me préconises.Pour ce qui est de ton PS en fait je n'ai pas le choix car le document à enregistrer doit impérativement se trouver sur le réseau et le chemin n'est pas évident à trouver pour tous mes utilisateurs.Donc c'est plus pour les aider.

quelque chose comme ca:

Code:

1
2
3
4
5
6
7
8
9
10
Public Function selectionDossier(ByVal Chemin As String) As String
    Dim Dossier As String
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Chemin
        .Show
        If .SelectedItems.Count > 0 Then Dossier = .SelectedItems(1) & "\"
    End With
    selectionDossier = Dossier
End Function

21/01/2015, 14h34
Scorpdragon

Encore merci pour ta réponse rapide mais en fait je vais me contenter de mettre dans ma msgbox qu'il faut relancer la procédure car je ne suis pas assez doué en vba et du coup je n'arrive pas à exploiter le code que tu m'as donné.
En tout cas merci quand même.

Bonjour,

Tu peux également faire simplement une boucle comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
Dim Chemin As String, Dossier As String
Chemin = "\\SERVEUR\Dossier principal\test\"
Dossier = Chemin
Do While Dossier = Chemin
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Chemin
        .Show
        If .SelectedItems.Count > 0 Then Dossier = .SelectedItems(1) & "\"
    End With
    If Dossier = Chemin Then
        MsgBox "Vous devez sélectionner un répertoire d'enregistrement", vbExclamation, _
            "Pas de répertoire sélectionné"
    End If
Loop
MsgBox "Répertoire sélectionné :" & vbLf & vbLf & Dossier
End Sub

A+

21/01/2015, 14h44
Scorpdragon

Génial ce code fait exactement ce que je voulais encore merci.