TRAITEMENT AUTOMATIQUE D'UN FORMULAIRE

    Function traiterItem(ByVal item As String) As String
        'Function by Seren 

  
        'on nomme simplement les champs sans espace mais avec majuscule a chaque nouveau mot
        'et cette function decode 

        'NomDuProjetActuel ==> Nom du projet actuel

        'on déclare les compteurs 
        Dim j As Integer = 0
        Dim i As Integer = 0
        Dim x As Integer = 0

        'on déclare le nouveau item
        Dim newItem As String = item

        'on fait une boucle sur toutes les lettres de l'item a part la première qui est
        'une majuscule mais qui ne doit pas etre traitée
        For j = 2 To item.Length()
            'on récupere le code ASCII du caractère en cours
            i = Asc(Mid(item, j, 1))
            'Condition pour voir si la lettre est une majuscule
            If i > 64 And i < 91 Then
                'si c'est une majuscule

                'on recupère tout le text avant la majuscule 
                'le + x est a cause qu'a chaque fois qu'on traite une fois on ajoute un espace 
                'donc sa decale le tout (j'éspère que je suis assez clair :) )
                newItem = Left(newItem, j - 1 + x)
                'on ajoute le fameux espace plus la lettre en minuscule
                newItem &= " " & Chr(i + 32)
                'finalement on ajoute tout ce qu'il y avait après la majuscule
                newItem &= Right(item, item.Length - j)
                'on augmente le nombre de traitement
                x += 1

            End If
        Next
        Return newItem
    End Function