fonction VBA

désolé
j'ai oublié le bonjour

merci de le rappeler


"lafamillepenin" <lafamillepenin@cegetel.net> a écrit dans le message de
news: %23WWI73rWHHA.5068@TK2MSFTNGP03.phx.gbl...

je cherche l'équivalent de la fonction "fichiers" qui existe en macros
excel 4.

elle permet d'obtenir la liste des fichiers présents ds un rep donné
exemple en macros xl4:
=fichiers("c:mes documents")

*Bonjour lafamillepenin*,

f = Dir("c:mes documents*.xls")
While f <> ""
...
...
f = Dir
Wend

je cherche l'équivalent de la fonction "fichiers" qui existe en macros excel
4.

elle permet d'obtenir la liste des fichiers présents ds un rep donné
exemple en macros xl4:
=fichiers("c:mes documents")

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,

Sélectionner B2:B10
=listefichiers()
Valider avec Maj+Ctrl+entrée

Function ListeFichiers(Optional repertoire)
Application.Volatile
Dim temp()
If IsMissing(repertoire) Then repertoire = ThisWorkbook.Path
'CurDir()
nf = Dir(repertoire & "" & "*.*") ' premier
n = 0
Do While nf <> ""
ReDim Preserve temp(n)
temp(n) = nf
n = n + 1
nf = Dir ' suivant
Loop
ListeFichiers = Application.Transpose(temp)
End Function

http://boisgontierj.free.fr/fichiers/Fichier/Fonction_Fichiers.xls

JB

On 27 fév, 23:23, "lafamillepenin" <lafamillepe...@cegetel.net> wrote:

je cherche l'équivalent de la fonction "fichiers" qui existe en macros excel
4.

elle permet d'obtenir la liste des fichiers présents ds un rep donné
exemple en macros xl4:
=fichiers("c:mes documents")