LITTLEBLACKDOG.COM

Can't find anything on the net, so i'll try here...

When i use this line of code in VBA (Word 2003) :

Code: Select all

fnum = FreeFile()


Open MyFile For Append Shared As fnum

... on a file that's on the network \\somewhere\somefolder\somefile.txt\ , the file is locked when another user tries to write in the same file (with the same macro). I can't delete or write in that file unless i go on the computer that just ran the macro and delete it manually.

How can i unlock the file so everyone can write in it ? Is there a way to do this ?

Guide Dog Joined: 08 Nov 2003 Posts: 9129 Location: MN

do you close the file when your done?

Something like "MyFile.close".

Posted: Wed Mar 25, 2009 5:55 am Post subject:

Yes... Close #fnum

Here's the whole code:

Code: Select all

Private Sub btnSave_Click()





Dim myDate


Dim myTime


Dim txtNow As String


Dim Msg, Style, Title, Help, Ctxt, Response, MyString





MyFile = "\\Nas1-6ea\CORR\" & "CORRectionsTM_ALL.txt"





myDate = DateValue(Now)


myTime = TimeValue(Now)


txtNow = Format(myDate, "dddd d mmm yyyy") + ", " + Format(myTime, "Hh:Mm:Ss")





'set and open file for output


fnum = FreeFile()


Open MyFile For Append Shared As fnum


    Print #fnum, "*************************************************************************"


    Print #fnum, "<Demandeur> " + txtDemandeur.Text


    Print #fnum, "<Corrigé le> " + txtNow


    Print #fnum, "<Corrigé par> " + cbUSER.Text


    Print #fnum, ""


    


    Print #fnum, "<Mémoire(s) Corrigée(s)> " + txtMem.Text


    


    Print #fnum, ""


    


    Print #fnum, "<Source> " + txtSource.Text


    Print #fnum, "<Erreur> " + txtOld.Text


    Print #fnum, "<Correction> " + txtCorr.Text


    Print #fnum, "*************************************************************************"


    Print #fnum, ""


    Print #fnum, ""


    


Close #fnum








Msg = "Correction sauvegardé dans le fichier: " + MyFile + vbCrLf + vbCrLf + "Voulez-vous entrer une autre correction ?"    ' Définit le message.


Style = vbYesNo + vbQuestion + vbDefaultButton2


Title = "Opération Terminé !"





' Affiche le message.


Response = MsgBox(Msg, Style, Title)


If Response = vbNo Then    ' L'utilisateur a choisi Non.


    End    ' Effectue une action.


End If





End Sub