Microsoft 365 fermeture fichier excell

  • Initiateur de la discussion Initiateur de la discussion luc50*
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

luc50*

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
677
Réponses
2
Affichages
517
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
821
Retour