Renommer plusieurs classeurs d'un même dossier en fonction d'une cellule

Bonjour le forum,

J'espère que vous allez bien!

Je viens vers vous si vous savez comment renommer les classeurs d'un dossier en fonction de leurs cellule respective D1

et ne prendre que la date de cette cellule pour renommer le classeur.

Ci-joint l'exemple

Merci d'avance

K.

Hello,

comme ceci :

Public Sub RenomeFichier()

    Dim dossier As String
    Dim datefichier As String

    dossier = "C:\Users\Jean\Desktop\test\"
    Nom_Fichier = Dir(dossier & "*.xlsx")
    While Nom_Fichier <> ""
        Workbooks.Open dossier & Nom_Fichier
        datefichier = Replace(Right(ActiveWorkbook.Sheets(1).Range("d1"), 10), "/", "_")
        ActiveWorkbook.Close False
        Name dossier & Nom_Fichier As dossier & datefichier & ".xlsx"
        Nom_Fichier = Dir
    Wend

End Sub

Salut ,

merci de ta réponse.

je bug peut être mais quand je lance la macro rien ne se passe pourtant avec le bon chemin de dossier.

Hello,

J'ouvre chaque fichier en "xlsx" du dossier puis je recupere la date dans la cellule D1 de la première feuille du fichier.

il faut verifier si c'est bien la bonne regle.

Salut Rag02700,

Encore merci

Je n'arrive toujours pas à renommer les fichiers.

Pourrais-t-on à la place renommer les classeurs au format "yyyy-mm-dd" , en fonction de leur date en cellule C9 respective.

Je joins 2 exemples fichiers type.

Encore merci pour le temps que vous passerai à m'aider.

Au plaisir de vous lire.

K.

Hello,

a tester :

Public Sub RenomeFichier()

    Dim dossier As String
    Dim datefichier As String

    dossier = "C:\Users\Jean\Desktop\test\"
    Nom_Fichier = Dir(dossier & "*.xlsx")
    While Nom_Fichier <> ""
        Workbooks.Open dossier & Nom_Fichier
        datefichier = format(ActiveWorkbook.Sheets(1).Range("c9").value, "yyyy-mm-dd")
        ActiveWorkbook.Close False
        Name dossier & Nom_Fichier As dossier & datefichier & ".xlsx"
        Nom_Fichier = Dir
    Wend

End Sub

Bonjour Rag02700,

Ça fonctionne parfaitement encore merci.

Amicalement