VBA: Open Excel Workbook using cells value as variable for file name

[timal03]

Hello,

I try to write this macro which could enable me to open files according to cells value I chose previously in my active workbook (In "Inputs" sheet to be accurate). These files I want to open are closed and under other folders.

Here is my code but I have this message poping up "Type Mismatch, Error '13':

I am just discovering VBA... Can somebody try to solve this problem please ?

Thanks a lot !

Here is my code:

Sub ImportFile()
Dim A As String
Dim B As String
Dim C As String

If Sheets("Inputs").Range("A_A1") > Sheets("Inputs").Range("G6") Then
A= Sheets("Inputs").Range("A_A1") & "_12"

Else: Sheets("Inputs").Range("A_A1") = Sheets("Inputs").Range("G6")

If Sheets("Inputs").Range("M3") < 10 Then
A = Sheets("Inputs").Range("A_A1") & "_0" & Sheets("Inputs").Range("M3")

Else
If Sheets("Inputs").Range("M3") >= 10 Then
A = Sheets("Inputs").Range("A_A1") & "_" & Sheets("Inputs").Range("M3")
End If
End If


If Sheets("Inputs").Range("B_B1") = "BLUE Then
B = "BLUE"
Else
B = "RED"

C = Range("C_C1") & " - " & A 

End If
End If

Workbooks.Open Filename:="S:\XXXX\ZZZZ\& A & " \ " & B & " \ " & C & *.xls"

End Sub

 

[Firefly2012]

And what line does it error on?

 

[mrhopko]

try adding .value on the end of your ranges to look at the value in the ranges rather than the range objects themselves.

example: A= Sheets("Inputs").Range("A_A1").value & "_12"


hope that helps

mrhopko

 

[timal03]

Hello,

Thank you for your help...

I did what you adviced me "mrhopko" but I still have the same error message.

And I don't know to which line it reffers to ... There is no highlighted line like I sometimes see...

Unsolving problem ?

Thank you

 

[Firefly2012]

In the VBE. go Tools>Options>General Tab and under the Error Trapping section ensure that "Break in Class Module" is the option selected. Change if not, select the OK button and re-run the code. Now, is the problem line selected when it debugs?

 

[timal03]

Hey, with a "light" late, thank you for your help.

I could have managed it at the end.

Thank you again