Modif code Sauvegarde afin de fermer Classeur Sauvegardé & laisser le 1ier ouvert

[MuscatMimi]

Bonjour a tout le Forum

Bon dimance a tous

Dans le code ci-dessous, qui fonctionne bien

Sub Enregistrement()
Dim Chemin1$, Chemin2$, Client$, Fichier$, Numfact$, Jour$, Chantier$, FactN°$
Chemin1 = "F:\Factures\Factures\"
'Chemin2 = "E:\Backup\Factures\"
Jour = Format(Day(Now()), "00") & "_" & Format(Month(Now()), "00") & "_" & Year(Now)
Client = Range("G4")
Numfact = Range("H12")
Chantier = Range("H13")
FactN° = Range("H14")
Fichier = Jour & "_" & FactN° & "_" & Numfact & "_" & Chantier & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
'If Dir(Chemin2 & Client, 16) = "" Then MkDir Chemin2 & Client 'Backup
'ActiveWorkbook.SaveAs Chemin2 & Client & "\" & Fichier
End Sub

je voudrais que le classeur Sauvegardé ne rest pas ouvert

et que le Classeur principal, quand a lui reste ouvert bien sur

Merci a tous a l'avance

Cordialement

 

[Gexk5]

Re : Modif code Sauvegarde afin de fermer Classeur Sauvegardé & laisser le 1ier ouve

Re le forum
AS tu esayer de rajouter ActiveWorkbook.close pour le classeur que tu veux fermer.

@+

 

[kjin]

Re : Modif code Sauvegarde afin de fermer Classeur Sauvegardé & laisser le 1ier ouve

Bonjour,
Utilises la méthode ci-dessous

ActiveWorkbook.SaveCopyAs Chemin1 & Client & "\" & Fichier

A+
kjin

 

[MuscatMimi]

Re : Modif code Sauvegarde afin de fermer Classeur Sauvegardé & laisser le 1ier ouve

Bonjour Gexk5

Bonjour Kjin, mon voisin heureux de te croiser, et merci de ta réponse


Merci de vos réponse

Bonne fête de la musique

Cordialement