Discussion :

[Invité]

Bonjour à tous
Je cherche par le code à pouvoir convertir un fichier mdb externe en accdb.
Est ce possible?

Merci d'avance.

[Domi2]

Hello Gayot,

Jamais testé.

Regarde du côté de la méthode ConvertAccessProject dans l'aide.

Extrait du code proposé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.ConvertAccessProject _
    SourceFilename:="C:\My Documents\Sales-Access97.mdb", _
    DestinationFilename:="C:\My Documents\Sales-Access2000.mdb", _
    DestinationFileFormat:=acFileFormatAccess2000

Pour le choix du format, tu devrais obtenir les constantes disponibles à la complétion.

Domi2

P.-S. N'oublie pas de faire tes tests avec des copies...

[Invité]

Bonjour Domi2

Merci pour la piste. Je vais creuser cela.

[Invité]

génial ça marche
Par exemple sur clic d'un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CmdConvert_Click()
On Error GoTo ErrConvert
Application.ConvertAccessProject _
    SourceFilename:="C:\Chemin\NomDeMonFichier.mdb", _
    DestinationFilename:="C:\Chemin\NomDeMonFichier.accdb", _
    DestinationFileFormat:=acFileFormatAccess2007
 
Exit_CmdConvert_Click:
    Exit Sub
ErrConvert:
    If err.Number = 3356 Then 
       MsgBox "ce fichier est déjà au format accdb"
    Else
       MsgBox "Erreur : " & err.Number & vbCrLf & err.Description,  vbExclamation + vbOKOnly, "Attention"
    End If
 
End Sub

Merci encore Domi2