Vba et enregistrement multiple

Bonjour a tous,
J'ai un soucis et je souhaite votre aide.
Je dois réaliser un fichier modifiable par tout le monde et qui est ensuite envoyé par mail vers un destinataire donné
avec le code que j'ai utilisé, j'arrive bien a envoyer le fichier via un mail ce qui est parfait.
Mais 2 personnes qui modifient le fichier au même moment vont générer une erreur.

comment puis-je faire?

Merci de votre aide.

je vous joint également le code que j'utilise.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Bouton1_Cliquer() Application.Visible = False Dim Maille As String Dim Sujet As String   Maille = "monemail@mail.fr" Sujet = "Copie_contrat" ActiveWorkbook.SaveAs FileName:="x:\TEST\test4.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False   Set OL = CreateObject("Outlook.Application") Set MyItem = OL.CreateItem(olMailItem) With MyItem .To = Maille .Subject = Sujet .OriginatorDeliveryReportRequested = False .ReadReceiptRequested = False .Attachments.Add "x:\TEST\test4.xls" .Send End With MsgBox "Votre classeur a bien été envoyé", vbInformation, "" ThisWorkbook.Close Application.Visible = True Application.DisplayAlerts = True End Sub

---

Afin d'éviter tout conflit tu pourrais enregistrer le classeur sous un nom aléatoire, par exemple en lui ajoutant un GUID:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim fileName As String   fileName = "attachment_" & GetGUID() & ".xls" Call MsgBox(fileName) End Sub   Public Function GetGUID() As String GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) End Function

---