Discussion :

[babybell]

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

[Krovax]

Bonjour
Il me semble que non, il faudrait chercher la discutions a ce sujet. Le nom d'un fichier est le nom avec le quelle il est enregistré.
Quand tu viens de l'ouvrir il a un nom générique et pour le renommer il faut l'enregistrer.
Si tu veux tu peux l'enregistrer dans le dossier des fichier temporaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Environ("TEMP") & "\" & "toto.xls"

[babybell]

Merci Krovax de ta réponse.Je m'en doutais un peu. Tant pis pour moi.