Repertoire de sauvegarde par defaut

[Creepy]

Bonjou à tous,

Voila, j'ai un fichier XL avec des macros sur un repertoire reseau.

Je voudrais que quand les utilisateurs cliquent sur un des boutons "sauvegarder"(ou CTRL+S), par defaut le repertoire affiché ne soit pas celui du reseau, mais le "C:"

Parce que là j'en ai marre d'effacer les sauvegardes des utilisateurs qui malgré ce que je leur dit, ne sauvegardent pas sur leur C:

je pense que je dois le mettre dans le workbook_beforsave.

Merci d'avance

Creepy

 

[@+Thierry]

Bonsoir Creepy, le Forum

Oui tu peux utiliser cette évènementielle, en lançant, par exemple le code que j'ai proposé dans ce fil :

Lien supprimé


Sub SaveAsOnDeskTop()
Dim ThePath As String
Dim TheFileToSave As Variant

ThePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & ActiveWorkbook.Name

TheFileToSave = Application.GetSaveAsFilename(ThePath, "Microsoft Excel,*.xls")
If TheFileToSave = False Then Exit Sub

With Application
.DisplayAlerts = False
ActiveWorkbook.SaveAs TheFileToSave
.DisplayAlerts = True
End With
End Sub

Bonne soirée et Week End

 

[Creepy]

Merci

bonne soirée


Creepy