enregistrer classeur en fonction d'un onglet

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
 

Dull

XLDnaute Barbatruc
Re : enregistrer classeur en fonction d'un onglet

Salut MASSJIPE, le Forum

Pas sur d'avoir compris mais teste le code suivant

Code:
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

XLDnaute Occasionnel
Re : enregistrer classeur en fonction d'un onglet

Bonjour MASSJIPE

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

MASSJIPE

XLDnaute Impliqué
Re : enregistrer classeur en fonction d'un onglet

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

Pièces jointes

  • Sans titre.jpg
    Sans titre.jpg
    58.3 KB · Affichages: 32
  • Sans titre.jpg
    Sans titre.jpg
    58.3 KB · Affichages: 34
  • Sans titre.jpg
    Sans titre.jpg
    58.3 KB · Affichages: 34
  • Classeur1.xlsm
    14 KB · Affichages: 27
  • Classeur1.xlsm
    14 KB · Affichages: 47
  • Classeur1.xlsm
    14 KB · Affichages: 42

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon