Discussion :

[shub]

Bonjour,
dans ma base de donnée je tente d'acceder a une autre base de donnée sur un portable.
Il se peut que le portable ne soit pas branché au reseau et donc quand cela se produit j'ai une erreur me disant que vba n'arrive pas a trouver la base distante.
Je souhaiterait donc pouvoir faire un test pour verifier que la base est accessible
Mais je ne sais pas comment faire ca. Si vous pourriez eclairer ma lanterne ce serait gentil
Merci

[Pogny]

ping?

[shub]

on peut pinger depuis vba?
Le but est de renvoyer un message d'erreur a l'utilisateur si la base distante n'est pas accessible

[Trini]

Bonjour,

Tu fais un simple Dir(), du style :

Code :

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

1
2
3
 
 
If Dir("\\MonPortable\Chemin\Base.mdb")="" then

[shub]

j'ai donc ca

Code :

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

If Dir("\\Riviere\Base de donnée\BDD.mdb") <> "" Then

Mais il me dit nom ou numero de fichier incorrect.

[Meduse]

Si dans ta BdD courante tu as une table liée à l'autre BdD, tu peux compter les champs de la table :

Code :

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

1
2
3
4
5
6
7
Dim LinkTest As Integer
 
LinkTest = CurrentDb.TableDefs("TableLiée").Fields.count
 
If LinkTest = 0 Then
    MsgBox "Base de données non connectée"
End If

C'est un peu plus du bricolage que les solutions données précédemment mais ça a le mérite d'éviter les message d'erreur.

[shub]

ce n'est malheuresement pas une table liée

[shub]

N'y a-t-il pas une fonction qui me permettrait de savoir si le fichier est accessible ou non?

[random]

puisque tu as une erreur gère la
on error goto pasdebase
invocation autre base
on error goto 0
suite traitement
exit sub
:pasdebase
"la base truc chouette n'est pas dispo ou vous indiquez un chemin incorrect"
end sub

[shub]

le probleme avec le code que je viens de mettre c'est qu'il m'envoie tout le temps sur Pasdebase meme si la base est accessible