Discussion :

[jarault]

Bonjour,

J'ai réalisé la macro suivante:

Code :

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

1
2
3
4
5
Sub sauvegarde_horaire()
Workbooks("Stock Produits.xls").Activate
ActiveWorkbook.SaveCopyAs Filename:="K:\Fichiers Communs\Stocks\Sauvegardes\Temporaire\Stock Produits Temporaire.xls"
Application.OnTime Now + TimeValue("01:00:00"), "sauvegarde_horaire"
End Sub

Je souhaiterai pouvoir enlever le "Workbooks("Stock Produits.xls").Activate"
pour le remplacer par une macro ressemblant à ça:

Code :

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

1
2
3
4
Sub sauvegarde_horaire()
Workbook("K:\Fichiers Communs\Stocks\Stock Produits.xls").SaveCopyAs Filename:="K:\Fichiers Communs\Stocks\Sauvegardes\Temporaire\Stock Produits Temporaire.xls"
Application.OnTime Now + TimeValue("01:00:00"), "sauvegarde_horaire"
End Sub

Je but sur le début de la macro "Workbook("K:\Fichiers Communs\Stocks\Stock Produits.xls").SaveCopyAs " car la syntaxe n'est pas bonne. Cette modification me permettrait de réaliser les sauvegardes en arrière plan car avec la macro actuelle cela affiche à l'écran le classeur avant de l'enregistrer.
Merci de votre aide,
Jarault

[ouskel'n'or]

As-tu testé en mettant simplement

Code :

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

Workbooks("Stock Produits.xls").SaveCopyAs ......

Pourquoi ça ne marcherait pas ?

Par contre, je vois autre chose : Tu appelles ta macro toutes les heures ? Ou tu souhaites que la sauvegarde se fasse automatiquement toutes les heures ? Ou tu souhaites que la sauvegarde ne se fasse qu'une fois au bout d'une heure ?

[jarault]

Ou comment perdre une heure pour un simple "s". Merci Ouskel'n'or

Code :

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

1
2
3
4
Sub sauvegarde_horaire()
Workbooks("Stock Produits.xls").SaveCopyAs Filename:="K:\Fichiers Communs\Stocks\Sauvegardes\Temporaire\Stock Produits Temporaire.xls"
Application.OnTime Now + TimeValue("01:00:00"), "sauvegarde_horaire"
End Sub