Bonjour à tous

J'aimerai savoir s'il est possible, sans faire "SaveAs" de renommer un deuxième fichier que l'on vient d'ouvrir. Mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub TEST()
For Each classeur In Workbooks
If classeur.Name <> "test renum classeur.xls" Then
Windows(classeur.Name).Activate
classeur.Name = "toto.xls"
ActiveWorkbook.SaveAs Filename:="toto.xls"
End If
Next
End Sub
ne fonctionne pas.
Merci de votre aide