Renommer tous les fichiers d'un repertoire

Bonjour,

Pourquoi Excel s'agissant de fichiers images?

Un batch fait le job, mais j'attire l'attention qu'en renumérotant à partir de 1, un dispositif de lecture va considérer que 11 est inférieur à 2, c'est pourquoi je pars de 1000 mais chacun fait ce qu'il veut.

 

@ECHO OFF

CD /D E:\mondossier
SET COUNT=1000
FOR /F "delims=" %%a in ('dir /b E:\mondossier\*.jpg') DO SET FILE=%%~na & CALL :PROCESS

:PROCESS
SET /A "COUNT=COUNT+1"
SET FILE=%FILE:~0,-1%
SET FILE=%FILE%.jpg
REN "%FILE%" "%COUNT%_%FILE%"

Bonjour Brucine,

Merci pour ta réponse.

C'est bien d'un repertoire dont il s'agit et non pas une feuille de classeur.

Pourquoi le "jpg" tout simplement parceque j'ai créé un classeur Excel qui permet de créer un diaporama automatiquement un diaporama dans un ordre bien établi.

Concernant la numérotation je suis d'accord si on commence à 1, mais ça fonction si on renomme sur trois chiffre 000.

Je regarde ta proposition et je reviens vers toi.

ordialement

Mistral

Bonjour,

Petit programme à essayer, liste ancien et nouveau nom sur la feuille 1 et renomme le fichier jpg dans son répertoire

Dans [rep] vous devez introduire votre répertoire

Sub BoucleFichiersRepertoire()
Dim oFSO As Object
Dim oDossier As Object
Dim oFichier As Object
Dim i As Integer, rep As String
rep = "D:\Jean-Pierre\Images\2020-07 - Copie" 'nom du répertoire
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDossier = oFSO.GetFolder(rep)
For Each oFichier In oDossier.Files
'ancien nom en colonne A et nouveau nom en colonne B
    Cells(i + 1, 1) = oFichier.Name
    Cells(i + 1, 2) = Format(i, "00#") & ".jp"
' renomme le fichier
    oFichier.Name = Format(i, "00#") & ".jpg"
    i = i + 1
Next oFichier
End Sub

Bonjour Le Pngou,

Mille merci pour cette macro qui fonctionne extaement comme je le souhaitais.

Cepandant deux questions:

1) Serait-il possible de récuperer le chemin du repertoire selon la valeur de la cellule A10 de l'onglet données?

2) D'utiliser une feuille spécifique "Renom_diapo" et de l'effacer justa avant de quitter la macro?

Cordialement

Mistral

Bonjour,

Oui c'est possible, toutefois un peu de patience c'est la St Nicolas chez moi.

Attention au père Fouetard ...

Bonjour,

J'ai de l'avance, voici ma proposition !

Note, personnellement je préfère garder une trace des modifications ...!

Le fichier : https://cjoint.com/c/LLdos0UnYDZ 

Je pensais que tu serais absent pour l'AM ...

J'ai cherché et j'ai trouvé mais je vais regarder ta proposition et je vais comparer ...

Je reviens vers toi au cas ou ...

Mistral

Re,

Je n'ai pas réussi à démarer ton classeur ???

Par contre je suis arrivé au résultat ci-dessous qui fonction,e parfaitementle voici :

Sub Renumerotation()

'**************************************************
'*     Renomme toutes les diapos de 000 à 999     *
'**************************************************

Dim oFSO As Object
Dim oDossier As Object
Dim oFichier As Object
Dim i As Integer, Chemin As String


' Bloquage du rafraichissement et des alarmes.
    Application.ScreenUpdating = False                  ' Bloque le rafraichissement de l'écran.
    Application.EnableEvents = False                    ' Arret de la scrutation.
    Application.DisplayAlerts = False                   ' Bloque les messages Excel.
    
' Gestion des feuilles
    Sheets("Renom_Diapo").Visible = True                'Affichage de la feuille Renom_Diapo.
    Sheets("Menu").Select                               'Sélection de la feuille Menu.
    ActiveWindow.SelectedSheets.Visible = False         'Masquage de la feuille Menu.

' Renommer toutes les photos.
    Chemin = Worksheets("Données").Range("A10").Value
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oDossier = oFSO.GetFolder(Chemin)
    For Each oFichier In oDossier.Files

' Ancien nom en colonne A et nouveau nom en colonne B
    Cells(i + 1, 1) = oFichier.Name
    Cells(i + 1, 2) = Format(i, "00#") & ".jp"
' Renomme le fichier
    oFichier.Name = Format(i, "00#") & ".jpg"
    i = i + 1
Next oFichier

' Raz feuille Renom_Diapo
    Cells.Select
    Selection.ClearContents
    Range("A1").Select

    
' Gestion des feuilles.
    Sheets("Menu").Visible = True                       'Affichage de la feuille Renom_Diapo.
    Sheets("Renom_Diapo").Select                        'Sélection de la feuille Renom_Diapo.
    ActiveWindow.SelectedSheets.Visible = False         'Masquage la feuille Renom_Diapo.

' Rétablissement du rafraichissement et des alarmes.
    Application.ScreenUpdating = True                   ' Bloque le rafraichissement de l'écran.
    Application.EnableEvents = True                     ' Arret de la scrutation.
    Application.DisplayAlerts = True                    ' Bloque les messages Excel.

    MsgBox "Tous les fichiers ont été renommé."


End Sub

Peux-tu me donner ton avis?

J(ai un autre problème avec une procedure:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Puis-je te le soummettre?

Cordialement.

Mistral

Le Pingou ne te tracasse pas pour 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

J'ai trouvé la solution.

Encore mille merci à toi pour ton aide.

Cordialement

Mistral

Bonjour 

Pourquoi n'utilisez-vous pas Ant Renamer ?

https://www.commentcamarche.net/telecharger/utilitaires/3357-ant-renamer/

La fonction Énumération devrait convenir. Regardez les autres propositions.