Discussion :

[Didpa]

Bonjour

Voilà j'aimerais savoir si cela est possible de sauvegarder qu'une seul feuil dans un classeur(style une facture),non de la Feuil"Facture"
Merci

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

Code :

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

1
2
3
Sheets("facture").Copy
ActiveWorkbook.SaveAs "C:\maSauvegardeFacture.xls"
ActiveWorkbook.Close

bonne journée
michel

[Didpa]

Non, cela sauvegarde tout le classeur
Voilà mon code

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
 
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")
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Heure & Extension 'Maintenant, on va enregistrer le fichier en ajoutant nos variables
 
End Sub

[SfJ5Rpw8]

merci de relire le code... il ne faut pas confondre

Code :

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

1
2
 
ActiveWorkbook

et

Code :

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

ThisWorkbook

Quelle différence entre ActiveWorkbook et ThisWorkbook ?