Je cherche à créer une macro capable de copier une feuille nommée 13.03.05 (valeur d'une cellule de mon onglet de base) dans un nouveau fichier aussi nommé 13.03.05, dans le dossier C:\\DIVERS.
Merci d'avance à tous
Manu [file name=File_01.zip size=2212]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/File_01.zip[/file]
Sub copieFeuille()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:='C:\\DIVERS\\' & Format(Range('C8'), 'DD.MM.YY') & '.xls'
ActiveSheet.Name = Format(Range('C8'), 'DD.MM.YY')
'fermer le nouveau classeur
ActiveWorkbook.Close True
End Sub