E-03 test de connection

Bonjour,

je cherche comment faire un test de connection de mon lecteur reseau avant que la macro s'execute

:roll:

merci

Bonjour,

Tu a la possibilte de créer et de gérer une erreur en tentant de déclarer une base de données sur le reseau

Code:

1
2
3
4
5
6
7
8
9
10
11
                            Dim Donnees                  As DAO.Database
                            Dim Chemin                   As String
 
    Chemin = "X:\NomDossier\" 'le chemin d'un dossier sur le reseau
    On Error Resume Next
    Set Donnees = DAO.OpenDatabase(Chemin, False, False, "Text;Database=" & Chemin)
    If Err.Number = 3044 Then
        Err.Clear
        On Error GoTo 0
        Exit Sub
    End If

Avec la reference Microsoft DAO 3.6 Object Library

Il y a surement d'autre méthode;)
Bon courage

super cool merci:king: