Discussion :

[madrilene59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pragmateek]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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