placer des repertoire en colonne?

[sioli]

bonjour a tous

je join un fichier zip

je ne comprend pas tres bien la macro,j'aurais bien voulu placer les repertoire dans les colonnes que je veux et le fichier en desous des repertoire comme je le voudrais.

 

[sioli]

bonjour desoler mais je ne vois pas le fichier ziper? [pontfini.zip]

 

[sioli]

bonjour

je join la macro

 

[MichelXld]

bonjour Sioli

ton fichier doit etre zippé , de taille inferieure à 50 ko , sans espaces ni caracteres speciaux ( à , ç , é , è , ...etc ...) dans le nom du fichier

ci dessous un lien qui explique comment joindre un fichier

Lien supprimé


bonne journée
MichelXld

 

[SIOLI]

BONJOUR ET MERCI



JE JOIN MON FICHIER [file name=LISTE_20060403195123.zip size=25013]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/LISTE_20060403195123.zip[/file]

 

[MichelXld]

bonsoir Sioli

je ne comprend pas ta demande

j'aurais bien voulu placer les repertoire dans les colonnes que je veux et le fichier en desous des repertoire comme je le voudrais

j'ai donc interprété que tu souhaites boucler sur tous les dossiers d'un répertoire . chaque dossier (et les fichiers qu'il contient) est listé dans une colonne différente


Option Explicit
Dim c As Integer

Sub listerFichiersDansRepertoires()
Dim Dossier As String

Dossier = 'C:\\\\\\\\5428\\\\\\\\datas'

ListFilesInFolder Dossier, True
End Sub

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
Dim Fso As Object
Dim SourceFolder As Object
Dim SubFolder As Object
Dim FileItem As Object
Dim r As Integer

Set Fso = CreateObject('Scripting.FileSystemObject')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
c = c + 1
r = 1
Cells(r, c) = SourceFolder.Name

For Each FileItem In SourceFolder.Files
r = r + 1
Cells(r, c) = FileItem.Name
Next FileItem

If IncludeSubfolders Then
For Each SubFolder In SourceFolder.subfolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
End Sub



bonne soirée
MichelXld

Message édité par: michelxld, à: 03/04/2006 21:29

 

[sioli]

bonsoir et merci s'est ce que ve voulais.


super ce forum.