Macro with consolidation function not working when using the file in Dropbox folder

[jmlachance]

Hi all,

I have worked a lot on a personal organizer with a consolidation function retrieving infos of other sheets on the same workbook. I used a macro to consolidate each time I use the file.

My problem is that the path to the consolidation sheets is pointing to a wrong location. When I uses the file on my desktop, it works perfectly. But I really want to use it on Dropbox for ease of access.

My file was initially in the Dropbox folder and here are the steps I have taken to do the macro:
Record the Macro
1) Consolidate date from sheets using the table name ex: perso, quadruplex, etc.)
2) sort, etc.)
Stop recording.

Basically, it works perfect, but when I use again the macro, it says Cannot open consolidation source file 'main-to-do-list.xlsm'.

Please help me to fix this. I am very STUCK and don't know what to do to fix it.

Sub maj()
'
' maj Macro
'

'
    Selection.consolidate Sources:=Array( _
        "'Macintosh HD:Users:jeanmichel:Desktop:main-to-do-list.xlsm'!sheet1table" _
        , _
        "'Macintosh HD:Users:jeanmichel:Desktop:main-to-do-list.xlsm'!sheet2table" _
        , "'Macintosh HD:Users:jeanmichel:Desktop:main-to-do-list.xlsm'!sheet3table", _
        "'Macintosh HD:Users:jeanmichel:Desktop:main-to-do-list.xlsm'!sheet4table" _
        , _
        "'Macintosh HD:Users:jeanmichel:Desktop:main-to-do-list.xlsm'!sheet5table" _
        ), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    ActiveWindow.SmallScroll Down:=-51
End Sub
Sub format()
'
' format Macro
'

'
    Rows("4:4").Select
    Selection.ClearContents
    Range("A11").Select
    ActiveWindow.SmallScroll Down:=-26
    ActiveWorkbook.Worksheets("Index").ListObjects("Table137").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Index").ListObjects("Table137").Sort.SortFields.Add _
        Key:=Range("Table137[[#All],[Ratio (I/T)]]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Index").ListObjects("Table137").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Table137").Select
    Selection.Rows.AutoFit
    ActiveWindow.SmallScroll Down:=-329
    Range("B15").Select
    ActiveWindow.SmallScroll Down:=-64
End Sub