Discussion :

[dodo28]

Bonjour,
Pouvez vous m'aider sur ce problème?

J'ai fait code qui me permet de faire des liaisons de table selon la connexion du PC.

Si le PC est connecté au serveur il va lié les tables avec le serveur, si il n'y est pas il va se connecter sur C:/.

Pour savoir si le PC doit se connecté à l'un (T:/) ou l'autre (C:/) j'ai fait ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        If Dir("T:\Nivalis", vbDirectory) = "" Then
 
          MsgBox "vous n'?tes pas connect? au serveur, vous ?tes connect? sur C!"
          Chemin = "C:\nivalis\data_gibier_v2.accdb"
 
          Call modification_liaison_table.liaison_base(Chemin)
 
          Cocher_Portable.Value = True
          Chk = Cocher_Portable.Value
 
          End If

mais j'ai un bug car il ne trouve pas le dossier "T:\Nivalis" et le but était de dire si tu ne le trouve pas ("T:\Nivalis" ) lie les tables sur c:/

Avez vous une solution pour m'aider
merci d'avance

[tee_grandbois]

bonjour,
pourquoi ne pas utiliser FileSystemObject ?

Code :

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

1
2
3
4
5
6
Function existeDriveFSO(ByVal pDrive As String) As Boolean
' Test d'existence d'un lecteur
Set fs = CreateObject("Scripting.FileSystemObject")
existeDriveFSO = fs.DriveExists(pDrive)
Set fs = Nothing
End Function

Code :

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

If existeDriveFSO("T:") Then ...

[dodo28]

Merci beaucoup je vais essayer avec cette méthode