Error 13 : Incompatibility type

[mtheriault2000]

Hello

Receiving this error (translation from French)

Error 13
Incompatibility type

From this code

GTD = WorksheetFunction.Clean(VBA.Mid(Sheets("Data_In_out").Range("GTD_Str").text, "AAAAMMDD,HH:MM:SS"))
GAD = WorksheetFunction.Clean(VBA.Mid(Sheets("Data_In_out").Range("Gad_Str").text, "AAAAMMDD,HH:MM:SS"))

Martin

 

[Roxxien]

A mid function need to have a number as a second argument but you currently have a string.

GTD = WorksheetFunction.Clean(VBA.Mid(Sheets("Data_In_out").Range("GTD_Str").text, [COLOR=#ff0000]"AAAAMMDD,HH:MM:SS"[/COLOR]))

EDIT : if you want a part of your string, then change the red section for a number. If you want to change the format, you should use format instead of mid.

 

[mtheriault2000]

Many thanks

VBA.Format was the solution.

I did an error when I Replaced all Format() for VBA.Mid instead of VBA.Format.

Martin