copier des cellules d'une feuille vers une feuille spécifique

copier des cellules d'une feuille vers une feuille spécifique - VB/VBA/VBS - Programmation

Marsh Posté le 30-10-2010 à 14:21:31    

Sur ma feuille , je souhaite copier des cellules et les coller dans une autre feuille de mon classeur. Le nom de mon classeur destination est dans une case de ma feuille active qui varie(H13 sur le fichier ''Base''). (Par exemple en H13 actuellement Paul Durand, de plus cette feuille est déjà créée et s'appelle bien Paul Durand!) Quelle macro pour ouvrir ''Paul Durand'' et copier quelques cellules par exemple la A1 et B2 de ''Base'' vers la X1 et Y2 de ''Paul Durand''.
Merci

Reply

Marsh Posté le 30-10-2010 à 14:21:31   

Reply

Marsh Posté le 03-11-2010 à 18:24:25    

lecrocballon a écrit :

Sur ma feuille , je souhaite copier des cellules et les coller dans une autre feuille de mon classeur. Le nom de mon classeur destination est dans une case de ma feuille active qui varie(H13 sur le fichier ''Base''). (Par exemple en H13 actuellement Paul Durand, de plus cette feuille est déjà créée et s'appelle bien Paul Durand!) Quelle macro pour ouvrir ''Paul Durand'' et copier quelques cellules par exemple la A1 et B2 de ''Base'' vers la X1 et Y2 de ''Paul Durand''.
Merci


 
Pour ouvrir un classeur


Workbooks.Open("CHEMIN DU CLASSEUR" )


 
Pour copier une valeur d'un classeur à un autre...
 


Workbooks("NOM DU CLASSSEUR D'ORIGINE" ).Worksheets("NOM DE L'ONGLET" ).Range("A1" ).Value = Workbooks("NOM DU CLASSEUR DE DESTINATION" ).Worksheets("NOM DE L'ONGLET DE DESTINATION" ).Range("X1" ).Value


Reply

Marsh Posté le 03-11-2010 à 21:04:26    

merci pour la réponse mais ça ne répond pas tout à fait à mon pb puisque le nom de ma feuille peut varier.
J'ai depuis trouvé la solution:
nom = range("A1" )   A1 contenant le nom de ma feuille
Sheets(nom).Select

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed