call Modules

[vmjan02]

I have 2 Modules and trying to call each of then from a Module1. office 2016, it don't run the 2nd call (OpenNECopper) but execute the 1st call (OpenNEFiber)

Need to run both the calls from (OneonOne) , now its just running the 1st one and stops and don't run the 2nd call, is there a way to run both one after the other.


this is one module which I am calling other 2 modules.

Sub OneonOne()

Call OpenNEFiber
Application.Wait (Now() + TimeValue("00:00:05"))

Call OpenNECopper
Application.Wait (Now() + TimeValue("00:00:05"))

MsgBox "Both calls are Complete", vbInformation, "Call 1 & 2"

End Sub

This is 1st one call

Sub OpenNEFiber()
    Dim FilePath As String
    Dim FileName As String
    Dim wb As Workbook

    FilePath = ActiveWorkbook.Path
    FileName = "Golden Automation NE Fiber V1.xlsm" ' Replace with your file name

    FilePath = FilePath & "\" & FileName
    If Dir(FilePath) <> "" Then
        Set wb = Workbooks.Open(FilePath)
        Application.Wait (Now() + TimeValue("00:00:05"))
        Application.Run "'" & wb.Name & "'!FIberNEALL"
         wb.Close SaveChanges:=True
    Else
        MsgBox "File not found: " & FilePath
    End If
End Sub

this is 2nd one call

Sub OpenNECopper()
    Dim FilePath As String
    Dim FileName As String
    Dim wb As Workbook


    FilePath = ActiveWorkbook.Path
    FileName = "Golden Automation NE Copper V1.xlsm" ' Replace with your file name


    FilePath = FilePath & "\" & FileName

    If Dir(FilePath) <> "" Then

        Set wb = Workbooks.Open(FilePath)

        Application.Wait (Now() + TimeValue("00:00:05"))

        Application.Run "'" & wb.Name & "'!callNECopperALL"
    
         wb.Close SaveChanges:=True
    Else
        MsgBox "File not found: " & FilePath
    End If

End Sub

 

[RoryA]

Your code is correct, so there must be something else interfering. What is the code you call in the first workbook you open?

 

[vmjan02]

this is the code for 1st one.

Sub FIberNEALL()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''
''''''''''''' This is for Fiber NE
'''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Call RenameRawFilesNEFiber
Call ImportRawDataFinerNE

Call RearragneColumnsHuaweiFibber
Call RearragneColumnsNokiaFibber


Call CopyHuaweiDataAndPaste
Call CopyNokiaDataAndPaste

Call DuplicatesNEFiberCombine


End Sub

for 2nd one.

Sub callNECopperALL()

'Call RenameRawFilesNECOPPER
Call ImportRawDataCopperNE


Call RearragneColumnsCopperADTRAN
Call RearragneColumnsNokiaCopper
Call RearragneColumnsCopperHuaweiE
Call RearragneColumnsCopperHuaweiC
Call RearragneColumnsCopperHuaweiS


Call CopyADTRANDataAndPaste
Call CopyNokiaCoperDataAndPaste
Call CopyHuaweiEDataAndPaste
Call CopyHuaweiCDataAndPaste
Call CopyHuaweiSDataAndPaste


Call DuplicatesNECoperCombine

End Sub

 

[RoryA]

That doesn't really help as it's just a bunch of calls to other routines. Have you verified at what exact point the code stops?

 

[vmjan02]

It run the Call OpenNEFiber and don't moves to 2nd part Call OpenNECopper

Sub OneonOne()

Call OpenNEFiber
Application.Wait (Now() + TimeValue("00:00:05"))

Call OpenNECopper
Application.Wait (Now() + TimeValue("00:00:05"))

MsgBox "Both calls are Complete", vbInformation, "Call 1 & 2"

End Sub

 

[RoryA]

Does it reach the first Application.Wait line? (not sure why you would need that)