Re : rechercher le nom d'un fichier .txt dans un dossier et le renommer....
Je pense que ce code peut m'aider a trouver le fichier mais pas a le renommer!
Je vois po comment je pe remplacer son nom!
Sub rechfich()
With Application.FileSearch
.LookIn = "C:\"
.SearchSubFolders = False
.Filename = "emp01.txt"
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i + 1).Value = .FoundFiles(i)
Next i
End If
End With