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

Marijka - 21 juil. 2009 à 15:07 - Dernière réponse :  Marijka
- 21 juil. 2009 à 15:36
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
Afficher la suite 

1 réponse

0
Utile
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