Discussion :

[corentin_excel]

Bonjour à tous !

J'ai un petit soucis quand je renomme des groupes de fichier PDF.
J'ai un groupe de 100 fichiers pdf j'ai sélectionné + renommé.
donc je me retrouve avec mes fichiers : Pierre (1) puis Pierre (2) ..... Pierre (100).
J'aimerai pouvoir les transformer en : Pierre1 , Pierre2 , ... Pierre100
Mais je trouve pas le moyen.

Auriez-vous une idée ?


Corentin

[MarcelG]

Bonjour,

Il te faut boucler sur les fichiers du répertoire et les renommer un par un.

Tu trouveras les indications nécessaires dans la FAQ à ce sujet.

[Menhir]

Pour renommer un fichier, il faut utiliser les objets du File System, ce qui complique un peu les choses.
Si tu veux quand même passer par là, lire ça : https://docs.microsoft.com/fr-fr/off...lp/file-object

Pour rester dans les instructions simple dans une boucle utilisant Dir(), tu peux le faire en deux temps : copier le fichier avec son nouveau nom puis supprimer le fichier avec l'ancien nom.
Pour copier, instruction FileCopy : https://docs.microsoft.com/fr-fr/off...copy-statement
Pour supprimer, instruction Kill : https://docs.microsoft.com/fr-fr/off...kill-statement

Pour transformer le nom de fichier, le plus simple est d'utiliser la fonction Replace en deux temps : https://docs.microsoft.com/fr-fr/off...place-function

Code :

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

NouveauNom = Replace(Replace(AncienNom, "(", ""), ")", "")

[TonyNiort79]

Bonjour à tous
çà tombe bien je viens d'en créer un :
mettre le fichier Excel dans le répertoires des fichiers à renommer

la procédure ListingFichiers liste les fichiers sur la colonne A

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
Sub ListingFichiers()
Dim Rep As String, Fichier As String
Dim i As Integer
 
 Sheets("Feuil1").Range("A:A").ClearContents
 Rep = ThisWorkbook.Path & "\"
 Fichier = Dir(Rep)
 Do While Fichier <> "" And Fichier <> ThisWorkbook.Name
    i = i + 1
    Sheets("Feuil1").Range("A" & i) = Fichier
    Fichier = Dir
Loop
MsgBox ("Effacer les noms de fichiers non concernés") 'Enlever sur la liste les fichiers qu'on veut pas renommer
 Range("A1").Select
End Sub

puis la procédure RenommerFichierPDF va renommer les fichiers de la colonne A avec le nouveau nom en colonne B
ne pas mettre l'extension ".PDF" car c'est dans le programme
s'il y a plus de 9 fichiers, je conseille de mettre un 0 sur les noms de fichiers de 1 à 9 pour le tri suivant exemple plus bas

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
Sub RenommerFichierPDF()
Dim BoucleCopie As Integer
Dim NomFichier As String
Dim j As Integer
j = 1
Dim CompteurFichiers As Integer
 
Dim AncienNom As String, NouveauNom As String
CompteurFichiers = Application.WorksheetFunction.CountA(Sheets("Feuil1").Range("A:A"))
For BoucleCopie = 1 To CompteurFichiers
 
AncienNom = ThisWorkbook.Path & "\" & Sheets("Feuil1").Range("A" & j)
NouveauNom = ThisWorkbook.Path & "\" & Sheets("Feuil1").Range("B" & j) & ".PDF"
Name AncienNom As NouveauNom
j = j + 1
Next
End Sub