Bonjour,
j'ai un fichier Excel (source) quand ce fichier est rempli, je lance une Macro qui ouvre un autre fichier Excel(fichier Bis) et rempli ce fichier avec la mise a jour des liens.
Le problème c'est que je n'arrive pas à fermer ce fichier Bis une fois que la mise à jour des liens est faite.
Pourtant dans mon code j'ai bien mis: ActiveWorkbook. close saveChange:=False.
Voici le corps du code et merci d'avance pour vos retours:
j'ai un fichier Excel (source) quand ce fichier est rempli, je lance une Macro qui ouvre un autre fichier Excel(fichier Bis) et rempli ce fichier avec la mise a jour des liens.
Le problème c'est que je n'arrive pas à fermer ce fichier Bis une fois que la mise à jour des liens est faite.
Pourtant dans mon code j'ai bien mis: ActiveWorkbook. close saveChange:=False.
Voici le corps du code et merci d'avance pour vos retours:
VB:
Sub saveExcel()
Dim fichier As String
On Error Resume Next
ChDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel"
If Err Then MkDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel" 'pour le créer
On Error GoTo 0
Application.DisplayAlerts = False
[A1] = Now
Workbooks.Open Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\SITUATION RELAIS BIS.xlsm"
ActiveSheet.Copy
fichier = "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".xlsx"
ActiveWorkbook.SaveAs fichier
ActiveWorkbook.Close saveChanges:=False
Application.DisplayAlerts = True
End Sub