Search results for query: *

Now it is working I tried what Combo suggested and it works. See code thank you for your help. Sub Module4() ' code sample Dim objExcel As Object Dim ExcleWb As Object Set objExcel = CreateObject("Excel.application") 'open file objExcel.Visible = True xlEdgeBottom = 9 xlDoubleInterior = -4119...

I tried your last suggestion and it still does not work. the error msg I am getting is Error number: 1004 Description : Error definied by the application or the Object Note that my Excel is in French so I am translating the error description

I tried your version and it still does not work. I just realized that I am running a french version of Excel, can that have anything to do with my problem. "This programmimng is a lot more complicated that RPG and Cobol....

there is a simplyfied verison of my code. Sub Module4() ' code sample Dim ExcelApp As Object Set objExcel = CreateObject("Excel.application") 'open file With objExcel .Workbooks.Open ("D:\105.xls") .sheets("Tableau de bord").Activate .Range("a1").Offset(2, 6).FormulaLocal =...

I realize that now, but how do I reference a workbook. I have been trying...again without success. Bujt he funny thing is that the line befoire that were I insert a formula in a cell works.

I am running this code from Access. and I working with Cell Border property.

Thanks for the answer. ObjExcel is defined as follow Set objExcel = CreateObject("Excel.application") My question is why is it working with the other instruction and not with the underline instruction?

I have been trying for hours to underline a cell (last line)with no success. I am always getting an error. what do I do wrong.... With objExcel .sheets("Tableau de bord").Range("a1").Offset(2, 6).FormulaLocal = "=SOMME(données!G" & SCum & ":G" & ECum & ")"...