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
Je vous joint une ébauche mais ca ne fonctionne pas si quelqu'un a une petite astuce je suis preneur
VB:
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