MASSJIPE
XLDnaute Impliqué
Bonjour
Je cherche un code qui me permet d'enregistrer un classeur sous en fonction du nom de la feuille
merci
Sub Macro1()
'
' Macro1 Macro
'
'
ThisWorkbook.ActiveSheet.Copy
Range("A1").Select
ActiveSheet.Name = ActiveCell.FormulaR1C1
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Classeur2.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Je cherche un code qui me permet d'enregistrer un classeur sous en fonction du nom de la feuille
merci
Sub Macro1()
'
' Macro1 Macro
'
'
ThisWorkbook.ActiveSheet.Copy
Range("A1").Select
ActiveSheet.Name = ActiveCell.FormulaR1C1
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Classeur2.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub