VBA Syntaxe

Bonsoir à tous,

N'y a-t-il pas plus élégant pour écrire ce code ?

Range("b10:f20").Copy
    With Sheets("base")   'autre feuille
        .Range("c7").Activate
        ActiveSheet.Paste
    End With

c'est le ActiveSheet.Paste qui me choque !

et pourquoi .Paste ne marche pas ?

Bonne soirée

Claude.

Bonsoir Claude

Peut être ainsi si j'ai bien compris :

Range("b10:f20").Copy Sheets("base").Range("c7")

bonne soirée

@+

Re

A noter qui si tu veux procéder en 2 tmps et utiliser "paste", il faudrait procéder ainsi :

Range("b10:f20").Copy
With Sheets("base")
    .Paste .Range("c7")
End With

@+

re,

merci Pierrot93, comme en + je colle dans un autre classeur, ton 2ème code me va bien.

Je mettais le range devant le .Paste, ce qui merdouillait !

Amicalement

Claude.

Bonjour Claude

Petite précision, si tu spéciifies le nom du classeur de destination, le 1er code fonctionnera également :

Range("b10:f20").Copy Workbooks("classeurDESTINATION.xls").Sheets("Base").Range("c7")

Bonne journée

@+