comment r=E9cup=E9rer par le code le nom des fichiers et leur=20
chemin que l'on trouve dans la rubrique outil et r=E9f=E9rence
dans le chapitre code
=E9videmment sous access
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
Raymond [mvp]
Bonjour.
Il faut utiliser FullPath pour avoir le chemin complet d ela référence. exemple: Public Function Toutes_Références() As String On Error Resume Next Toutes_Références = "" For Each Ref In references Toutes_Références = Toutes_Références & Ref.Name & ";" & Ref.FullPath & ";" Next Ref End Function
-- @+ 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
"michel" a écrit dans le message de news:1c94d01c45310$02505de0$ bonjour
comment récupérer par le code le nom des fichiers et leur chemin que l'on trouve dans la rubrique outil et référence dans le chapitre code évidemment sous access
merci
michel
Bonjour.
Il faut utiliser FullPath pour avoir le chemin complet d ela référence.
exemple:
Public Function Toutes_Références() As String
On Error Resume Next
Toutes_Références = ""
For Each Ref In references
Toutes_Références = Toutes_Références & Ref.Name & ";" &
Ref.FullPath & ";"
Next Ref
End Function
--
@+
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
"michel" <michel.laporte@sante.gouv.fr> a écrit dans le message de
news:1c94d01c45310$02505de0$a601280a@phx.gbl...
bonjour
comment récupérer par le code le nom des fichiers et leur
chemin que l'on trouve dans la rubrique outil et référence
dans le chapitre code
évidemment sous access
Il faut utiliser FullPath pour avoir le chemin complet d ela référence. exemple: Public Function Toutes_Références() As String On Error Resume Next Toutes_Références = "" For Each Ref In references Toutes_Références = Toutes_Références & Ref.Name & ";" & Ref.FullPath & ";" Next Ref End Function
-- @+ 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
"michel" a écrit dans le message de news:1c94d01c45310$02505de0$ bonjour
comment récupérer par le code le nom des fichiers et leur chemin que l'on trouve dans la rubrique outil et référence dans le chapitre code évidemment sous access
