Bonjour,
Je souhaiterais renommer automatiquement mon fichier ouvert (via un clic bouton) en fonction d'une cellule.
Cela fonctionne très bien avec le code :
Option Explicit
Sub enregistrer_classeur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin &...