Function CompacterBase(VDb As String, VPath As String)
    'Fonction de compactage d'une base de données
    'Pour cette fonction, vous devez ajouter la référence Microsoft DAO
    'VDb = Nom de la base données
    'VPath = Variable chemin
    
    Dim VPath1 As String
    
    'On met le sablier
    Screen.MousePointer = 11
    'Si la base n'est pas nulle
    If VDb <> "" Then
	'On regarde si le chemin fini par un \ si no on le met
        If Right(VPath, 1) <> "\" Then VPath = VPath & "\"
	'On regarde si la base finie par .mdb si no on le met
        If UCase(Right(VDb, 4)) <> ".MDB" Then VDb = VDb & ".MDB"
	'On ferme la base
        On Error Resume Next
        Db.Close
        On Error GoTo 0
	'On compacte dans un autre fichier
        DBEngine.CompactDatabase (VPath & VDb), (VPath & "BaseTmp.MDB")
	'On efface la base
        Kill (VPath & VDb)
	'On renome le nouvelle avec le nom de l'ancienne
        Name (VPath & "BaseTmp.MDB") As (VPath & VDb)
	'On remet la flèche
        Screen.MousePointer = 1
    End If
End Function