Re : Créer un classeur avec la copie d'une feuille d'un autre classeur
RE
Cela deviendrait
Dim MonPath As String
MonPath = ActiveWorkbook.Path
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
MonPath & "\toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
|