save same document to 2 different folders

[rjmdc]

hi
this is the part of code i am stuck at i think i made amistake trying to save at once into 2 folders

With ActiveWorkbook.Worksheets("IDGS Billing")
        FileName = "IDGS" & " " & Format(DateFrom, "m.d.yyyy") & " - " & Format(DateTo, "m.d.yyyy") & " " & MissingDiagnosisIDGS & " - " & NextID & " - " & IDGSTotal
        Set tbl = .ListObjects(1)
        tbl.Range.Copy
    End With
    
    Set wb = Workbooks.Add
    wb.Activate
    wb.Sheets(1).Range("A1").PasteSpecial xlPasteAll
    'wb.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    ActiveWorkbook.Queries("IDGS Billing").Delete
    Selection.Columns.AutoFit
             
    FullFileName = FileName & " " & "(" & FileDateTime & ")" & ".xlsx"
    
    'Save and Close New WB
    wb.SaveAs SaveFolder & "\" & FullFileName, xlOpenXMLWorkbook
    wb.Close SaveChanges:=False
    DoEvents
    
    wb.SaveAs SaveFolder2 & "\" & FullFileName, xlOpenXMLWorkbook this part fails what do i do to save in 2 locations?
    wb.Close SaveChanges:=False
    DoEvents
    
    'Back to Main WB
    ThisWorkbook.Activate

 

[HaHoBe]

Hi rjmdc,

if you want to save the workbook you assigned to wb at two places you should leave it open after the first save in order for it to be available for the second part of saving as well:

    'Save and Close New WB
    wb.SaveAs SaveFolder & "\" & FullFileName, xlOpenXMLWorkbook
'    wb.Close SaveChanges:=False 'if you want to save the WB at a different location do not close it bere
    DoEvents

Ciao,
Holger

 

[rjmdc]

i figured out that i need to copy paste save then go back to workbook copy paste and save again

 

[HaHoBe]

Hi rjmdc,

you get me confused as that is what happens in your code prior to saving. From what I understand you have a table you copy, add a new workbook, paste in the contents and save the new workbook with an identical name at two different locations. If there should be a change please describe like before the second saving copy over the table from a different sheet. But I would prefer to wrap that in a loop and add a workbook for each action.

Please give more precise information.

Ciao,
Holger

 

[rjmdc]

my issue was i tried to copy once and save into 2 different folders
that failed
i needed to copy paste save close new book, copy paste and save again into second book

is there a way to copy 1 time and then say :
savefolder1: "M....
Savefolder2: "M....

 

[HaHoBe]

Hi rjmdc,

did you try to keep wb open for the second SaveAs? It works fine for me. Or could you tell if there is an error raised for the second part (what number/description)? As you have only supplied part of the code the failure might be in variable SaveFolder2. Maybe the length of FullName for the wb for SaveFolder2 is too long.

Ciao,
Holger