Re : Modifier le nom d'un fichier
Merci a tout les deux
je viens de tester et ..............
(
je ne dois pas declarer comme il faut auriez vous la gentillesse de presenter un morceau de code.
Sub Miseajourdelabase()
Dim i As Integer
Dim Wb As Workbook
Dim x As Workbook
dim anciennom
dim nouveaunom
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 '
' Ici j'aimerai non pas creer un nouveau fichier excel avec un nouveau nom mais plustot le renomer'
nouveaunom="c:\testabc.xls"
anciennom= x.Name
name anciennon as nouveaunom
x.Close 'SaveChanges:=True
End If
Next i
End With
End Sub
Merci
Ps: petite question bonus : est ce qu'il faut absolument le fullname ou on peu travailler en nom simple ?
re merci