Exporter une feuille excel avec module Vba

[gbstyle]

Bonjour, je cherche a réaliser la copie d'une feuille sur un nouveau classeur "pas ouvert" sous format vba
Je vous joint une ébauche mais ca ne fonctionne pas si quelqu'un a une petite astuce je suis preneur

Sub enregistrement()

    Dim ChDir As String
    Dim NomFichier As String
    Dim NomCompletFichier As String 
    Dim Jour As String
    Dim HeureExport As String
   
   
   
    'ChDir = Application.ActiveWorkbook.Path 'Chemin courant
    ChDir = Application.ActiveWorkbook.Path & "F:\A\b\c\d\Exportation\Suivis_Facturation" 'Chemin courant
    'pour le nom du nouveau fichier
    Sheets("Suivis_Facturation").Visible = -1
    Sheets("Suivis_Facturation").Select
   
    Jour = Range("a2").Value
    Jour = Format(Date, "yyyymmdd") '"ddmmyyyy"
  
   
 
    NomFichier = Suivis_Facturation & "   le " & Jour & "  "
     stHeureExport = Format(Now, "ddmmyyhhmmss")
 
    NomCompletFichier = ChDir & "\" & NomFichier & "  à " & HeureExport

    'Copie de la feuille  dans un nouveau classeur et enregistrement DANS LE DOSSIER COURANT
    Sheets("Suivis_Facturation").Select
    ActiveSheet.Copy
    'Sheets("Database").Visible = 2
    ActiveWorkbook.SaveAs Filename:=NomCompletFichier
    ActiveWorkbook.Close

End Sub

 

[Dranreb]

Bonjour.
Évitez déjà de donner à une variable le nom d'une procédure VBA, en l'occurrence ChDir qui définit le dossier courant comme étant celui désigné par le chemin spécifié en paramètre.

Remarque: le dossier courant est celui appliqué aux références de fichiers où il n'y en est pas précisé un différent.