Enregistrer fichier avec le nom d'une cellule [Résolu/Fermé]

Signaler
-
 Marijka -
Bonjour,

je suis en train de créer un fichier pour un reporting.
chaque fichier correspond à un mois.

je voudrais faire un bouton qui me permette d'enregistrer le fichier avec le nom de la cellule AA1 dans la feuille "REPORTING".

j'ai essayé ca mais ca ne marche pas :

Sub enregistrer()

Range("AA1").Select
Selection.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "E:\Nexans\Mission 3\Reporting\Reporting JUIN\" _
& Sheets("REPORTING").Range("AA1").Value & ".xls"

End Sub

Merci d'avance

1 réponse

en fait j'ai trouvé toute seule !!

j'ai fait une macro toute simple mais elle fonctionne donc ca me suffit...


Sub enregistrer()

ThisWorkbook.SaveAs Range("AA1")

End Sub