Enregistrer un classeur en Excel (xlsx)

sub save_as_excel()

nom =range("A1").value

je veux enregistrer seulement le classeur "Feuil1") renommer selon la variable "nom" en format excel dans le dossier suivant

"C:\Users\dossier \sous-dossier\Comptabilité\" & nom

end sub

J'utilise Microsoft excel 2010

J'ai un message d'erreur avec

nom = Range("a1").Value

ChDir "C:\Users\dossier\sous-dossier\Comptabilité\"

ActiveSheet.SaveAs FileFormat:=xlExcel12 = 50, Filename:= _

"C:\Users\dossier \sous-dossier\Comptabilité\" & nom, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False

Merci de m'aider

Bonjour PierFran,

Normal avec

 FileFormat:=xlExcel12 = 50,

C'est ou XlExcel12 ou 50

A+

Bonjour le fil, bonjour le forum,

Peut-être comme ça (51 = classeur par défaut) :

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim NC As Workbook 'déclare la variable NC (Nouveau Classeur)
Dim N As String 'déclare la variable N (Nom)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)

Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.Worksheets(1) 'définit la onglet source CS
N = OS.Range("A1").Value 'définit le non N
CA = "C:\Users\dossier\sous-dossier\Comptabilité\" 'définit le chemin d'accès CA
CS.Worksheets(1).Copy 'copie l'onglet 1 dans un nouveau classeur
Set NC = ActiveWorkbook 'définit le nouveau classeur NC
NC.SaveAs CA & N, 51 'enregistre sous le nouveau classeur dans le dossier ayant CA comme chemin d'accès avec le nom N
'NC.Close False 'ferme le nouveau Classeur (facultatif)
'CS.Close False 'ferme le Classeur source (facultatif)
End Sub

Bonjour

J'ai corrigé mais j'ai toujours un code d'erreur.

Merci pour votre réponse

Bonjour,
Une autre proposition.
Cdlt.

Public Sub SaveWorksheet()
Dim sFolderPath As String, sFile As String
    sFolderPath = "C:\Users\dossier\sous-dossier\Comptabilité\"
    With ActiveSheet
        sFile = .Range("A1").Value & ".xlsb"
        .SaveAs Filename:=sFolderPath & sFile, FileFormat:=50
    End With
End Sub

Note : pour un xlsx
Modifier l'extension du fichier xlsb en xlsx
Modifier la valeur Fileformat 50 en 51.

Bonjour

La solution est bonne

Merci à tous

Re,
Merci de retour.