VBA Backup CSV

[trois ptits points]

Bonjour,
Ci dessous un code qui fonctionne bien dans un module,
mais pas dans Workbook_Open () et Workbook_BeforeClose()

Option Explicit
Dim Fichier As String
Sub Back_Up_3()
Application.ScreenUpdating = False
Sheets("BD").Select
Range("Tablo_2").Copy
' Supprimer les slash de la date sinon = ERREUR
Fichier = Format(Range("A1"), "dd_mm_yyyy_hh_mm")
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Back_up\" & Fichier & "_Mon_Nom.csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub

Avez-vous une idée
Merci
@+
...

 

[MJ13]

Re : VBA Backup CSV

Bonjour,

Ouvres tu ton fichier par l'explorateur ou lances tu l'ouverture par un autre fichier. Dans ce dernier cas, workbook_open n'est pas pris en compte.

 

[trois ptits points]

Re : VBA Backup CSV

Bonsoir,
Par l'exporateur,
Mais dans BeforeSave ça plante aussi
Merci
@+
...

 

[MJ13]

Re : VBA Backup CSV

Re

Ok mais est ce que Excel plante type bug?

Sinon faire du debugage et voir où cela plante.

 

[trois ptits points]

Re : VBA Backup CSV

Bonsoir,
Je vous remercie pour l'intérêt.
L'erreur est identifiée
Je devais appeler la macro de déprotection
@+
...

 

[MJ13]

Re : VBA Backup CSV

Re
Et oui, c'est facile de planter surtout avec

ActiveWorkbook.Close False

 

[trois ptits points]

Re : VBA Backup CSV

🙂
Merci
@+
...