Quelles sont les instructions VBA

qui me permettraient d'aller dans un sous répertoire afin d'acquerrir le nom d'un fichier puis le renommer. Je doit aller lire les noms du fichier (exemple IERRE_HENRI.JPG pour le convertir en Henri.Pierre.jpg) et les convertir. Merci à tous ceux qui pourraient m'aider

[s=co-00f][/s] et bienvenu sur le forum,

Merci pour ton accueil. J'ai découvert ce site par un moteur de recherche et je le trouve super.

J'attends impatiemment une réponse à mon problème et suis prêt à les "Excel"ent "Excel"istes.

Amicalement

Rantampla33

BONJOUR aussi Rantanplan, Salut Raja

Un exemple de code, à utiliser sur des fichiers strictement identiques à ceux de ton exemple, vu qu'il n'y a pas de gestion d'erreur

Penses à renommer la variable DIR, pour indiquer le répertoire que tu veux parcourir

Sub Renomme()
Dim Chemin As String, Fichier As String, Nom As String, Prenom As String, Extension As String, Dir As String
Dim Position1 As Integer, Position2 As Integer

Dir = "C:\test" 'A modifier pour indiquer le répertoire à balayer

With Application.FileSearch
    .LookIn = Dir
    .Filename = "*.*"
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Chemin = .FoundFiles(i)
            Fichier = Right(Chemin, Len(Chemin) - InStrRev(Chemin, "\", -1, 1))
            Position1 = InStr(1, Fichier, "_")
            Position2 = InStr(1, Fichier, ".")
            Prenom = Left(Fichier, Position1 - 1)
            Nom = Mid(Fichier, Position1 + 1, Position2 - Position1 - 1)
            Extension = Right(Fichier, Len(Fichier) - Position2 + 1)
            Name Chemin As Dir & "\" & Nom & "." & Prenom & Extension
        Next i
    Else
        MsgBox "Aucun fichier trouvé"
    End If
End With
End Sub

Je viens de recevoir ta solution et je vais de ce pas ma tester.

Merci beaucoup car tu m'enlève une grosse épine du pied.

bonne journée.

Rantamplan33