Sub nouv_classeur() Workbooks.Add 'ajout d'un nouveau classeur Chemin = Application.Path 'repertoire où enregistrer le classeur NomClasseur = "aa.xls" ' nom du classeur ActiveWorkbook.SaveAs (Chemin & "" & NomClasseur) ' enregistrement du classeur End Sub
Sub nouv_classeur() Workbooks.Add Chemin = Application.Path NomClasseur = "aa.xls" ActiveWorkbook.SaveAs (Chemin & NomClasseur) End Sub