Share Workbook + Enregistrement journalier sous VBA

Bonjour à toutes et à tous,

J'ai un soucis avec la fonction share workbook sur excel. J'ai un fichier que plusieurs personnes doivent modifier et ouvrir en même temps.

De plus, j'aimerais que ce fichier s'enregistre avec un nom portant la date du jour. J'ai réussi à écrire le code VBA pour enregistrer le fichier sous la date du jour. Cependant, lorsque deux utilisateurs travaillent en même temps sur le fichier la macro ne fonctionne pas et la fonction share workbook ne fonctionne pas, il n'y que la dernière version du fichier qui s'enregistre.

Que faut-il faire afin que le fichier s'enregistre de manière journalière et que la fonction shareworkbook soit conservée ?

D'avance merci,

Gaultier

Voici mon code VBA pour l'enregistrement journalier en pièce-jointe :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call SaveRoutine

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Call SaveRoutine

End Sub

Sub SaveRoutine()

'

' SaveRoutine Macro

'

'

If Len(Dir("G:\Rapport__ " & Year(Date), vbDirectory)) = 0 Then

MkDir "G:\Rapport__ " & Year(Date)

MsgBox ("Folder annuel créé")

End If

' Check for month folder and create if needed

If Len(Dir("G:\Rapport__ " & Year(Date) & "\" & MonthName(Month(Date), False), vbDirectory)) = 0 Then

MkDir "G:\Rapport__ " & Year(Date) & "\" & MonthName(Month(Date), False)

MsgBox ("Folder mensuel créé")

End If

' Save File

ActiveWorkbook.SaveAs Filename:= _

"G:\Rapport__ " & Year(Date) & "\" & MonthName(Month(Date), False) & "\" & Format(Date, "mm.dd.yy") & "__Equipe1" & ".xlsm" _

, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = True

' Popup Message

MsgBox "File Saved As:" & vbNewLine & "G:\Rapport__" & Year(Date) & _

"\" & MonthName(Month(Date), False) & "\" & Format(Date, "dd.mm.yy") & "__Equipe1" & ".xlsm"

Application.Goto Reference:="SaveRoutine"

ActiveWorkbook.Save

Range("AC15").Select

End Sub