[VBA-E] enregistrement automatique d'un fichier excel

bonjour,

je voudrai qu'un fichier excel ouvert, s'enregistre automatiquement toutes les dix minutes dans un répertoire différent sans demander aucune confirmation.

..en supposant que l'on sauve toujours avec le même nom

Code:

---

1 2 3 4 5

Sub SauveTOTO() ThisWorkbook.SaveCopyAs "c:\toto.xls" Application.OnTime Now + TimeSerial(0, 10, 0), "SauveToto" End Sub

---

sinon excel fait déja tous seul voir Outils/options/Enregistrer ;)

ok merci bbil c cool pour excel je savais mais je ne voulais pas cela ta solution me convient très bien

merci
a+

bonjour, j'ai peut etre eté un peu trop vite c dans le workbook que je mets ca ?

Hello,

il semble que oui, dans le code de bbil, il y a ThisWorkbook ...

Citation:

---

Envoyé par lio62

bonjour, j'ai peut etre eté un peu trop vite c dans le workbook que je mets ca ?

---

Je pense que tu peux aussi le mettre dans un module a part, ça devrait marcher :)

bonsoir,
je l'ai placé dans le worbook mais ca ne sauvegarde pas

merci a+

Montre ton code et dis-nous comment tu l'appelles
A+

C'est le code que j'ai mis dans le worbook (celui de Bbil)

Code:

---

1 2 3 4

Sub Sauvemateriel() ThisWorkbook.SaveCopyAs "d:\materiel.xls" Application.OnTime Now + TimeSerial(0, 10, 0), "Sauvemateriel" End Sub

---

Tu le lances comment et quand ?

10 minutes, c'est long !
Pour un essai, remplace

Citation:

---

Application.OnTime Now + TimeSerial(0, 10, 0), "Sauvemateriel"

---

par

Code:

---

Application.OnTime Now + TimeSerial(0, 0, 30), "Sauvemateriel"

---

Tu dis

il faut mettre cela dans un module ....., les fonctions dans Thisworkbook ne sont pas publique...

ok
je le mets dans un module mais je le lance comment a l'ouverture du fichier et après il le fera automatiquement ou je l'execute de l'auto_open ?

oui tu le lance une fois ... puis il s'auto appelle avec le ontime :f1: !!

Code:

---

1 2 3 4 5 6 7 8

' ' A Mettre dans ThisWorkBook ' Private Sub Workbook_Open() SauveTOTO End Sub

---

j'ai crée un module

Code:

---

1 2 3 4

Sub sauvemateriel() ThisWorkbook.SaveCopyAs "d:\materiel.xls" Application.OnTime Now + TimeSerial(0, 3, 0), "Sauvemateriel" End Sub

---

j'ai mis dans le thisworkbook

Code:

---

1 2 3

Private Sub Workbook_Open() Call sauvemateriel End Sub

---

et il me plante il me dit qu'il cherche une variable ou une procedure etnon un module

je comprends ... pas tu n'as pas quand même pas donné à ton module le même nom qu'a ta procédure ..?

ben je l'ai écrit tel quel

Citation:

---

Envoyé par lio62

ben je l'ai écrit tel quel

---

quoi ...?

j'ai mis ce code dans le workbook

Code:

---

1 2 3

Private Sub Workbook_Open() Call sauvemateriel End Sub

---

et l'autre je l'ai mis dans un module sauvemateriel

Citation:

---

Envoyé par bbil

je comprends ... pas tu n'as pas quand même pas donné à ton module le même nom qu'a ta procédure ..?

---

renomme ton module mdlSauveMateriel par exemple.... , sans toucher au nom de ta procédure !!

Dans Excel 2003, c'est Sub Auto_Open(), non Sub Workbook_Open()

ok ca marche merci :lol:


a+