VBA Backup CSV

trois ptits points · 30 Novembre 2008

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 · 30 Novembre 2008

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 · 30 Novembre 2008

Re : VBA Backup CSV

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

MJ13 · 30 Novembre 2008

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 · 30 Novembre 2008

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 · 30 Novembre 2008

Re : VBA Backup CSV

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

Code:

ActiveWorkbook.Close False

trois ptits points · 30 Novembre 2008

Re : VBA Backup CSV

Merci
@+
...

VBA Backup CSV

trois ptits points

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

trois ptits points

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

trois ptits points

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

trois ptits points

XLDnaute Nouveau

Discussions similaires