Discussion :

[lio62]

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.

[SfJ5Rpw8]

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

Code :

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

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

[lio62]

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 ?

[cafeine]

Hello,

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

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

[illight]

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

[lio62]

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

merci a+

[ouskel'n'or]

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

[lio62]

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

Code :

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

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

[ouskel'n'or]

Tu le lances comment et quand ?

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

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

par

Code :

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

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

Tu dis

[SfJ5Rpw8]

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

[lio62]

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 ?

[SfJ5Rpw8]

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

Code :

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

1
2
3
4
5
6
7
8
 
 
'
' A Mettre dans ThisWorkBook
'
Private Sub Workbook_Open()
    SauveTOTO
End Sub

[lio62]

j'ai crée un module

Code :

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

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 :

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

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

[SfJ5Rpw8]

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

[lio62]

ben je l'ai écrit tel quel

[SfJ5Rpw8]

ben je l'ai écrit tel quel

quoi ...?

[lio62]

j'ai mis ce code dans le workbook

Code :

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

1
2
3
Private Sub Workbook_Open()
   Call sauvemateriel
End Sub

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

[SfJ5Rpw8]

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 !!

[ouskel'n'or]

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

[lio62]

ok ca marche merci


a+