Salut à tous, salut JNP
J'ai donc installé la macro qui fonctionne (dans ThisWorkbook), le problème c'est qu'on ne peut pas la rectifiée lorsqu'elle a fonctionné, et qu'on ne peut plus ouvrir aucun classeur excel tant que celui où est installé la macro est ouvert.
Autre macro avec le même problème ci-dessous dans laquelle on enregistre que le dernier classeur ce qui ne change pas le nom du classeur.
Private Sub Workbook_Open()
debut:
Start = Timer
intervalle = 10
Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop
ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
Private Sub Workbook_Open()
debut:
Start = Timer
intervalle = 10
Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop
ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
Voilà j'espère avoit été assez clair.
Et merci encore
Bob
J'ai donc installé la macro qui fonctionne (dans ThisWorkbook), le problème c'est qu'on ne peut pas la rectifiée lorsqu'elle a fonctionné, et qu'on ne peut plus ouvrir aucun classeur excel tant que celui où est installé la macro est ouvert.
Autre macro avec le même problème ci-dessous dans laquelle on enregistre que le dernier classeur ce qui ne change pas le nom du classeur.
Private Sub Workbook_Open()
debut:
Start = Timer
intervalle = 10
Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop
ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
Private Sub Workbook_Open()
debut:
Start = Timer
intervalle = 10
Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop
ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False
Voilà j'espère avoit été assez clair.
Et merci encore
Bob