Retrouver l'empacement d'une bdd [VBA]

Question

Bonjour,


Je voudrais savoi s'il y a une code qui me permet de retrouver l'emplacement d'une base de donnée sur laquelle on travail ...

En fait dans mon entreprise, il y a plusieurs serveur. Le soucis est que je boss sur un poste dont la base de donnée est un raccourci qui pointe sur le serveur ou est enregistrer cette dernière.


j'aimerais récuperer le chemin de ma base de donnée, sachant que je travail en local, je voudrais que le chemin ressemble à celui-ci.


Merci

madmyke · Answer

il n'y a pas un service informatique chez toi?

Milyshyn · Answer

Evidement puisque je tarvail dedans, je connais le chemin de la base de donnée mais j'aimerais le resortir dans une variable dans du code vba ... Pour pouvoir ensuite faire des tests.

;-)

Milyshyn · Answer

Autant pour moi je n'ai surement pas assez précisé mon soucis enfin si tu as une solution à mon soucis....

Merci ....

Milyshyn · Answer

OK tanpis alors ... :-(

lermite222 · Answer

Bonjour,
je ne travail pas sur un réseau donc je ne sais pas raisonnablement tester mais oriente toi vers...
    Set fs = CreateObject("Scripting.FileSystemObject")
Et éventuellement te baser sur cette macro, mais c'est juste une piste...
Function RetourneChemin()
Dim Fichier As String
Dim fs, F
Dim i As Integer
    Fichier = ActiveWorkbook.FullName
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFile(Fichier)
    For i = Len(F) To 2 Step -1:
        If Mid(F, i, 1) = "\" Then Exit For
    Next i
    RetourneChemin = Left(F, i)
End Function

A+

Milyshyn · Answer

Merci, c'est déjà pas mal.... Je vais tester cela ...

Retrouver l'empacement d'une bdd [VBA]

6 réponses

Discussions similaires

Newsletters