Bonjour à tous et toute,
Je suis en plein développement d'un mini soft pour charger des données de fichier text dans une base SQL. Pour ce faire, l'utilisateur devra choisir la période pour laquelle il veut charger ses données. Les valeurs qui se trouvera dans la combo Periode sera renseigner par mon code à partir de nom de dossier présent dans un répertoire.
Mon soucis est que je ne peux pas faire référence du tout au Combo Box Periode qui ce trouve sur mon formulaire principal... Il me marque comme quoi la variable est non déclarer, comment dois-je faire pour qu'il soit visible dans mon module...
Merci pour toute aide que vous pouvez m'apporter...
Voici mon code du module :
Module ChargerNN
Function Fetch_Periode()
'Variable pour manipuler fichier texte
Dim TxtChemin AsString = IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location) & "\TEMP\"
Dim TxtRead As IO.StreamReader
'Variable Chemin pour le chemin où ce trouve les répertoires et Dossier pour les répertoires qui
'seront rajouté dans la combo box
Dim Chemin, Dossier AsString
'Def seras la valeur par défault du combo Periode
Dim Def As Data
'Aller chercher le chemin principal où ce trouve les sous dossiers dans le fichier texte
TxtRead = New IO.StreamReader(TxtChemin & "Chemin.txt", System.Text.Encoding.Default)
For x AsInteger = 1 To 2
Chemin = TxtRead.ReadLine
Next
'Insérer les valeurs dans la combo Periode
Dossier = Dir(Chemin, FileAttribute.Directory)
While Dossier <> ""
If IsNumeric(Dossier) And Len(Dossier) = 4 Then
Periode.Items.Add("20" & Mid(Dossier, 3, 2) & Mid(Dossier, 1, 2))
End If
End While
'Affecter la date MM/AAAA (M-1) à D
Def = System.DateTime.Now.Month - 1 & "/" & System.DateTime.Now.Year
End Function
End Module