Pb de copie de cellule vers classeur ouvert

[oasis_1]

Bonjour le forum,

j'ai un problème surement tres simple pour la plus part d'entre vous

Il se trouve que j'ai un macro qui fonctionne tres bien et cela grace à vous aussi, elle copie d'une feuille 1 vers une feuille 2 d'un meme classeur( toto )

Or je souhaiterais qu'elle me serve mais à copier ma ou mes cellules de mon classeur (toto) vers un autre classeur (tintin) sachant que ce dernier est ouvert lorsque je demande le transfert.

je pense qu'il faut remplacer Sheets("Feuil1").Select mais par quoi ????

En esperent avoir ete suffisament clair dans mes explications oasis_1

 

[LPandre]

Re : Pb de copie de cellule vers classeur ouvert

Bonjour,

******
Sheets("FeuilMachin").Select ' feuille source
Cells.Select ' selection de toute la feuille, libre à toi de selectionner une zone
Selection.Copy
Windows("Nom de ton fichier cible.xls").Activate
Sheets("Feuil3").Select ' si c'est la feulle3 la cible of course !
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
******
Après tu peux continuer le code pour revenir au fichier source.

@+

 

[oasis_1]

Re : Pb de copie de cellule vers classeur ouvert

Bonsoir LPandre,

Surtout merci beaucoup j'ai déjà avancé et voici ce que ça donne :

Sheets("Feuil1").Select ' feuille source
Cells.Select ' selection de toute la feuille, libre à toi de selectionner une zone
Range("d4").Copy
Range("d5").Copy
Range("d6").Copy
'Selection.Copy
Windows("Classeur Cible.xls").Activate
Sheets("Feuil Cible").Select ' si c'est la feulle3 la cible of course !
Range("e17").Select
Range("e18").Select
Range("e19").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Bien sur l'inconvénient est que je ne copie pas les trois cellules mais qu'une ou deux seulement et encore.

Peux-tu me mettre sur la voie

@ + oasis_1

 

[oasis_1]

Re : Pb de copie de cellule vers classeur ouvert

Re,

Ok trouvé il fallait :

Range("d4:d6").Select
Range("d4:d6").Copy

Tres simple non!!

@ + oasis_1

 

[Pierrot93]

Re : Pb de copie de cellule vers classeur ouvert

Bonjour Oasis, LPandre

une autre solution, tu peux même l'éxecuter à partir d'un 3ème classeur :

Sub test()

With Workbooks("ClasseurSource.xls").Sheets("Feuil1")
    .Range("D4:D6").Copy Workbooks("ClasseurCible.xls").Sheets("Feuil1").Range("E17:E19")
End With
End Sub

bonne journée
@+

 

[oasis_1]

Re : Pb de copie de cellule vers classeur ouvert

bonsoir Pierrot,

j'ai essayé ta formule que je trouve tres compact donc tres intéressente mais je n'arrive pas à la faire fonctionner.
elle prend bien les cellules à copier mais ne les copie pas pourquoi ?

Je vais quand meme essayer d'y travaillé en toute modestie bien sur

@ + oasis_1

 

[Pierrot93]

Re : Pb de copie de cellule vers classeur ouvert

Bonsoir Oasis

a part les lignes "with....." et "end with", tout doit être sur la même ligne. Sinon vois pas trop pourquoi cela ne fonctionnerait pas chez toi !!!

bonne soirée
@+