detection d'un partage réseau

[sebinator]

Bonjour,

a l'ouverture d'oulook, j'ai du code qui synchronise mes contacts avec une bdd access présente sur un partage réseau.

Je souhaite pour éviter des soucis, détecter l'accessibilité de ce partage avant d'éxécuter ce code.

actuellement j'ai ca :

Private Sub Application_Startup()
Synchrobdd
end sub

je voudrais donc arriver à ca :

Private Sub Application_Startup()
If "le partage est accessible" then 
Synchrobdd
 
else 
"on ne fait rien et on continue"
end sub

seb

[Dolphy35]

Salut,

tu peux tester l'existence de la bdd sur ton partage réseau avec ce code

Sub TestFichier()
    Dim strFichier As String
    strFichier = "C:\test2.mdb"
    If Dir(strFichier) <> "" And strFichier <> "" Then
        MsgBox "le fichier existe déjà", vbInformation
    Else
        MsgBox "le fichier n'existe pas", vbInformation
    End If
End Sub

ou bien tester un champ d'une table de la bdd, tu peux t'inspirer de ceci d'access.
http://dolphy35.developpez.com//arti...reseaux/#LVIII


Dolphy

[sebinator]

merci

ca fonctionne parfaitement.