Discussion :

[bosk1000]

bonjour à tous

je cherche à optimiser un code en évitant le "select'

ci dessous un code pour copier coller d'un fichier à un autre que je veux optimiser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Windows("COMMANDE.xlsm").Activate
    Sheets("prepa commande").Select
    Range("c1:c200").Select
    Selection.Copy
 
    Windows("caisse.xlsm").Activate
    Sheets("operation de tresorerie").Select
    Range("i65536").End(xlUp).Select 
    ActiveCell.Offset(1, 0).Select 
    ActiveSheet.Paste

j'ai essayer ceci mais sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c1:c200").Copy Destination:=Workbooks("caisse.xlsm").Sheets("operation de tresorerie").Range("i65536").End(xlUp).ActiveCell.Offset(1, 0)

merci pour votre aide

[EngueEngue]

Vire le activecell

[Marc-L]

Bonjour,

exemple ici ! Et rien qu'en consultant l'aide de la méthode Copy et de son argument Destination …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[bosk1000]

ha l'idiot, j'avait oublié de l'enlever ....

par contre pour être plus pertinant dans mon copier,
comment puis-je limiter non pas de c1 à c200 lignes mais de c1 à la dernière ligne écrite

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
derniere = Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c" & Workbooks("COMMANDE.xlsm").Sheets("prepa commande").rows.count).end(xlup).row
Workbooks("COMMANDE.xlsm").Sheets("prepa commande").Range("c1:c" & derniere).Copy ....

[Marc-L]

T'aurais pu te fendre d'un petit With Workbooks("COMMANDE.xlsm").Sheets("prepa commande") …