Skip to main content

Codes : Script de renommage de fichiers et script de réorganisation des dossiers

Feedback Archifiltre

Bonjour,

Un script de suppression est disponible à l'export d'Archifiltre. Deux autres scripts sont mentionnés sur le wiki :

  • Un script de renommage de masse :

  • Un script de réorganisation de masse :

Auriez-vous, s'il vous plait, les lignes de codes de ces scripts ?

Bien à vous,

Ulysse LADEVIE

Posted by Ladevie Ulysse ·
1 comment

Log in to comment and vote

Comments1

  • Loracahur010203

    •

    Jun 18, 2024

    Bonjour,

    Voici une formule VBA
Nommage des fichiers en masse avec excel

1) ouvrir excel
2) nouvelle requête
3) a partir d'un ficihier
4) a partir d'un dossier
5) garder colonne "name" et la renomer "Originale filename"
6) créer nouvelle colonne et la nommer "New filename" copier dans cette colonne les nouveaux noms des fichiers avec leurs extenssion (pdf, jpeg)
7) alt F11
8) coller cette formule vba

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

9) alt F5