Changement de nom d'un classeur actif

Bonjour à toutes et à tous

Vista et excel 2003

Je voudrais savoir s'il est possible de changer le nom d'un classeur ouvert avec

une macro ou du VBA.

Merci d'avance de vos réponses

BG

Bonjour,

Oui possible, un exemple avec une macro en VBA...

Sub ChangeNom()
    Dim OldName As String, PathWB As String
    PathWB = ActiveWorkbook.Path & "\"

    If PathWB = "\" Then
        'le fichier n'est pas encore enregistré
        ActiveWorkbook.SaveAs Filename:="c:\test.xls"

    Else
        'enregistre sous le nouveau nom et supprime l'ancien
        OldName = PathWB & ActiveWorkbook.Name
        ActiveWorkbook.SaveAs Filename:=PathWB & "test.xls"
    End If
End Sub

Bonsoir et merci de tes efforts

Pour l'instant ça ne fonctionne pas, j'ai du sertainement mal m'exprimer.

https://www.excel-pratique.com/~files/doc/KARIM.zip

Ce que voudrais faire c'est :

En ayant ouvert le fichier travail.xls, je le remplis

Vient un changement de tarif

Je clique sur le bouton de ma feuille de calcul

Après avoir confirmé,

1) Le fichier en cours est sauvegardé dans le répertoire "Sauvegarde"

2)Je charge mon fichier "matrice.xls" situé dans le répertoire "Références"

3)Je ferme le fichier ouvert (travail.xls)

4)Le nouveau fichier de travail qui se nomme encore Matrice.xls doit remplacer

l'ancien "travail.xls" avec son nom et au même endroit (sans avoir modifié le fichier "Matrice.xls"

A+ et merci encore

BG

Bonjour à toutes et à tous

Problème résolu en utilsant :

Dans la feuille :

Application.run "'Classeur2'!Macro1"
Thisworkbook.close false

Dans Classeur2, afin de permettre à Classeur1 de se fermer avant de le supprimer, tu utilises

Dans un module :

Sub Macro1()
     Application.OnTime Now + TimeValue("00:00:02"), "Macro2"
end 

Sub Macro2()
     kill Chemin & "classeur1.xls"
     Application.displayalerts = false
     Thisworkbook.saveas Chemin & "classeur1.xls"
End sub

En tous cas merci à tous