Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Message in a bottle

Message in a bottle

3 réponses
Avatar
Goldorak
Bonjour,

Avec currentdb.name je re=E7ois le chemin de l'application=20
plus son com (Ex: "c:\access\Clients.MDB").

Comment puis-je recevoir unniquement "c:\access".

Merci pour votre aide pr=E9cieuse.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

tu peux faire:
Left(CurrentProject.Path, 3) & CurrentProject.Name

mais à quoi celà peut-il donc servir ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Goldorak" a écrit dans le message de
news:09a701c48b6f$af66d800$
Bonjour,

Avec currentdb.name je reçois le chemin de l'application
plus son com (Ex: "c:accessClients.MDB").

Comment puis-je recevoir unniquement "c:access".

Merci pour votre aide précieuse.
Avatar
Jessy Sempere [MVP]
Bonjour

Si tu veux le chemin de la base de donnée en cours, tu peux
aussi regarder ici pour Access 97 :
http://access.jessy.free.fr/index.html?Menu=0&Page=CurrentDbDir

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:
#
Bonjour.

tu peux faire:
Left(CurrentProject.Path, 3) & CurrentProject.Name

mais à quoi celà peut-il donc servir ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Goldorak" a écrit dans le message de
news:09a701c48b6f$af66d800$
Bonjour,

Avec currentdb.name je reçois le chemin de l'application
plus son com (Ex: "c:accessClients.MDB").

Comment puis-je recevoir unniquement "c:access".

Merci pour votre aide précieuse.




Avatar
Toine
Tu peux te servir des fonctions ci-dessous, à partir d'Access 2002 (je
crois)

'------------------------------------------------------------------------------
Public Function Récupérer_Nom_Fichier(fichier As String) As String
'Extrait le nom d'un fichier à partir de son chemin complet

Dim objet As Object

Set objet = CreateObject("Scripting.FileSystemObject")

Récupérer_Nom_Fichier = objet.GetFileName(fichier)

End Function

'------------------------------------------------------------------------------
Public Function Récupérer_Chemin_Fichier(fichier As String) As String
'Extrait le chemin d'un fichier à partir de son nom complet

Dim tmp As String

tmp = Récupérer_Nom_Fichier(fichier)

Récupérer_Chemin_Fichier = Left(fichier, Len(fichier) - Len(tmp))

End Function

'------------------------------------------------------------------------------
Public Function Récupérer_Extension_Fichier(fichier As String) As String
'Extrait l'extension associée à un fichier

Dim objet As Object

Set objet = CreateObject("Scripting.FileSystemObject")

Récupérer_Extension_Fichier = objet.GetExtensionName(fichier)

End Function



"Goldorak" a écrit dans le message de
news: 09a701c48b6f$af66d800$
Bonjour,

Avec currentdb.name je reçois le chemin de l'application
plus son com (Ex: "c:accessClients.MDB").

Comment puis-je recevoir unniquement "c:access".

Merci pour votre aide précieuse.