Erreur 1004 enregistrement feuille Excel

Bonsoir.

J'essaie avec le code ci-dessous de copier 2 feuilles d'un classeur 1, dans un nouveau classeur 2

Sub enregistrerDevisEnXLS()

    If Range("h1").Value = "" Then MsgBox ("H1 est vide"): Exit Sub

    Application.DisplayAlerts = False
    Dim nomFichier As String

    'Worksheets("DEVIS").Copy 'pour une seule feuille
    Worksheets(Array("DEVIS", "ACCUEIL")).Copy 'pour copier plusieurs feuilles
    Worksheets("DEVIS").Activate
    nomFichier = cheminFichierDevis & Range("h1") & ".xlsm"
    MsgBox nomFichier
    ActiveWorkbook.SaveAs Filename:=nomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnable, CreateBackup:=False

    Application.DisplayAlerts = True
    ActiveWorkbook.Close

End Sub

J'ai vérifié que j'avais le bon nom de fichier (chemin d'accès + nom du fichier), mais je ne comprends pas pourquoi j'obtiens l'erreur 1004 à l'execution.

J'ai bien le nouveau classeur qui s'ouvre avec les 2 onglets copiés, mais la sauvegarde de ce dernier échoue.

Besoin de votre aide pour comprendre pourquoi.

Merci

Bonjour,

Il serait inreressant de savoir ce que vaut "cheminFichierDevis" et de verifier les droits d'ecriture sur ce dossier.

Cdlt

bonjour

J'ai changé l'extension xlsm en xlsx et ça marche....

J'ai redefini le chemin fichier : chemfich

Problème d'enregistrement sur one drive?

A tester

Cordialement

FINDRH

Sub enregistrerDevisEnXLS()

    If Range("h1").Value = "" Then MsgBox ("H1 est vide"): Exit Sub

    Application.DisplayAlerts = False

    Dim nomFichier, ChemFich As String
    ChemFich = ActiveWorkbook.Path

    nomFichier = ChemFich & Range("h1") & ".xlsx"

    'Worksheets("DEVIS").Copy 'pour une seule feuille

    Worksheets(Array("DEVIS", "ACCUEIL")).Copy 'pour copier plusieurs feuilles

    Worksheets("DEVIS").Activate

    MsgBox nomFichier

    ActiveWorkbook.SaveAs Filename:=nomFichier

    Application.DisplayAlerts = True
    ActiveWorkbook.Close

End Sub

Bonjour à tous.

Merci pour votre aide. J'ai du coup résolu le problème en remplaçant uniquement la valeur de FileFormat par son équivalent en nombre, çad 52