I have a problem with a macro.
Sub ActivePartage() Dim Destwb As Workbook Dim TempFile As String Dim FileExtStr As String Dim FileFormat As Integer Set Destwb = ActiveWorkbook strTestString = Left(Destwb.Name, (InStrRev(Destwb.Name, ".", -1, vbTextCompare) - 1)) FileExtStr = ".xlsm": FileFormatNum = 52 TempFile = "H:DQMTableau de Bord DQM" & strTestString Application.DisplayAlerts = False With Destwb .SaveAs TempFile & FileExtStr, FileFormat:=FileFormatNum, AccessMode:=xlShared End With Application.DisplayAlerts = True End Sub
I tried to figure it out why there is an error (filenamen format…etc)
I know it’s working without AccessMode:=xlShared, but I need to save it as shared mode.
I am using Excel 2016, my code has been inspired from this link:
Could someone help me please?