Discussion :

[jybtiti]

Bonjour,

je souhaite modifier les noms des fichiers contenus dans un même dossier en leur ajoutant une série de caractères identiques.
ex : b6539_lhr.jpg et b5879_cdg.jpg à modifier en b6539_lhr_a380.jpg et b5879_cdg_a380.jpg

*******************************************************
je récupère les noms des fichiers dans un fichier excel avec la macro suivante :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub liste()
'mettre le bon nom de dossier
ListFilesInFolder "C:\Temp\", True
End Sub
 
Sub ListFilesInFolder1(SourceFolderName As String, IncludeSubfolders As Boolean)
'auteur: scubajon
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
Dim FSO
Dim SourceFolder
Dim SubFolder
Dim FileItem
Dim r As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    r = Range("A65536").End(xlUp).Row + 1
    For Each FileItem In SourceFolder.Files
        ' display file properties
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.DateCreated
        Cells(r, 4).Formula = FileItem.DateLastModified
        r = r + 1 ' next row number
    Next FileItem
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If
    Columns("A:G").ColumnWidth = 17
    Columns("H:I").AutoFit
    Columns("J:L").ColumnWidth = 17
    Columns("M:P").ColumnWidth = 17
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    ActiveWorkbook.Saved = True
End Sub

*******************************************************

que dois je rajouter dans ma macro pour que celà fonctionne ?

merci d'avance pour votre aide

JY

[PPz78]

Mais quel est le problème exactement?
A quel endroit cela plante ?
Quels sont les messages d'erreur?

J'ai l'impression que ta macro ne fait que lister les éléments contenus dans le répertoire.

A+
PPz