FichierARéindexer is string

// Initialisation avec l'élément en cours dans le champ Liste
FichierARéindexer = LISTE_ListeFichier[LISTE_ListeFichier]

IF YesNo("Confirmez-vous la réindexation du fichier de données ?") = Yes THEN
	// Initialiser le sablier
	HourGlass()
	// Rendre le champ Jauge visible
	JAUGE_Jauge1.Visible = True
	// Réindexer le fichier de données
	IF HReindex(FichierARéindexer, hNdxNormal, JAUGE_Jauge1) = True THEN
		// Réindexation réussie
		// Réafficher le champ Table
		TableDisplay(TABLE_Table1, taStart)
		// Désactiver le sablier
		HourGlass(False)
		Info("La réindexation du fichier de données " + ...
			FichierARéindexer + " est terminée.")
		// Rendre le champ Jauge invisible
		JAUGE_Jauge1.Visible = False
	ELSE
		// La réindexation a échoué
		Info("Problème de réindexation du fichier de données " + FichierARéindexer) 
	END
END