Discussion :

[Scorpdragon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[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.

[deedolith]

quelque chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Igloobel]

Bonjour,

Tu peux également faire simplement une boucle comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Scorpdragon]

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