Macro pour listing folder

Bonjour a tous,

Il y a quelques temps, j'avais vu sur ce forum une macro permettant de lister tous les fichiers d'un ou plusieurs dossier sur base d'une macro.

Je ne retrouve plus cette macro.

L'un d'entre pourrait-il me fournir ce fichier svp??

D'avance merci

Jo

Bonjour

Exemple:

Cordialement

Bonjour,

J'ai retrouvé ce code (de "galopin01" je crois)

Sub ListeFichiers() 'liste les fichiers sans les sous-répertoires
Dim MyPath$, FName$
    MyPath = "C:\Users\claude\Maison\excel2008\Forum\" 'chemin d'accès à adapter
        'FName = Dir(MyPath & "*.PDF")
        'FName = Dir(MyPath & "*.xls")
        FName = Dir(MyPath & "*.*")
    Do While FName <> ""
        [A65536].End(xlUp)(2) = FName
        FName = Dir
    Loop
End Sub

Bonne journée

Claude

Re-salut,

Merci a vous deux.

Etant un debutant en VBA, dois-je coller le bout de code dans un marco??

Car il n'y a pas de macro enregistré dans le fichier que tu m'as fourni amadeus.. enfin selon moi...

D'avance merci

Jo

Re,

Joaquim

1) Quant tu ouvres le fichier, l'avertissement macro apparait, non? Preuve qu'il y a bien une macro.

2) Si tu réponds positivement à "Activer les Macros", l'utilisation du Bouton "Afficher le code" doit faire son travail.

preuve qu'il y a bien une macro.

3) Touches Alt+F11 (Touche Alt et touche F11) ouvre l'éditeur VBA, là, tu vois "Module1" . Tu Double-cliques dessus et le Code s'affiche,preuve qu'il y a bien une macro.

Cordialement

salut amadeus et merci pour ta réponse.

Malheureusement, je ne vois toujours pas la macro

1) pas d'avertissement macro a l'ouverture du fichier.

2) pas de réponse automatique

3) pas de macro enregistré.

Le probléme peut-il venir du fait que je suis actuellement a l'étranger chez un client qui utilise xls sous Vista???

D'avance merci pour tout les conseils qui me sont donnés sur ce forum..

Joaquim

Bonjour

Peut-être n'as-tu pas mis le niveau de sécurité des Macros sur Moyen?

Avec XP, c'est "Outils" "Macro" "Sécurité" et onglet "Niveau de sécurité"

Il doit bien y avoir l'équivalent sur ta version.

Cordialement