Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

[Résolu] faire une liste de fichiers dans Excel

 

jesciol
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

[Résolu] faire une liste de fichiers dans Excel

Prévenir les modérateurs en cas d'abus 
elmagicos
elmagicos
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 19/11/2011 à 14:45:32  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

 Je cherche à pouvoir récupérer tous les noms des fichiers d'un répertoire pour en faire une liste dans Excel. Quelqu'un a-t-il déjà cherché ce type macro ou autre ?

 Merci d'avance à tous les contributeurs  :hello:


---------------
Cordialement Elmagicos
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 19/11/2011 à 17:09:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

 pour m'éviter de te faire une macro,
 voici des liens pour récupérer des macros à adapter et à tester:

 http://forum.hardware.fr/hfr/P [...] 3057_1.htm

 http://www.cfo-news.com/Monsie [...] _a296.html

 http://www.generation-nt.com/r [...] 71061.html

 http://forum.excel-pratique.co [...] t2760.html

 http://www.excel-downloads.com [...] ligne.html

 http://www.commentcamarche.net [...] teristique

 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
elmagicos
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 20/11/2011 à 21:28:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Grand merci willyplaisir, Je vais regarder tout ça même si je ne suis pas doué en VBA.


---------------
Cordialement Elmagicos
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2011 à 10:22:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

 On apprend beaucoup soi-même en s'inspirant des autres.

 Touches ALT+F11 pour lancer l'éditeur d'Excel

 tu insères un module
 tu copieras les lignes de la macro choisie
 tu l'adaptes à ton cas, nom de dossier...types de fichiers "*.xls"  ou "*.exe"... ou tous les types de fichiers "*.*"

 pour démarrer la macro pas à pas  :touche F8 bien pratique pour trouver des erreurs de syntaxe ou bug.

 sinon
 pour lancer toute la macro :touche F5

 ensuite tu te crées un bouton sur ta feuille en sélectionnant ta macro.
 puis tu fais un essai.

 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
elmagicos
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 21/11/2011 à 21:58:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci, merci et encore willyplaisir,

 Pour tes encouragements et les éléments de solution que tu m'as apporté. Pour finir, j'ai trouvé mon bonheur avec le code suivant (que j'ai compris et ce n'est pas peu dire pour mon niveau)

 Sub ListeFichiers2()
 repertoire = "CheminDeMonRepertoire" ' adapter
 i = 2
 nf = Dir(repertoire & "\*.*" ) ' premier fichier
 Do While nf <> ""
 Cells(i, 1) = nf
 nf = Dir ' suivant
 i = i + 1
 Loop
 End Sub


---------------
Cordialement Elmagicos
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2011 à 23:31:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bravo! :super:

 tu t'es bien débrouillé.
 bienvenue dans VBA Excel.

 ensuite tu pourras encore améliorer la macro en sélectionnant un autre répertoire

 en ajoutant des commandes comme:
 dim repertoire as string
 repertoire = InputBox("Entrez le chemin du dossier contenant les fichiers" )
 fichier = Dir(repertoire & "*.*" )
 ChDir repertoire
 Workbooks.Open Filename:=fichier


 ta macro devient:

 Sub ListeFichiers()

 dim repertoire as string
 repertoire = InputBox("Entrez le chemin du dossier contenant les fichiers" )

 i = 2
 nf = Dir(repertoire & "\*.*" ) ' premier fichier

 Do While nf <> ""
 Cells(i, 1) = nf
 nf = Dir ' suivant
 i = i + 1
 Loop

 End Sub

 :jap:





---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
Besoin d'aide : programmation VBA sur Excel probleme mon pc ne lit pas ma carte sd (résolu)
Fichiers .wma en .mp3 RESOLU Acces au disque dur refusé
Problème installation DirectX [Résolu] pc redemarre tout seul [resolu]
netvibes et google [Résolu]  
Plus de sujets relatifs à : [Résolu] faire une liste de fichiers dans Excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Webspell et le theme EvilGame 0
le template de blogger 0
le template de bloggeur bizzare! 1
choisir le coté de la boite des ombres a mettre 1
blocs transparent? 1