Bug macro

[Sang1]

Bonjour,

Je suis en trainde faire une macro et j'ai un bug qui est apparu et je ne sais pas pourquoi...
La macro doit normalement aller copier la derniere colonne avec des cellules remplies.
C'est la ligne en rouge qui bug.



Code :

Workbooks.Open "C:\Documents and Settings\sylvain laurens\Desktop\STAGE SYLVAIN\ConsoWeekly.xls"
Workbooks("ConsoWeekly.xls").Activate

Windows("ConsoWeekly.xls").Activate

Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Select
DerColo = Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Range("AB2").End(xlToLeft).Column
Range("R2C28:R2C" & DerColo).Select
Range("AB2:AB35").Select
Selection.Copy
Windows("Book1.xls").Activate
Sheets("Datas").Select
Cells(7, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Merci pour votre aide.

Crdlt,

SANG1

 

[job75]

Re : Bug macro

Bonjour Sang1,

Range("R2C28:R2C" & DerColo).Select

ne fonctionne pas car Range n'accepte pas une référence en notation R1C1.

Ecrire :

Range(Cells(2, 28), Cells(2, DerColo)).Select

A+

 

[Sang1]

Re : Bug macro

Nikel !!! Merci beaucoup !!