enregistrer classeur en fonction d'un onglet

[MASSJIPE]

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

 

[Dull]

Re : enregistrer classeur en fonction d'un onglet

Salut MASSJIPE, le Forum

Pas sur d'avoir compris mais teste le code suivant

Sub Macro1()
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.Name = Range("A1")
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\" & ActiveSheet.Name & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Bonne Journée

 

[modus57]

Re : enregistrer classeur en fonction d'un onglet

Bonjour MASSJIPE

Cela te convient ?

Dim NomClasseur As String
ActiveSheet.Name = ActiveCell.Range("A1")
NomClasseur = ActiveSheet.Name
ChDir "C:\Temp"
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & NomClasseur

 

[MASSJIPE]

Re : enregistrer classeur en fonction d'un onglet

Bonjour
Oui c'est ca mais il y a un message
Fichier joint
merci

 

[Dull]

Re : enregistrer classeur en fonction d'un onglet

Re le fil

C'est parce que tu veux enregistrer ton classeur au Format .xls (FileFormat:=xlExcel8)
tu change Excel8 par Excel12 et le tour est joué

Bonne Journée