Bonjour,
J'ai réalisé la macro suivante:
Je souhaiterai pouvoir enlever le "Workbooks("Stock Produits.xls").Activate"
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
pour le remplacer par une macro ressemblant à ça:
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.
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
Merci de votre aide,
Jarault
Partager