Enregistrement automatique...

[emmanuel75]

Bonsoir à tous...

Quelqu'un serait-il capable de me dire si Excel est capable grâce à une macro de faire un enregistrement sous un nom spécifié ? en effet, je connais la fonction "activeworkbook.save" mais je voudrais par défaut renommer le fichier de travail sous un nom précis...et écraser le fichier existant.

Exemple: dans un même dossier, j'ai "T1" et "02 juin"...une macro travaille à partir de T1 et j'aimerais enregistrer "T1" sous le nom "02 juin"...en écrasant ce dernier par conséquent.

Merci à tous les excelnautes ayant la connaissance...

Emmanuel

 

[kjin]

Re : Enregistrement automatique...

Exemple: dans un même dossier, j'ai "T1" et "02 juin"...une macro travaille à partir de T1 et j'aimerais enregistrer "T1" sous le nom "02 juin"...en écrasant ce dernier par conséquent.

Bonsoir,
je sens qu'on est parti pour du multipostage.
Dans ton dossier (répertoire) tu as 2 classeurs : "T1" et "02juin"
Tu travailles sur le classeur "T1" et tu souhaites l'enregistrer sous "02juin", et donc écraser celui existant. Oui ?
Et le nouveau fichier s'appellera toujours "02juin" ? Oui, Non?
Si oui, utilises cette fois Activeworkbook.SaveAs en indiquant le chemin et le nom de ton classeur("02juin")

Sub enreg()
Application.DisplayAlerts = False
chemin = ActiveWorkbook.Path
fichier = "02juin.xls"
ActiveWorkbook.SaveAs (chemin & "\" & fichier)
Application.DisplayAlerts = True
End Sub

A+
kjin

J'ai ajouté la désactivation du message d'alerte

 

[emmanuel75]

Re : Enregistrement automatique...

Merci à toi kjin,
ta réponse me semble très satisfaisante...