Copier / Coller entre workbooks

Copier / Coller entre workbooks - VB/VBA/VBS - Programmation

Marsh Posté le 11-02-2004 à 00:04:41    

Désolé pour cette question idiote, mais je sèche dessus depuis 2 jours et j'en ai besoin pour un projet :/
 
Voila mon affaire : j'ai deux workbooks ("mdc-01" et "mdc-02" ) contenant une seule feuille chacun.
Je souhaite exécuter une macro à partir d'un troisième fichier ("MDC" ) pour copier/coller les feuilles des deux workbooks précédents et ainsi obtenir mon troisième workbook avec la première feuille étant la feuille de mdc-01 et la seconde celle de mdc-02.
 
J'ai essayé de programmer des copiés-collés entre les workbooks mais je n'y arrive pas : ci dessous mon code
 

Citation :

Workbooks("MDC-01.txt" ).Worksheets(1).Range("A:C" ).Cut
Workbooks("MDC.xls" ).Worksheets(1).Paste
 
Workbooks("MDC-02.txt" ).Worksheets(1).Range("A:C" ).Cut
Workbooks("MDC.xls" ).Worksheets(2).Paste


 
Merci par avance si qqu peut m'aider.

Reply

Marsh Posté le 11-02-2004 à 00:04:41   

Reply

Marsh Posté le 11-02-2004 à 00:49:54    

salut  
 
essai de faire un truc comme ça !
 
Workbooks("MDC-01.txt" ).Worksheets(1).activate
Sheets(1).Copy After:=Workbooks("MDC.xls" ).Sheets(0)
 
Workbooks("MDC-02.txt" ).Worksheets(1).activate
Sheets(1).Copy After:=Workbooks("MDC.xls" ).Sheets(1)
 
ça ça marche si MDC.xls est vide .... enfin je crois jsuis pas super sûr de mon sheets(0) ... enfin si ya ke ça !
 
@+  
 

Reply

Marsh Posté le 11-02-2004 à 11:39:03    

slt, merci de ta réponse mais j'ai tjs un souci : le code que tu m'as donné fonctionne si je lance la macro à partir des fichiers MDC-01 et 02.
Or moi, j'aimerais une macro qu'on lance à partir du fichier résultat MDC : tu vois comment faire cela ?

Reply

Marsh Posté le 11-02-2004 à 12:21:05    

Le turc de beliaf devrait marcher il me semble et même si le classeur MDC n'est pas vide (les feuilles de même nom porteront simplement des indices (1),(2) etc.
 
La seule modif doit porter sur les indices qui commencent à 1 et non 0.

Reply

Marsh Posté le 11-02-2004 à 15:09:08    

C'est bon, j'ai résolu mon pb avec l'aide de beliaf : merci bcp.

Reply

Marsh Posté le 11-02-2004 à 16:09:10    

titeus a écrit :

C'est bon, j'ai résolu mon pb avec l'aide de beliaf : merci bcp.


 
pas de koi  ;)

Reply

Sujets relatifs:

Leave a Replay

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