Enregistrer au même emplacement

Bonjour à tous,
Excel 2000

J'ai créé un document Excel pour plusieurs utilisateurs. Mon problème est
une fois sur deux lorsqu'un utilisateur enregistre, l'emplacement du
document est modifié. Il faut alors faire une recherche pour trouver la
dernière version du document enregistré. Par défaut, lorsqu'un utilisateur
clique sur le bouton Enregistrer, le document devrait s'enregistrer vers le
dossier désiré (emplacement d'origine). À la fermeture du classeur, le
bouton Enregistrer reprendrait sa fonction normale.


Merci
Christine

Bonsoir,

Pas sur d'avoir tout compris sur le chemin qui bouge mais qui doit
rester fixe ...

Non testé, travailler avec les précautions d'usage !

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = True
chemin = "D:Test"
Application.EnableEvents = False
fil = ThisWorkbook.Name
tout = chemin & fil
If Dir(tout) <> "" Then Kill (tout)
ThisWorkbook.SaveAs chemin & fil
Application.EnableEvents = True
End Sub

Pour éviter les problèmes, placer également :

Private Sub Workbook_Open()
Application.EnableEvents = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = True
End Sub

@+
FxM