Macro de sauvegarde ne fonctionne pas en partage

Bonjour le forum,

J'ai un problème avec une macro créée pour sauvegarder automatiquement le fichier à sa fermeture.

Le fichier est partagé sur un réseau et la sauvegarde marche très bien quand je quitte le fichier sur mon ordinateur... mais ne sauvegarde rien du tout lorsque le fichier est quitté sur un autre ordinateur du réseau.

Voilà la macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Chemin As String, Fichier As String

Chemin = "F:\ECHANGE\DISPATCH FEUILLE DE POINTAGE\Sauvegardes\"

'Ajoute la date du jour et l'heure dans le nom du fichier

Fichier = "TOP 2 ROUES POINTAGE_" & Format(Date, "yyyymmdd") & ".xlsm"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub

Merci de votre aide !

Bonjour,

Le problème pourrait venir du lecteur réseau F qui est peut-être propre à votre ordinateur. Il vaudrait mieux dans ce cas utiliser le chemin réseau d'origine : "\\Serveur\Répertoire\ECHANGE\DISPATCH FEUILLE DE POINTAGE\Sauvegardes\"

C'était exactement ça !

Merci mille fois

Bonjour,

J'ai testé cette macro, mais à la fermeture de mon fichier ce dernier ne se sauvegarde pas automatiquement, même en local.

Par contre à sa fermeture il me demande si je veux quitter sans sauvegarder ou non.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Fichier As String

Chemin = "C:\Users\...\Brief"
Fichier = "Brief_" & Format(Date, "yyyymmdd") & ".xlsx"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub

Y-a-t-il une astuce particluière ou quelque chose que j'ai mal fait?

Merci d'avance,

Max

Bonjour,

Essayer ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Chemin As String, Fichier As String, ShApp As Object

    Chemin = Environ("userprofile") & "\Brief\"
    Fichier = "Brief_" & Format(Date, "yyyymmdd") & ".xlsx"

    ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub