// Validation des valeurs des attributs
            }
            if (!($CodErrVide || $CodErrInval)) {
                $ObjTuple = new CEntreprise();
                $ObjTuple->SetPK_Entreprise($ValPK_Entreprise);
                $ObjTuple->SetNomE(ProtectApos($ValNomE));
                $ObjTuple->SetCivilite($ValCivilite);
                $ObjTuple->SetNomR(ProtectApos($ValNomR));
                $ObjTuple->SetPrenomR(ProtectApos($ValPrenomR));
                $ObjTuple->SetAdr1(ProtectApos($ValAdr1));
                $ObjTuple->SetAdr2(ProtectApos($ValAdr2));
                $ObjTuple->SetCP($ValCP);
                $ObjTuple->SetVille(ProtectApos($ValVille));
                $ObjTuple->SetTelR($ValTelR);
                $ObjTuple->SetMailR($ValMailR);
                $ObjTuple->SetFaxR($ValFaxR);
                $ObjTuple->SetPresentEntreprise($ValPresentEntreprise);
                if (substr($ValSiteEntreprise, 0, 7) != 'http://') {
                    $ValSiteEntreprise = 'http://' . $ValSiteEntreprise;
                }
                $ObjTuple->SetSiteEntreprise($ValSiteEntreprise);
                if ($ValPK_Entreprise == 0) {
                    $ObjTuple->Insert();
                } else {
                    $ObjTuple->Update();
                }
                ?>
                <script>location.replace("?Trait=List&SlxTable=<?php 
                echo $NomTabEntreprises;
                ?>
");</script>
     $ObjSoc = new CEntreprise();
     $ObjSoc->SetIs_Valide(1);
     $ObjSoc->SetNomE(ProtectApos($ValNomE));
     $ObjSoc->SetAdr1(ProtectApos($ValAdr1));
     $ObjSoc->SetAdr2(ProtectApos($ValAdr2));
     $ObjSoc->SetCP($ValCP);
     $ObjSoc->SetVille(ProtectApos($ValVille));
     if ($ValIs_IdemTuteur) {
         $ValCiviliteRespAdmin = $ValCiviliteTuteur;
         $ValNomRespAdmin = $ValNomTuteur;
         $ObjSoc->SetCivilite(${$ValCiviliteRespAdmin});
         $ObjSoc->SetNomR(ProtectApos($ValNomTuteur));
         $ObjSoc->SetPrenomR(ProtectApos($ValPrenomTuteur));
         $ObjSoc->SetTelR($ValTelTuteur);
         $ObjSoc->SetMailR($ValMailTuteur);
         $ObjSoc->SetFaxR($ValFaxTuteur);
     } else {
         $ObjSoc->SetCivilite(${$ValCiviliteRespAdmin});
         $ObjSoc->SetNomR(ProtectApos($ValNomRespAdmin));
         $ObjSoc->SetPrenomR(ProtectApos($ValPrenomRespAdmin));
         $ObjSoc->SetTelR($ValTelRespAdmin);
         $ObjSoc->SetMailR($ValMailRespAdmin);
         $ObjSoc->SetFaxR($ValFaxRespAdmin);
     }
     $ObjSoc->Insert();
     // Récupération de sa clé
     $ValFK_Entreprise = $ObjSoc->PK_Entreprise;
 }
 // Enregistrement du tuteur
 $ObjUser = new CUser();
 $NewPassWord = RandomPassWord();