Enregistrement auto
Quels codes pour faire un enregistrement toutes les 30 minutes par exemple? ceci pour eviter de perdre les infos du fichier
Merci
Bonjour,
Pourquoi ne pas utiliser les option d'excel qui te permettent de faire cela. Vois dans menu/outils/options sous l'onglet Enregistrer.
A te lire
dan
je ne l'ai pas sur la version où est utilisé le fichier...
Bonjour,
Sur les anciennes versions d'Excel il me semble me rappeler qu'il fallait charger une macro complémentaire afin d'avoir cette option accessible depuis le menu
Quelle version d'Excel utilisez vous ?
Cordialement
Alain
re,
Je viens de vérifier sur excel 2003. Cette option existe bien à l'endroit que je t'ai donné.
Précise ta version d'excel comme te le fait remarquer Alain.
A bientôt
Dan
il me semble que c'est la 2000 mais je ne suis pas sur le pc concerné...
Re
Enfin, voici ce que donne l'aide d'Excel sur les méthodes évènementielles
Timer, fonction, exemple
Cet exemple utilise la fonction Timer pour mettre l'application sur pause. Cet exemple utilise également la fonction DoEvents pour donner le contrôle à d'autres processus pendant la pause.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
PauseTime = 5 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Finish = Timer ' Définit l'heure de fin.
TotalTime = Finish - Start ' Calcule la durée totale.
MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
End
End If
Adaptez le mais il faudra placer cela dans un module pour chaque classeur
Par exemple : (pensez a le lancer a l’ouverture de classeur)
Sub SauveAuto
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 1800 ' Définit la durée. (30mn*60 secondes)
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Activeworkbook.save ‘ sauvegarde
SauveAuto ‘ pour le relancer
End sub
Ce n’est pas spécialement très heureux mais cela devrait fonctionner en principe
Cordialement
Alain
j'ai fait mais je ne sais doit pas etre bon...
ci joint le fichier
https://www.excel-pratique.com/~files/doc/lLcC9Classeur1.xls
merci
Re-
Aller soyons bon
voici un exemple complet
https://www.excel-pratique.com/~files/doc/658_lLcC9Classeur1.xls
Cordialement
Alain
merci alain.
pouvez vous me la deboguer quand je clic sur annulé ou sur la croix
merci
https://www.excel-pratique.com/~files/doc/sauvegarde_auto.xls
Bonjour,
Voici un petit truc à explorer
https://www.excel-pratique.com/~files/doc/652_sauvegarde_auto.xls
Cordialement
Alain
Vous êtes vraiment rès fort!
Moi je débute, et je dois dire qu'avec toutes ces possibilités je suis un peu perdu et je m'excuse par avance si je demande toujours des choses en plus.
encore 2 petites choses pour vous alain :
1/ avoir la même chose (enregitrement auto 900 secondes) sans l'input box.
2/ un enregistrement auto mais sous un autre fichier.
c'est ça quand on est très fort !
en tout cas merci
RE
Poser simplement ces quelques lignes dans ThisWorkbook
Dans ce cas Plus besoin du bouton
Option Explicit
Private Sub Workbook_Open()
SauverClasseur 900
End Sub
Je ne comprends pas un enregistrement auto mais sous un autre fichier.
Vous voulez Sauver a partir d'un fichier un autre fichier ouvert ?
A vous lire
Alain
oui c'est bien enregistrer sous que je souhaite faire
mais je doit etre nul mon fichier non fonctionne pas pour l'enregistrement auto
https://www.excel-pratique.com/~files/doc/2hRcEClasseur1.xls
Re
Mon cher ami, le code dans ThisWorkBook ne suffit pas a lui seul
Private Sub Workbook_Open()
SauverClasseur 900 <------- tel quel il cherche
End Sub
Il faut que le classeur contienne aussi le module avec la procédure appelée
https://www.excel-pratique.com/~files/doc/599_2hRcEClasseur1.xls
Cordialement
Alain
Vraiment bien!
Et pour une enregistrement à une heure donnée ex 22h30?