watashi La démotivation : JAMAIS ! | Bonjour Alain et tout d'abord merci pour ta réponse.
Le code corrigé que tu as indiqué ci-dessus continu à définir tout répertoire comme vide. Ne me manquerait-il pas une référence quelconque pour utiliser ce code ? J'en ai une bonne quantité d'activé mais a priori pas celui qui serait nécessaire.
Si quelqu'un a une idée !...
Toutefois, J'ai quand même réussi à bidouiller un petit truc ce week-end, grâce à des codes trouvé sur un autre forum. Ca marche même si c'est pas du très "propre" et beaucoup plus compliqué surtout. Je donne mon code pour ceux qui pourraient être interessés, permet d'établir la liste des fichier dans un répertoire (1 colone chemin, 1 colonne nom du fichier) :
Code :
- Option Explicit
- Public FSOSource As Object, DSource As Object, FDSou As Object, FDSous As Object
- Public NDSource As String
- Public SH As Worksheet
- _________________________________
- Function Dsou(Racine, Optional SelType As Byte = 0)
- Dim objShell, objFolder, Chemin, SecuriteSlash
- Set objShell = CreateObject("Shell.Application" )
- Set objFolder = objShell.BrowseForFolder(&H0&, "Choisissez un dossier :", &H1&, Racine)
- On Error Resume Next
- Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
- If objFolder.Title = "Bureau" Then
- Chemin = "C:\Windows\Bureau"
- End If
- If objFolder.Title = "" Then
- Chemin = ""
- End If
- SecuriteSlash = InStr(objFolder.Title, ":" )
- If SecuriteSlash > 0 Then
- Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
- End If
- Dsou = Chemin
- End Function
- ___________________________________________
- Sub traduire1()
- Dim i As Integer, j As Integer
- Dim ArrFSO, Entête
- 'faire selectioner le dossier source
- Set FSOSource = CreateObject("Scripting.FileSystemObject" )
- NDSource = Dsou("" )
- If NDSource = "" Then MsgBox ("Aucun répertoire sélectioné !" ): UserForm01.Show: Exit Sub
- Set DSource = FSOSource.GetFolder(NDSource)
- Set FDSous = DSource.Files
- If FDSous.Count <> 0 Then
- Set SH = Sheets("Fichiers" )
- 'montrer la feuille fichier
- SH.Visible = True
- Entête = Array("chemin", "Nom" )
- SH.Range("A1:F1" ).Value = Entête
- i = 1
- For Each FDSou In FDSous
- i = i + 1
- With FDSou
- ArrFSO = Array(.ParentFolder & "\", .Name)
- End With
- SH.Cells(i, 1). _
- Resize(1, UBound(ArrFSO) - LBound(ArrFSO) + 1).Value = ArrFSO
- Next
- Else: MsgBox ("Aucun fichier trouvé !" )
- End If
- SH.UsedRange.EntireColumn.AutoFit
- End Sub
|
Ensuite je fais un test sur le nom des fichiers pour être sure de ne prendre que ceux qui m'interessent.
---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
|