Macro sometimes work, sometimes doesn't but works 100% of the time on another computer

Hi,

I have a problem with a macro that is making me go crazy.

On computer #1, the macro works sometimes, partially or not at all. If it fails, it starts working then gives me a "Selection.PasteSpecial" error. If it works partially, the copied cells are not merged. It can work for 20 times on user profile "A" then I change to user profile "B" and it doesnt. I go back to user profile "A" and it doesn't work anymore. I go back to user profile "A", use a copied version of the file and it starts working. Unlog et relog. Nothing and now nothing works.

On computer #2, it works 100% of the time without any glitch.

I changed computer #1 regional settings to the same thing as computer #2 without any positive changes.

Both computers use the same OS, Office version (2010) and the same file. Do I throw computer #1 through the window or is there something I'm missing.

Here's the code for the macro.

Sub Macro12()
'
' Macro12 Macro
'

'
Workbooks.Open Filename:= _
"L:\Rapport Journalier\Lecture des niveaux de gaz extérieur\Rapport des lectures de gaz.xlsx"
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Windows("Rapport Journalier.xlsm").Activate
Range("W2:AE2").Select
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
Windows("Rapport Journalier.xlsm").Activate
Range("AM2:AP2").Select
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("J2").Select
ActiveSheet.Paste
Windows("Rapport Journalier.xlsm").Activate
Range("G2:S2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("N2").Select
ActiveSheet.Paste
Windows("Rapport Journalier.xlsm").Activate
Range("G15:H15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("AA2").Select
ActiveSheet.Paste
Windows("Rapport Journalier.xlsm").Activate
Range("Q15:R15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("AC2").Select
ActiveSheet.Paste
Windows("Rapport Journalier.xlsm").Activate
Range("AB15:AC15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rapport des lectures de gaz.xlsx").Activate
Range("AE2").Select
ActiveSheet.Paste
Range("A2:AF2").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("N5:Z5").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Please Login or Register  to view this content.

You can speed up excel and therefore your PC

by running this Macro first:-

Please Login or Register  to view this content.

You need to undo its action for your programs to work properly
NB we are disabling calculations, so delete that part if you macro needs excel to calculate automatically.

Please Login or Register  to view this content.

Hi,

no idea what the problem is, it works with me. maybe upload your reports...

I'm having the same kind of **** from my computer (see the post right under yours with HELP written in it)

Thanks alot TMS but I get this error with your code : error 438 "object doesn't support this property or method" at this line wbG.Range("A2").PasteSpecial Paste:=xlPasteValues

Thanks

After a few minor modification, it seems to work. Thanks alot