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

F

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
 
Trier par date Trier par votes
patricktoulon

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)
 
Vote positif 0 Vote négatif
F

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
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
oh purée met ton code dans une balise code ca pique les yeux là
Capture.JPG
 
Vote positif 0 Vote négatif
F

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
 
Vote positif 0 Vote négatif
J

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.
 
Vote positif 0 Vote négatif
F

Flx1er

XLDnaute Occasionnel
jmfmarques à dit:
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.
Cliquez pour agrandir...

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
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2016 Ancienne Valeur fantôme sur le LostFocus d'une TextBox
Réponses
2
Affichages
174
crocrocro
C
D
  • Question
Microsoft 365 Afficher les propriétés d'un fichier
Réponses
2
Affichages
394
patricktoulon
patricktoulon
G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
halecs93
  • Résolu(e)
XL 2016 récupérer textbox dans une cellule fusionnée
Réponses
3
Affichages
492
laurent950
laurent950
P
  • Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
447
patricktoulon
patricktoulon
oguruma
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
268
oguruma
oguruma
M
  • Résolu(e)
XL 2019 shell dans vba et les espaces
2
Réponses
26
Affichages
2 K
macseb
M
G
  • Question
XL 2016 Programme excel 2016 - Impression d'un plan de table avec uniquement les tables occupées. Chaque Table = unTEXTBOX avec les noms des occupants.
Réponses
14
Affichages
970
Staple1600
Staple1600
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
2 K
TooFatBoy
TooFatBoy
WF14
  • Question
Microsoft 365 Forcer la selection multiple sur tous les segments TCD/GCD d'un classeur
Réponses
1
Affichages
1 K
danielco
D

Membres actuellement en ligne

19 membres et 191 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 626
Messages
2 111 294
Membres
111 093
dernier inscrit
Yvounet