Discussion :

[Didpa]

Voilà, quand je clic sur le bouton enregistrer cela enregistre bien ma feuille voulu dand le classeur, mais elle reste ouverte, moi j'aimerais qu'elle se ferme et que le message, "voulez vous enregistrer les modifications" n'apparaisse pas et que par defaut la réponse soit non. voilà ce que j'ai pour le moment

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
17
18
Public Sub EnregisterUneCopieAvecDateHeureEtPrefixe()
    Dim DateDuJour As String
    Dim Prefixe As String
    Dim Extension As String
    Dim Client As String
 
    Worksheets("Facture").Copy
    Client = Vendre.TextBox_Contact.Value
    DateDuJour = VBA.Format(VBA.Date, "dd-mm-yy") & " à " & VBA.Format(VBA.Time, "h-mm")
    Prefixe = "Facture du "
    Extension = ".xls"
    ChDir "C:\GESTION\COMMANDES_CLIENTS"
 
    ActiveWorkbook.SaveCopyAs Filename:=Client & " " & Prefixe & DateDuJour & Extension
 
'Call Enregistrer_Listing 'enregistre la facture dans le listing
 
End Sub

[SfJ5Rpw8]

ben aprés ton savecopyas rajoute la ligne :

Code :

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

1
2
 
ActiveWorkbook.Saved = True 'on "fait croire" à excel que fichier sauvé

[Didpa]

Ok pour la sauvegarde, mais le dossier reste toujourrs ouvert "style dossier2" comportant une seule feuille, celle que j'ai enregistrer, moi j'aimerais qu'elle se ferme .

[SfJ5Rpw8]

ben tu le crée comment ton "dossier"... aprés l'avoir sauvé tu peu faire un close .. (activeworkbook.close..)