Discussion :

[olivier45fr]

Bonjour,

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




merci

[Jean-Pierre49]

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 :

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

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

[olivier45fr]

super cool merci