C'est simple. Je vérifie si la base de données dbTest.mdb existe, le programme me renvoie qu'il existe alors que non. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub bou_creation_Click()
 
    Dim i As Integer
    Dim intRetour As Integer
 
    If Dir(FONCTION_CHEMIN_COURANT(GstrNomDb)) <> " " Then    
        intRetour = MsgBox("La base de donnée existe déjà" & vbCrLf & _
        "Voulez vous la recréer ??", vbInformation + vbYesNo, _
        "Basde de donnée existante")
      Else
        ' ...
    End If           
 
End Sub
Merci d'avance.