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
Jessy Sempere [MVP]
Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news: 95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
Bonjour
tu peux t'inspirer de ceci :
http://access.jessy.free.fr/index.html?Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Erwan" <anonymous@discussions.microsoft.com> a écrit dans le message news:
95e801c4970b$adf426b0$a501280a@phx.gbl...
Bonjour,
Dans une zone de liste , j'aimerai lister tous les
fichiers XL d'un répertoire donné.
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news: 95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
Je ne peux pas l'ouvrir à partir de mon travail , pourrai- je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
Je ne peux pas l'ouvrir à partir de mon travail , pourrai-
je avoir une copie texte, svp
Merci d'avance
-----Message d'origine-----
Bonjour
tu peux t'inspirer de ceci :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras
mis les noms de fichiers...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Erwan" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
Je ne peux pas l'ouvrir à partir de mon travail , pourrai- je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
Jessy Sempere [MVP]
Voilà la fonction :
Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim intFile As Integer Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch .LookIn = strDir: .Filename = "*.*" If .execute > 0 Then For intFile = 1 To .FoundFiles.Count strFile = .FoundFiles(intFile) strFile = right(strFile, Len(strFile) - (Len(strDir) + 1)) CurrentDb.execute "INSERT INTO [" & strTable & "] " _ & "([" & strField & "])" _ & "SELECT """ & strFile & """ ;" Next End If End With
End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ a écrit dans le message news: 073601c49711$275c5fe0$ Je ne peux pas l'ouvrir à partir de mon travail , pourrai- je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
Voilà la fonction :
Public Function FileExistDir(strDir As String, _
strTable As String, strField As String)
Dim intFile As Integer
Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch
.LookIn = strDir: .Filename = "*.*"
If .execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = right(strFile, Len(strFile) - (Len(strDir) + 1))
CurrentDb.execute "INSERT INTO [" & strTable & "] " _
& "([" & strField & "])" _
& "SELECT """ & strFile & """ ;"
Next
End If
End With
End Function
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le message news:
073601c49711$275c5fe0$a401280a@phx.gbl...
Je ne peux pas l'ouvrir à partir de mon travail , pourrai-
je avoir une copie texte, svp
Merci d'avance
-----Message d'origine-----
Bonjour
tu peux t'inspirer de ceci :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras
mis les noms de fichiers...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Erwan" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim intFile As Integer Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch .LookIn = strDir: .Filename = "*.*" If .execute > 0 Then For intFile = 1 To .FoundFiles.Count strFile = .FoundFiles(intFile) strFile = right(strFile, Len(strFile) - (Len(strDir) + 1)) CurrentDb.execute "INSERT INTO [" & strTable & "] " _ & "([" & strField & "])" _ & "SELECT """ & strFile & """ ;" Next End If End With
End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ a écrit dans le message news: 073601c49711$275c5fe0$ Je ne peux pas l'ouvrir à partir de mon travail , pourrai- je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
Yann
Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function
Bye Yann
-----Message d'origine----- Voilà la fonction :
Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim intFile As Integer Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch .LookIn = strDir: .Filename = "*.*" If .execute > 0 Then For intFile = 1 To .FoundFiles.Count strFile = .FoundFiles(intFile) strFile = right(strFile, Len(strFile) - (Len(strDir) + 1))
CurrentDb.execute "INSERT INTO [" & strTable & "] " _
& "([" & strField & "])" _ & "SELECT """ & strFile & """ ;" Next End If End With
End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ a écrit dans le message news:
073601c49711$275c5fe0$ Je ne peux pas l'ouvrir à partir de mon travail , pourrai-
je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
.
Salut,
Il y a un peu plus simple...
Public Function FileExistDir(strDir As String, _
strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls")
While strFile <> Empty
CurrentDb.execute "INSERT INTO [" & strTable & "]
([" & strField & "]) SELECT """ & strFile & """ ;"
strFile = Dir
WEND
End Function
Bye
Yann
-----Message d'origine-----
Voilà la fonction :
Public Function FileExistDir(strDir As String, _
strTable As String, strField As String)
Dim intFile As Integer
Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch
.LookIn = strDir: .Filename = "*.*"
If .execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = right(strFile, Len(strFile) -
(Len(strDir) + 1))
CurrentDb.execute "INSERT INTO [" &
strTable & "] " _
& "([" & strField & "])" _
& "SELECT """ & strFile & """ ;"
Next
End If
End With
End Function
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le
message news:
073601c49711$275c5fe0$a401280a@phx.gbl...
Je ne peux pas l'ouvrir à partir de mon travail ,
pourrai-
je avoir une copie texte, svp
Merci d'avance
-----Message d'origine-----
Bonjour
tu peux t'inspirer de ceci :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras
mis les noms de fichiers...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Erwan" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function
Bye Yann
-----Message d'origine----- Voilà la fonction :
Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim intFile As Integer Dim strFile As String
intFile = 0: strFile = ""
With Application.FileSearch .LookIn = strDir: .Filename = "*.*" If .execute > 0 Then For intFile = 1 To .FoundFiles.Count strFile = .FoundFiles(intFile) strFile = right(strFile, Len(strFile) - (Len(strDir) + 1))
CurrentDb.execute "INSERT INTO [" & strTable & "] " _
& "([" & strField & "])" _ & "SELECT """ & strFile & """ ;" Next End If End With
End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ a écrit dans le message news:
073601c49711$275c5fe0$ Je ne peux pas l'ouvrir à partir de mon travail , pourrai-
je avoir une copie texte, svp
Merci d'avance
-----Message d'origine----- Bonjour
tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html? Menu=6&Page=FileExistDir
il te suffit de remplacer le = "*.*" par = "*.xls"
Ensuite tu élabores ta liste sur la table où tu auras mis les noms de fichiers...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Erwan" a écrit dans le message news:
95e801c4970b$adf426b0$ Bonjour,
Dans une zone de liste , j'aimerai lister tous les fichiers XL d'un répertoire donné.
merci d'avance
Erwan
.
.
Raymond [mvp]
Sauf que le dir ne peut pas analyser tous les sous-répertoires si besoin.
-- @+ 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
"Yann" a écrit dans le message de news:079d01c49718$acbe2bd0$ Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function
Bye Yann
Sauf que le dir ne peut pas analyser tous les sous-répertoires si besoin.
--
@+
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
"Yann" <ypelissier@yahooo.com> a écrit dans le message de
news:079d01c49718$acbe2bd0$a401280a@phx.gbl...
Salut,
Il y a un peu plus simple...
Public Function FileExistDir(strDir As String, _
strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls")
While strFile <> Empty
CurrentDb.execute "INSERT INTO [" & strTable & "]
([" & strField & "]) SELECT """ & strFile & """ ;"
strFile = Dir
WEND
End Function
Sauf que le dir ne peut pas analyser tous les sous-répertoires si besoin.
-- @+ 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
"Yann" a écrit dans le message de news:079d01c49718$acbe2bd0$ Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function
Bye Yann
Yann
Il est vrai...
-----Message d'origine----- Sauf que le dir ne peut pas analyser tous les sous- répertoires si besoin.
-- @+ 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
"Yann" a écrit dans le message de news:079d01c49718$acbe2bd0$ Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function
Bye Yann
.
Il est vrai...
-----Message d'origine-----
Sauf que le dir ne peut pas analyser tous les sous-
répertoires si besoin.
--
@+
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
"Yann" <ypelissier@yahooo.com> a écrit dans le message de
news:079d01c49718$acbe2bd0$a401280a@phx.gbl...
Salut,
Il y a un peu plus simple...
Public Function FileExistDir(strDir As String, _
strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls")
While strFile <> Empty
CurrentDb.execute "INSERT INTO [" & strTable & "]
([" & strField & "]) SELECT """ & strFile & """ ;"
strFile = Dir
WEND
End Function
-----Message d'origine----- Sauf que le dir ne peut pas analyser tous les sous- répertoires si besoin.
-- @+ 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
"Yann" a écrit dans le message de news:079d01c49718$acbe2bd0$ Salut, Il y a un peu plus simple... Public Function FileExistDir(strDir As String, _ strTable As String, strField As String)
Dim strFile As String
strFile = Dir(strDir & "*.xls") While strFile <> Empty CurrentDb.execute "INSERT INTO [" & strTable & "] ([" & strField & "]) SELECT """ & strFile & """ ;" strFile = Dir WEND End Function