Discussion :

[Didpa]

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

[SilkyRoad]

rebonjour

peux tu préciser ce que souhaites realiser exactement ?

as tu fait un essai en supprimant cette ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA.Count = Len(ActiveWorkbook.Name)

michel

[Didpa]

oui, mais c'est au niveau de count qui bloque.

[SilkyRoad]

rebonsoir

j'ai l'impression qu'on ne se comprend pas ...

que veux tu compter ?


tu peux tester cette adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub EnregisterUneCopieAvecDateHeureEtPrefixe()
    Dim DateDuJour As String
    Dim Prefixe As String
    Dim Extension As String
 
    Worksheets("Facture").Copy
 
    DateDuJour = Format(Date, "dd-mm-yy") & " à " & Format(Time, "h-mm")
    Prefixe = "Commande du "
    Extension = ".xls"
    ChDir "C:\GESTION\COMMANDES_CLIENTS"
 
    ActiveWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub

bonne soiree
michel