Bonjour,

Je me casse la tête depusi trop longtemps pour finalement venir vous demander.

J'ai un tabControl avec une 20aione d'onglets.
Les pages sont divisées en 2. coté gauche pour l'affichage de mes data, coté droit pour les boutons.
Les 3/4 des onglets ont les même boutons....

On m'a demandé d'ajouter un texte indiquant la date et heure d'un fichier texte sur le réseau ; çà aussi pas de probléme.

C'est un LABEL dans un GROUPBOX (pour faire une belle présentation). Et je n'arrive à mettre à jour que le label du premier onglet.

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    Private Sub RefreshISIS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshISIS.Tick
        Dim sNom As String = LinkExtractISIS() 'Lien du fichier d'extraction ISIS
 
        For Each GB As Control In Me.TabControl.SelectedTab.Controls
            If TypeOf (GB) Is System.Windows.Forms.GroupBox Then
                If (GB.Text = "MAJ APO") Then
                    For Each TB As Control In GB.Controls
                        If TypeOf (TB) Is System.Windows.Forms.Label Then
                            If (TB.Name = "HeureISIS") Then
 
                                If (File.Exists(sNom)) Then
                                    If (maj_planning <> IO.File.GetLastWriteTime(sNom).ToString()) Then
                                        maj_planning = IO.File.GetLastWriteTime(sNom).ToString()
                                        TB.Text = "MAJ le " & Format(maj_planning, "dddd dd/MM/yyyy") & " à " & Format(maj_planning, "HH:mm")
 
                                        DateTimePicker_ValueChanged(DateTimePicker, System.EventArgs.Empty)
                                    End If
                                Else : TB.Text = "Fichier d'extraction inexistant ou en cours de création"
                                End If
 
                            End If
                        End If
                    Next
                End If
            End If
        Next
 
    End Sub
Cette derniére versio nde code est sencé mettre à jour le label de l'onglet sélectionné.
Mais rien n'y fait.

Merci de m'aider