Discussion :

[nonesofar]

Bonjour,

J'ai un code qui va extraire le nom du fichier et le chemin sur une feuille excel, le code est ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
 
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("C:\Tampon\")
i = 1
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
 
    'print file name
    Cells(i + 1, 1) = Left(objFile.Name, 9)
    'print file path
    Cells(i + 1, 2) = objFile.Path
    i = i + 1
 
Next objFile
 
End Sub

En colonne A le nom et colonne B le chemin.

Ce que je souhaite faire pour un nom de fichier, c'est avoir les chemins sur la même ligne et non pas une ligne pour chaque nom.

Comme sur la photo.


Je galère à changer le code pour arriver à mes fins, si vous avez des pistes?

Merci