Bonjour, A votre avis cette function en VB6 sous Vista peut-elle fonctionner sans avoir besoin d'être en mode Administrateur ? Merci d'avance. Public Sub Compactage(BaseSource As String, Compact As Boolean, Optional Repair As Boolean = False) Dim JRO As JRO.JetEngine Set JRO = New JRO.JetEngine On Error GoTo Gesterr Screen.MousePointer = vbHourglass BaseCompactée = App.Path & "\Comp.mdb" If Dir(BaseSource, vbNormal) = "" Then MsgBox "La base de données est introuvable, traitement impossible.", vbInformation, titre Call FinProg End If If Dir(BaseCompactée, vbNormal) <> "" Then Kill BaseCompactée End If JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseSource & ";Jet OLEDB:Database Password=", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseCompactée & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" Kill BaseSource FileCopy BaseCompactée, BaseSource Kill BaseCompactée Screen.MousePointer = vbDefault Exit Sub Gesterr: Screen.MousePointer = vbDefault If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "F-> : Compactage " & titre Err.Clear End If End Sub