Retrouver l'empacement d'une bdd [VBA]

Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -
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

6 réponses

madmyke Messages postés 53100 Date d'inscription   Statut Modérateur Dernière intervention   12 240
 
il n'y a pas un service informatique chez toi?
0
Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   3
 
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.

;-)
0
madmyke Messages postés 53100 Date d'inscription   Statut Modérateur Dernière intervention   12 240
 
oups :-) pardon pas bien lu :-)
0
Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   3
 
Autant pour moi je n'ai surement pas assez précisé mon soucis enfin si tu as une solution à mon soucis....

Merci ....
0
madmyke Messages postés 53100 Date d'inscription   Statut Modérateur Dernière intervention   12 240
 
Non mille fois désolé, je ne connais pas.
0
Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   3
 
OK tanpis alors ... :-(
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+

0
Milyshyn Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   3
 
Merci, c'est déjà pas mal.... Je vais tester cela ...
0