Encore un problème, quelqu'u aurais une solution à mon problème, voici le message d'erreur

"membre de méthode ou de donnée introuvable"

Ce Code pour enregistrer une seule feuil du classeur



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub EnregisterUneCopieAvecDateHeureEtPrefixe()
Dim DateDuJour As String 'On déclare la variable que l'on nomme "Date" comme chaine de caractère
Dim Prefixe As String 'On déclare la variable que l'on nomme "Prefixe" comme chaine de caractère
Dim Extension As String 'On déclare la variable que l'on nomme "Extension" comme chaine de caractères.
 
Worksheets("Facture").Copy
 
VBA.Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4) 'Voici le format de la date (La variable "Date")jour -mois - année
DateDuJour = Format(Date, "dd-mm-yy") & " à " & Format(Time, "h-mm") 'Pour rajouter les secondes,remplacer "Format(Time, "h-mm")" Par: Format(Time, "h-mm-ss")vous pouvez remarquer que j'ai rajouté une chaine entre la date et l'heure: "à" pour que cela soit plus visuel
Prefixe = "Commande du " 'Voici le préfixe du fichier que vous pouvez personnaliser(ne pas oublier les guillemets pour les chaines de caractères)
Extension = ".xls" 'Voici l'extension du fichier (ex:.xls, .xlt ou .xla etc.)du fichier que vous pouvez personnaliser(ne pas oublier les guillemets pour les chaines de caractères)
ChDir "C:\GESTION\COMMANDES_CLIENTS" 'Là, il faut définir le chemin du dossier dans lequel vous voulez enregistrer vos factures (dans le cas présent, sur "C:\GESTION\COMMANDES_CLIENTS")
ActiveWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Heure & Extension 'Maintenant, on va enregistrer le fichier en ajoutant nos variables
 
End Sub