Microsoft 365 fermeture fichier excell

[luc50*]

Bonjour je cherche un code pour fermer le fichier excel que je crée en lançant l’enregistrement tout en gardant ouvert le fichier d'origine ci joint mon code
d'avance merci


Sub Enregistrer2()
Dim extension As String
Dim chemin As String
Dim nomfichier As String


With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ' Clic sur Ok
chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With


nomfichier = Format(Date, "dd-mmm-yyyy") & (" ") & Range("R69") & (" ") & ("AT") & (" ") & Range("P7") & Range("R7")


wk1 = ThisWorkbook.FullName
ActiveWorkbook.SaveAs Filename:=chemin & "\" & nomfichier, FileFormat:=52, CreateBackup:=False
Workbooks.Open Filename:=wk1

End Sub

 

[mapomme]

Bonjour @luc50*,

Pas trop clair. A tout hasard, essayez la méthode : SaveCopyAs

 

[Hasco]

Bonjour,

Sans doute qu'en utilisant .SaveCopyAs au lieu de .SaveAs vous y arriveriez.

Cordialement

[Edit] Hello @mapomme