'IIIIIIIIIIIIIIII
                If DATASCONET.Tables("TR_ELEVE").Select("ELEONET=" & eleveeleonetstructure).Count = 1 Then
                    Dim ligneeleveimp = DATASCONET.Tables("TR_ELEVE").Select("ELEONET=" & eleveeleonetstructure)(0)
                    ' ajout de la classe au bon élève
                    If Not (ligneeleveimp("Code_structure").ToString = codestructure) Then
                        ligneeleveimp.BeginEdit()
                        ligneeleveimp("Code_structure") = codestructure
                        ligneeleveimp.EndEdit()

                    End If
                Else
                    ' cet élève n'est pas dans la base tem dtasconet (pas demi-pensionnaire)
                End If