Sauvegarde automatique fichier partagé

Bonjour le forum,

Je viens vers vous pour trouver une solution à un problème de sauvegarde automatique d’un fichier Excel.

Grace à un code que j’ai pu trouver grâce à Dan et où, j’ai placé un petit bout de code supplémentaire.

En fait ce fichier est partagé sur un serveur, mais les pc utilisés n’ont pas les mêmes heures. Je me retrouve donc avec plusieurs sauvegardes dans le répertoire prévu à cet effet.

Est-il possible que la macro n’enregistre qu’une copie de sauvegarde.

Merci d’avance pour votre aide.

Code :

Private Sub Workbook_Open()

Application.OnTime TimeValue("18:45:00"), "Enregistrer_Auto"

End Sub

Option Explicit

Sub Enregistrer_Auto()

'Enregistrer le fichier dans son emplacement d'origine pour que toutes les données des pc soient enregistrées avant sauvegarde

If ThisWorkbook.Saved = False Then

ThisWorkbook.Save

End If

Dim CheminCopie As String, Fichier As String

'répertoire pour la sauvegarde

CheminCopie = "\\beeucofs02\shared_data\OPERATION\Zone Dispatching\Workbook\"

'fichier enregistré sous le nom Données du ddmmaaaa.xls

Fichier = "Sauvegarde_du_ " & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & ".xlsm"

ActiveWorkbook.SaveCopyAs CheminCopie & Fichier

End Sub

Bonjour

Essaie en modifiant cette partie de code et en nommant ton fichier sans l'heure

Fichier = "Sauvegarde_du_ " & Format(Date, "ddmmyyyy") & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs CheminCopie & Fichier
Application.DisplayAlerts = True

Crdlt

Dan,

Merci pour ton aide, comme d'habitude si rapide.

Je viens de modifier et tester chez moi la modification dans le code, mais je ne saurai tester le fichier en situation réelle que lundi au boulot.

Bon week-end

Bonjour Dan,

Désolé de ne pas avoir fait le test plus tôt, mais je n'en ai pas eu l'occasion avant.

Avec ta nouvelle ligne de code, malheureusement, hier soir deux PC étaient en fichier partagé et je me suis retrouvé avec deux sauvegardes sur 2 minutes, correspondantes au décalage horaire des deux PC.

Merci de ton attention et excellente journée.

Re

Dans le code proposé, il ne doit y avoir qu'un fichier dans le répertoire car à chaque sauvegarde, le fichier précédent est écrasé et remplacé par le nouveau

Vérifie le code et surtout si tu n'as pas deux fichiers plus qu'un seul partagé

Crdlt

Bonjour Dan,

J'ai bien vérifié le code et fait le test chez moi, tout fonctionne.

Mais chez moi je n'ai pas la possibilité de faire le test en fichier partagé.

Je devrai donc refaire le test au boulot lundi.

Concernant ta dernière phrase, j'ai donc vérifier le code,

mais pour la partie "et surtout si tu n'as pas deux fichiers plus qu'un seul partagé", je ne comprends pas ce que tu veux dire par là ?

Merci encore pour ton aide.

Au plaisir de te lire et bonne journée.

re

je voulais dire "Plutôt"

Vérifie que tu travailles avec un seul fichier (en mode partagé) et non pas avec deux fichiers distincts

Crdlt

Bonjour Dan,

J'ai pu faire le test en situation réelle et effectivement cela fonctionne. Apparement un autre fichier partagé était ouvert, comme tu l'avait signalé.

Encore une fois merci pour ton aide.