Impossible de récupérer une variable Public dans un UserForm

Version imprimable

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:

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:

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.

29/10/2023, 16h48
Philippe Tulliez
Bonjour,
Pour utiliser la variable publique, il faut évidemment que celle-ci reçoive une valeur avant d'invoquer le UserForm. Si vous lancez le formulaire sans passer par une procédure qui initialise la variable cela ne fonctionnera pas.
Si c'est une valeur constante, vous pouvez toujours utiliser une constante publique et dans ce cas vous pourrez lancer le UserForm sans passer par une procédure.
A mon avis c'est ce que vous avez omis de faire

Code dans un module standard
Code:

1 2 3 4 5 6 Option Explicit Public maVariable As String Sub t() maVariable = "Hello" UserForm1.Show End Sub
Code du UserForm
Code:

1 2 3 Private Sub UserForm_Activate() Me.TextBox1.Value = maVariable End Sub
29/10/2023, 16h56
Franc

Salut,
Quand je mets la variable publique et la macro choix_dossier dans un module standard, je lance cette macro et le msgbox du userform_initialize affiche bien le dossier sélectionné.
C'est ce que tu as fait ?
29/10/2023, 18h19
Thumb down

Bonjour,
pourquoi une variable public?
29/10/2023, 18h20
modus57

Bonjour M. Tulliez, ciao Franc,

Merci pour vos réponses.

Citation:

Pour utiliser la variable publique, il faut évidemment que celle-ci reçoive une valeur avant d'invoquer le UserForm. Si vous lancez le formulaire sans passer par une procédure qui initialise la variable cela ne fonctionnera pas.

C'est le cas dans le module standard "Sub choix_dossier()"
29/10/2023, 18h22
modus57

Bonjour Thumb down,

Nos réponses se sont croisées.

Mais encore ??

je n'es pas compris pourquoi tu passe par une variable public, tu as bien une raison de travailler comme ça?

Code:

1
2
3
4
5
6
7
8
9
10
Function choix_dossier() As String
    Dim x As Long, ChoixDossier As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            choix_dossier = .SelectedItems(1)
            MsgBox "Choix dossier : " & choix_dossier
        End If
    End With
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    Dim NomFich, ok As Boolean, ChoixDossier As String
    ChoixDossier = choix_dossier
    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

1 pièce(s) jointe(s)

Bonsoir Thumb down,

Tu as raison avec ta procédure ça fonctionne, mais je ne m’explique pas pourquoi cela ne fonctionne pas avec une variable "Public" ???

Petite correction :

Code:

NomFich = Dir("" & choix_dossier & "\", vbNormal)

Dans la même veine comment récupérer la variable de l’item sélectionné dans la ListBox "ListFich" :
Pièce jointe 645948
Pour l’utiliser dans les procédures suivantes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub Lister()
    Dim sRepPrinc As String
    Dim iDerLig As Integer
    Set moFSO = New FileSystemObject
    sRepPrinc = choix_dossier()
    If sRepPrinc = "" Then
        Exit Sub
    End If
    msRepPrinc = sRepPrinc
    'RAZ
    iDerLig = Range("A" & Rows.Count).End(xlUp).Row
    If iDerLig >= 2 Then
        Rows("2:" & iDerLig).Delete
    End If
    'liste récursive
    ListeFichiers sRepPrinc, 1
 
    MsgBox "Terminé !", vbExclamation
    Set moFSO = Nothing
    Columns("A:E").EntireColumn.AutoFit
    Range("A2").Activate
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ListeFichiers(psRep As String, piNiveau As Integer)
    Dim iLig As Integer
    Dim oFic As File
    Dim oRep As Folder
    'fichiers
    For Each oFic In moFSO.GetFolder(psRep).Files
        If Split(oFic, ".")(1) = "xlsm" Then 'ici pour filtrer tous les fichiers suivant choix "Liste extensions"
        iLig = Range("A" & Rows.Count).End(xlUp).Row + 1
        Range("A" & iLig).Value = psRep
        Range("B" & iLig).Value = oFic.Name
        Range("C" & iLig).Value = oFic.DateCreated
        Range("D" & iLig).Value = oFic.DateLastModified
        Range("E" & iLig).Value = oFic.Size
        End If
    Next oFic
    'sous-répertoires
    For Each oRep In moFSO.GetFolder(psRep).SubFolders
        ListeFichiers oRep.Path, piNiveau + 1
    Next oRep
End Sub