Enregistrer fichier avec le nom d'une cellule

Résolu
Marijka -  
 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
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1. Marijka
     
    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
    0