Bonjour à tous,

Je vous sollicite à nouveau pour une question toute bête concernant le passage d’une variable Public à un UserForm.
Après avoir choisi un dossier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public ChoixDossier
Sub choix_dossier()
    Dim x As Long, ChoixDossier As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            ChoixDossier = .SelectedItems(1)
            MsgBox "Choix dossier : " & ChoixDossier
        End If
    End With
End Sub
Je veux récupérer la variable "ChoixDossier" dans mon UserForm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    Dim NomFich, ok As Boolean
    MsgBox "Choix dossier : " & ChoixDossier
    NomFich = Dir("" & ChoixDossier & "", vbNormal)
    Do While NomFich <> ""
        UserForm1.ListFich.AddItem Split(NomFich, ".")(1)
        UserForm1.ListBox2.AddItem LCase(NomFich)
        NomFich = Dir
    Loop
End Sub
La variable publique est bien déclarée au début de mon module.

Là où ça coince c'est que cette variable n’est pas récupérée dans l’UserForm ce qui fait que je n'ai plus son contenu pour l’initialisation de celui-ci.

Quelqu'un aurait-il une idée de la raison expliquant que la variable est vide, c’est certainement tout simple.

Merci d’avance pour votre temps consacré et l'aide que vous pourrez m'apporter à résoudre ce petit problème.