Enregistrement

[eutrophisation]

Bonjour

Veuillez bien me completer le code ci joint qui a pour objectif d'enregistrer mon fichier dans son dossier et en meme temps dans le disque local (D) et dès son ouverture le fichier s'ouvre sur la feuille (menu) puisque mon fichier est constitué de plusieurs feuilles.
Ma preéoccupation est de garder les fonctions ci dessus et les completer aussi pour que le fichier s'enregistre automatiquement toutes les 5 minutes dans son dossier et remplacer le fichier au niveau du disque local (D).

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'** < GénérerSauvegarde >
Dim Nom As String, HoroDate As String, SauveSous As String
Dim Chemin As String

'Va chercher dans la feuille réglage le chemin de sauvegarde
Chemin = "d:\"
On Error GoTo sort
'Récupére le nom de la sauvegarde en C1 et enlève .xls si présent
Nom = Mid(ActiveWorkbook.Name, 1, InStr(1, ActiveWorkbook.Name & ".", ".") - 1)

'Assemblage final du chemin + nomFichier + utilisateur + ".xls"
SauveSous = Chemin & Nom & "_" & Environ("USERNAME") & ".xls"
'Suppression du fichier précédent
If Dir(Chemin & Nom & "*.xls") <> "" Then Kill Chemin & Nom & "*.xls"
'Génération de la copie de sauvegarde
Workbooks(ActiveWorkbook.Name).SaveCopyAs Filename:=SauveSous
sort:
End Sub

Private Sub Workbook_Open()
'Prise de main à l'ouverture du fichier
Worksheets("Menu").Activate
End Sub

Merci de votre précieuse collaboration.