Bonjour tout le monde, bonjour le forum.
je gere une base d'environ 200 fichiers excels, et je souhaiterais modifier les nom de l'ensemble de nom de tout les fichiers afin de les haromniser ainsi que pour rendre plus facile les recherches.
J'utilise le code suivant, mais il me manque la partie concernant la facon de renomer un fichier .xls
Sub Miseajourdelabase()
Dim i As Integer
Dim Wb As Workbook
Dim x As Workbook
Set Wb = ActiveWorkbook
With Application.FileSearch
.NewSearch
.LookIn = Wb.Path
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> Wb.FullName Then
Set x = Workbooks.Open(.FoundFiles(i), True, , , , , , , , , , , False)
' la ma macro modifiant le fichier ouvert '
x.SaveAs "aaaaaaaaaa.xls" ' Ici j'aimerai non pas creer un nouveau fichier excel avec un nouveau nom mais plustot le renomer'
x.Close 'SaveChanges:=True
End If
Next i
End With
End Sub
Si quelqu'un connait la solution
merci d'avance.
je gere une base d'environ 200 fichiers excels, et je souhaiterais modifier les nom de l'ensemble de nom de tout les fichiers afin de les haromniser ainsi que pour rendre plus facile les recherches.
J'utilise le code suivant, mais il me manque la partie concernant la facon de renomer un fichier .xls
Sub Miseajourdelabase()
Dim i As Integer
Dim Wb As Workbook
Dim x As Workbook
Set Wb = ActiveWorkbook
With Application.FileSearch
.NewSearch
.LookIn = Wb.Path
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> Wb.FullName Then
Set x = Workbooks.Open(.FoundFiles(i), True, , , , , , , , , , , False)
' la ma macro modifiant le fichier ouvert '
x.SaveAs "aaaaaaaaaa.xls" ' Ici j'aimerai non pas creer un nouveau fichier excel avec un nouveau nom mais plustot le renomer'
x.Close 'SaveChanges:=True
End If
Next i
End With
End Sub
Si quelqu'un connait la solution
merci d'avance.