XL 2010 Avoir les propriétés d'un TextBox

Flx1er

XLDnaute Occasionnel
Bonjour,
N'étant pas un virtuose du développement, je vais essayer d'être le plus clair possible.

Voilà mon problème :
J'ai créé un formulaire avec Frame1 contenant 13 TextBox.
Chacun de ces TextBox :
  • a été nommé "manuellement";
  • doit accueillir ou non un fichier bien précis (avec son chemin d'accès) pour être traité par la suit
    par exemple : en double cliquant sur un des textbox, j'ouvre une boîte de dialogue Fichier afin d'effectuer la sélection du fichier
Ma question est la suivante :
Est-il possible d'avoir les propriétés d'un textbox sans passer par la "saisie en dur" de chacun des textbox pour avoir les informations des propriétés voulues
par exemple :
var_id = TextBox_TITI.TabIndex ou
var_txt = TextBox_TITI.Name

Le principe de fonctionnement de base est le suivant
  1. Double clic dans un des TxtBox
    1. Ouvre fenêtre pour sélectionner fichier
    2. Extraire propriété du TxtBox (TabIndex et Name)
    3. Passage de ces données
  2. Traitement des fichier
J'ai trouvé sur le net un début de solution (car il m'est utile), mais ne répond pas à mon besoin, car ce code balaye le contenu du Frame1. Or, je désire lorsqu'un textbox a un contenu (chemin+fichier.txt) avoir les paramètres Name et TabIndex
VB:
cpt = 1
For Each Ctrl In Frame1.Controls        'alimentation du tableau avec Name et TabIndex
  If TypeOf Ctrl Is MSForms.TextBox Then
    Ctrl_Txtbox(cpt, 1) = Ctrl.Name
    Ctrl_Txtbox(cpt, 2) = Ctrl.TabIndex
    cpt = cpt + 1
  End If
Next Ctrl

J'ai essayé d'être le plus précis et vous remercie de votre aide et du temps consacré
Bien cordialment
 

patricktoulon

XLDnaute Barbatruc
bonjour
et jamais tu le dimensionne ton tableau ?? ;)
VB:
cpt = 1

dim  Ctrl_Txtbox()

For Each Ctrl In Frame1.Controls        'alimentation du tableau avec Name et TabIndex

  If TypeOf Ctrl Is MSForms.TextBox Then

   redim preserve  Ctrl_Txtbox(2,1 to cpt)

 Ctrl_Txtbox(1,cpt) = Ctrl.Name

    Ctrl_Txtbox(2,cpt) = Ctrl.TabIndex

    cpt = cpt + 1

  End If

Next Ctrl

'transposition des données sur une feuille

cells(1,1).resize(cpt,2).value =application.transpose( Ctrl_Txtbox)
 

Flx1er

XLDnaute Occasionnel
Ouah, quelle rapidité Merci.
Effectivement, je n'ai pas jugé nécessaire de mentionner le tableau.
Dans ta solution tu passes par une feuille intermédiaire.
Mais j'aimerais savoir comment utiliser les propriétés du controls sans passer par une feuille.
Je voudrais "simplement", lorsque je suis dans un des textbox, remonter uniquement .Name et . Index sans tout balayer et ne pas "saisir en dur" de chacun des 13 textbox.
En fait, j'ai 13 textbox que j'ai codé manuellement (et je trouve ça con), je me pose la question est-ce qu'il n'y a pas un moyen à l'aide d'une procédure unique d'effectuer le même travail.

Le code ci-dessous est un premier jet (et ne me satisfait pas), en fonction de la solution attendue, ce code évoluera

[/CODE=vb]Public Sub Selection_Fichier(TypeFile As String, Année As String, Mois As String, ExtFile As String, File As String)
Dim oFD As FileDialog
'Dim NomdeFichier As Variant
Dim Num_Ligne As Integer
Dim Max_Ligne As Integer
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
With .Filters
.Clear
.Add TypeFile, ExtFile, 1
.Add "Tous", "*.*", 2
End With
.AllowMultiSelect = False
.InitialFileName = Chemin & Année & "\" & Mois & "\" & "DataSSR\"
SélectionFichier = .Show
NomdeFichier = .SelectedItems(1)

'If (InStr(NomdeFichier, File) <> 0) Then
' TextBox_RHS.Text = NomdeFichier
'Else
' TextBox_RHS.Text = ""
' MsgBox "Le fichier sélectionné n'est pas un fichier txt", vbExclamation, "Erreur de sélection de fichier"
'End If
End With
End Sub

'********* 1 er TextBox
Private Sub TextBox_RHS_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim Path As String 'Répertoire contenu le fichier de données
Dim File As String 'Nom du fichier
Dim Ind_TabIndex As Integer
Dim Ctl As Control
Dim toto As String

Ind_TabIndex = TextBox_RHS.TabIndex

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHS_.Text & """"
TypeFile = Label_RHS.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "RHS.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)
If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHS.Text = NomdeFichier
Mes_Fichiers_Select(1, 1) = NomdeFichier
Mes_Fichiers_Select(1, 2) = "Tab_RHS_NG" '--- Zone nommée de la feuille Matrice contenant toutes les infos pour le traitement
Else
TextBox_RHS.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* 2è TextBox
Private Sub TextBox_RHS_Grp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier
Dim Ind_TabIndex As Integer

Ind_TabIndex = TextBox_RHS_Grp.TabIndex
'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHS_Grp.Text & """"
TypeFile = Label_RHS_Grp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.grp"
File = "RHS.grp"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHS_Grp.Text = NomdeFichier
Mes_Fichiers_Select(2, 1) = NomdeFichier
Mes_Fichiers_Select(2, 2) = "Tab_RHS_GRP" '--- Gestionnaire de noms
Else
TextBox_RHS_Grp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

********* 3è TextBox
Private Sub TextBox_RDSSR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RDSSR.Text & """"
TypeFile = Label_RDSSR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.rdsrr"
File = "RHS.rdssr"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RDSSR.Text = NomdeFichier
Mes_Fichiers_Select(3, 1) = NomdeFichier
Mes_Fichiers_Select(3, 2) = "Tab_RHS_ERR" '--- Gestionnaire de noms
Else
TextBox_RDSSR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_ERR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ERR.Text & """"
TypeFile = Label_ERR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.err"
File = "RHS.err"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ERR.Text = NomdeFichier
Mes_Fichiers_Select(4, 1) = NomdeFichier
Mes_Fichiers_Select(4, 2) = "Tab_RHS_RDSSR" '--- Gestionnaire de noms
Else
TextBox_ERR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_VidHosp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
TypeFile = Label_VidHosp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "_VIDHOSP_SSR_F_v013.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_VidHosp.Text = NomdeFichier
Mes_Fichiers_Select(5, 1) = NomdeFichier
Mes_Fichiers_Select(5, 2) = "Tab_VIDHOSP" '--- Gestionnaire de noms
Else
TextBox_VidHosp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_AnoHosp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_AnoHosp.Text & """"
TypeFile = Label_AnoHosp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "anohosp.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_AnoHosp.Text = NomdeFichier
Mes_Fichiers_Select(6, 1) = NomdeFichier
Mes_Fichiers_Select(6, 2) = "Tab_ANOHOSP" '--- Gestionnaire de noms
Else
TextBox_AnoHosp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_RHA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHA.Text & """"
TypeFile = Label_RHA.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.rha"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".rha"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHA.Text = NomdeFichier
Mes_Fichiers_Select(7, 1) = NomdeFichier
Mes_Fichiers_Select(7, 2) = "Tab_RHA" '--- Gestionnaire de noms
Else
TextBox_RHA.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_SHA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_SHA.Text & """"
TypeFile = Label_SHA.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.sha"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".sha"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_SHA.Text = NomdeFichier
Mes_Fichiers_Select(8, 1) = NomdeFichier
Mes_Fichiers_Select(8, 2) = "Tab_SSRHA" '--- Gestionnaire de noms
Else
TextBox_SHA.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_ANO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ANO.Text & """"
TypeFile = Label_ANO.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.ano"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".ano"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ANO.Text = NomdeFichier
Mes_Fichiers_Select(9, 1) = NomdeFichier
Mes_Fichiers_Select(9, 2) = "Tab_ANO" '--- Gestionnaire de noms
Else
TextBox_ANO.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_LEG_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_LEG.Text & """"
TypeFile = Label_LEG.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.leg"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".leg"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_LEG.Text = NomdeFichier
Mes_Fichiers_Select(10, 1) = NomdeFichier
Mes_Fichiers_Select(10, 2) = "Tab_LEG" '--- Gestionnaire de noms
' Mes_Fichiers_Select(10) = "Tab_LEG"
Else
TextBox_LEG.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_FichIUM_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_LEG.Text & """"
TypeFile = Label_FichIUM.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.ium"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".ium"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_FichIUM.Text = NomdeFichier
Mes_Fichiers_Select(11, 1) = NomdeFichier
Mes_Fichiers_Select(11, 2) = "Tab_IUM" '--- Gestionnaire de noms
' Mes_Fichiers_Select(11) = "Tab_IUM"
Else
TextBox_FichIUM.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_Corresp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_Corresp.Text & """"
TypeFile = Label_Corresp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".corresp.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_Corresp.Text = NomdeFichier
Mes_Fichiers_Select(12, 1) = NomdeFichier
Mes_Fichiers_Select(12, 2) = "Tab_CORRESP" '--- Gestionnaire de noms
Else
TextBox_Corresp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub
'********* et ainsi de suite
Private Sub TextBox_ValoSSR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ValoSSR.Text & """"
TypeFile = Label_ValoSSR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.csv"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".valo_ssr.csv"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ValoSSR.Text = NomdeFichier
Mes_Fichiers_Select(13, 1) = NomdeFichier
Mes_Fichiers_Select(13, 2) = "Tab_VALOSSR" '--- Gestionnaire de noms
Else
TextBox_ValoSSR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub[/CODE]

En te remerciant
 

patricktoulon

XLDnaute Barbatruc
re
oh purée met ton code dans une balise code ca pique les yeux là
Capture.JPG
 

Flx1er

XLDnaute Occasionnel
VB:
Public Sub Selection_Fichier(TypeFile As String, Année As String, Mois As String, ExtFile As String, File As String)
Dim oFD As FileDialog
'Dim NomdeFichier As Variant
Dim Num_Ligne As Integer
Dim Max_Ligne As Integer
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
With .Filters
.Clear
.Add TypeFile, ExtFile, 1
.Add "Tous", "*.*", 2
End With
.AllowMultiSelect = False
.InitialFileName = Chemin & Année & "\" & Mois & "\" & "DataSSR\"
SélectionFichier = .Show
NomdeFichier = .SelectedItems(1)

'If (InStr(NomdeFichier, File) <> 0) Then
' TextBox_RHS.Text = NomdeFichier
'Else
' TextBox_RHS.Text = ""
' MsgBox "Le fichier sélectionné n'est pas un fichier txt", vbExclamation, "Erreur de sélection de fichier"
'End If
End With
End Sub

'********* 1 er TextBox
Private Sub TextBox_RHS_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim Path As String 'Répertoire contenu le fichier de données
Dim File As String 'Nom du fichier
Dim Ind_TabIndex As Integer
Dim Ctl As Control
Dim toto As String

Ind_TabIndex = TextBox_RHS.TabIndex

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHS_.Text & """"
TypeFile = Label_RHS.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "RHS.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)
If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHS.Text = NomdeFichier
Mes_Fichiers_Select(1, 1) = NomdeFichier
Mes_Fichiers_Select(1, 2) = "Tab_RHS_NG" '--- Zone nommée de la feuille Matrice contenant toutes les infos pour le traitement
Else
TextBox_RHS.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* 2è TextBox
Private Sub TextBox_RHS_Grp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier
Dim Ind_TabIndex As Integer

Ind_TabIndex = TextBox_RHS_Grp.TabIndex
'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHS_Grp.Text & """"
TypeFile = Label_RHS_Grp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.grp"
File = "RHS.grp"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHS_Grp.Text = NomdeFichier
Mes_Fichiers_Select(2, 1) = NomdeFichier
Mes_Fichiers_Select(2, 2) = "Tab_RHS_GRP" '--- Gestionnaire de noms
Else
TextBox_RHS_Grp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

********* 3è TextBox
Private Sub TextBox_RDSSR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RDSSR.Text & """"
TypeFile = Label_RDSSR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.rdsrr"
File = "RHS.rdssr"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RDSSR.Text = NomdeFichier
Mes_Fichiers_Select(3, 1) = NomdeFichier
Mes_Fichiers_Select(3, 2) = "Tab_RHS_ERR" '--- Gestionnaire de noms
Else
TextBox_RDSSR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_ERR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ERR.Text & """"
TypeFile = Label_ERR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.err"
File = "RHS.err"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ERR.Text = NomdeFichier
Mes_Fichiers_Select(4, 1) = NomdeFichier
Mes_Fichiers_Select(4, 2) = "Tab_RHS_RDSSR" '--- Gestionnaire de noms
Else
TextBox_ERR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_VidHosp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
TypeFile = Label_VidHosp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "_VIDHOSP_SSR_F_v013.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_VidHosp.Text = NomdeFichier
Mes_Fichiers_Select(5, 1) = NomdeFichier
Mes_Fichiers_Select(5, 2) = "Tab_VIDHOSP" '--- Gestionnaire de noms
Else
TextBox_VidHosp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_AnoHosp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_AnoHosp.Text & """"
TypeFile = Label_AnoHosp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = "anohosp.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_AnoHosp.Text = NomdeFichier
Mes_Fichiers_Select(6, 1) = NomdeFichier
Mes_Fichiers_Select(6, 2) = "Tab_ANOHOSP" '--- Gestionnaire de noms
Else
TextBox_AnoHosp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_RHA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_RHA.Text & """"
TypeFile = Label_RHA.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.rha"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".rha"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_RHA.Text = NomdeFichier
Mes_Fichiers_Select(7, 1) = NomdeFichier
Mes_Fichiers_Select(7, 2) = "Tab_RHA" '--- Gestionnaire de noms
Else
TextBox_RHA.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_SHA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_SHA.Text & """"
TypeFile = Label_SHA.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.sha"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".sha"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_SHA.Text = NomdeFichier
Mes_Fichiers_Select(8, 1) = NomdeFichier
Mes_Fichiers_Select(8, 2) = "Tab_SSRHA" '--- Gestionnaire de noms
Else
TextBox_SHA.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_ANO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ANO.Text & """"
TypeFile = Label_ANO.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.ano"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".ano"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ANO.Text = NomdeFichier
Mes_Fichiers_Select(9, 1) = NomdeFichier
Mes_Fichiers_Select(9, 2) = "Tab_ANO" '--- Gestionnaire de noms
Else
TextBox_ANO.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_LEG_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_LEG.Text & """"
TypeFile = Label_LEG.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.leg"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".leg"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_LEG.Text = NomdeFichier
Mes_Fichiers_Select(10, 1) = NomdeFichier
Mes_Fichiers_Select(10, 2) = "Tab_LEG" '--- Gestionnaire de noms
' Mes_Fichiers_Select(10) = "Tab_LEG"
Else
TextBox_LEG.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_FichIUM_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_LEG.Text & """"
TypeFile = Label_FichIUM.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.ium"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".ium"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_FichIUM.Text = NomdeFichier
Mes_Fichiers_Select(11, 1) = NomdeFichier
Mes_Fichiers_Select(11, 2) = "Tab_IUM" '--- Gestionnaire de noms
' Mes_Fichiers_Select(11) = "Tab_IUM"
Else
TextBox_FichIUM.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub

'********* et ainsi de suite
Private Sub TextBox_Corresp_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_Corresp.Text & """"
TypeFile = Label_Corresp.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.txt"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".corresp.txt"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_Corresp.Text = NomdeFichier
Mes_Fichiers_Select(12, 1) = NomdeFichier
Mes_Fichiers_Select(12, 2) = "Tab_CORRESP" '--- Gestionnaire de noms
Else
TextBox_Corresp.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub
'********* et ainsi de suite
Private Sub TextBox_ValoSSR_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TypeFile As String 'Type de fichier : donne l'information du contenu textbox de chaque type de fichier
Dim Année As String 'Répertoire de l'année
Dim Mois As String 'Répertoire du mois
Dim Ext As String 'Extension du fichier
Dim File As String 'Nom du fichier

'Paramètres a passer pour définir l'emplacement du fichier
'TypeFile = """" & TextBox_ValoSSR.Text & """"
TypeFile = Label_ValoSSR.Caption
Année = ComboBox_Année.Value
Mois = ComboBox_Mois.Value
Ext = "*.csv"
File = Finess & "." & Année & "." & Val(Right(Mois, 2)) & ".valo_ssr.csv"

Call Selection_Fichier(TypeFile, Année, Mois, Ext, File)

If (InStr(NomdeFichier, File) <> 0) Then
TextBox_ValoSSR.Text = NomdeFichier
Mes_Fichiers_Select(13, 1) = NomdeFichier
Mes_Fichiers_Select(13, 2) = "Tab_VALOSSR" '--- Gestionnaire de noms
Else
TextBox_ValoSSR.Text = ""
MsgBox "Le fichier sélectionné n'est pas un fichier " & File, vbExclamation, "Erreur de sélection de fichier"
End If
End Sub
 

jmfmarques

XLDnaute Accro
Bonjour
Je crois comprendre que tu devrais t'intéresser à la création d'un module de classe qui te permettrait de gérer l'ensemble de ces textboxes sans avoir à les traiter séparément.
Mais ce ne pourra être le fruit que d'un apprentissage préalable.
 

Flx1er

XLDnaute Occasionnel
Bonjour
Je crois comprendre que tu devrais t'intéresser à la création d'un module de classe qui te permettrait de gérer l'ensemble de ces textboxes sans avoir à les traiter séparément.
Mais ce ne pourra être le fruit que d'un apprentissage préalable.

Merci pour la réponse
Où puis je de la doc ou des exemples pour la mise en œuvre d'un module de classe
Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla