Discussion :

[halaster08]

Bonjour,

Je fais fichiers contenant des maccros qui sont ensuite utilisés par des utilisateurs plus ou moins compétant mais toujours créatif dès qu'il s'agit de générer des erreurs auxquelles je n'ai pas pensé.
Pour éviter que ces erreurs ne rendent le fichier inutiliable par la suite et comme le ctrl+z ne marche pas pour les maccros j'aimerais en cas d'erreur charger la dernière sauvegarde du fichier? (sachant que je le sauvegarde en début de maccro) Y a-t-il une commande pour le faire?
J'ai essayé un moyen détourné en fermant le fichier sans sauvegarde et en le réouvrant mais quand le fichier se ferme la maccro s'arrête.

Merci d'avance.

[Marc-L]

Bonjour !

Oui c'est logique …

L'astuce pourrait (note bien le conditionnel) être de rouvrir le classeur via la méthode OnTime
juste avant de fermer le classeur avec un délai de deux secondes. Par contre à toi de t'organiser pour la reprise du code …

Autre possibilité ne requérant pas la fermeture du classeur selon la taille des données est de les sauvegarder
soit en mémoire dans une variable tableau soit dans un fichier texte
soit pourquoi pas dans un classeur backup facilitant les copier / coller …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[halaster08]

Bonjour !
Oui c'est logique …

J'y croyais moyennement mais j'avais pas d'autres idée

L'astuce pourrait (note bien le conditionnel) de rouvrir le classeur via la méthode OnTime
juste avant de fermer le classeur avec un délai de deux secondes. Par contre à toi de t'organiser pour la reprise du code …

Merci. J'essayerais demain, pas de problème pour la reprise du code puisque je veux qu'il s'arrête.

[Marc-L]

Si tu ne veux rien déclencher via OnTime, il faut créer une procédure bidon sans ligne de code,
juste les lignes Sub Bidon() & End Sub.

Par contre si le classeur comporte un évènement Workbook_Open, il se lancera juste après la procédure bidon …

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:00:02"), "MaMacro"
ThisWorkbook.Close
End Sub
 
Sub MaMacro()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name
End Sub

Ca marche niquel. Tu peux enlever le conditionnel de ton post précédent

Merci beaucoup

[Kiouane]

Halaster peux-tu nous expliquer en détail le fonctionnement, c'est intéressant comme astuce.