Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
945 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier / Coller entre workbooks

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copier / Coller entre workbooks

n°638332
titeus
Posté le 11-02-2004 à 00:04:41  profilanswer
 

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.

mood
Publicité
Posté le 11-02-2004 à 00:04:41  profilanswer
 

n°638389
beliaf
Posté le 11-02-2004 à 00:49:54  profilanswer
 

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 !
 
@+  
 

n°638641
titeus
Posté le 11-02-2004 à 11:39:03  profilanswer
 

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 ?

n°638716
itela
Posté le 11-02-2004 à 12:21:05  profilanswer
 

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.

n°639064
titeus
Posté le 11-02-2004 à 15:09:08  profilanswer
 

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

n°639137
beliaf
Posté le 11-02-2004 à 16:09:10  profilanswer
 

titeus a écrit :

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


 
pas de koi  ;)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier / Coller entre workbooks

 

Sujets relatifs
Comment copier un fichier > 32 Ko ds une BD SQL ???comment copier ou supprimer un fichier sur le disque dur en c++ ?
Peut-on copier un répertoire entier ?copier
[PHP] Copier une image d'un site sur son disque dur ?[delphi/QuickRep] Copier,déplacer
bloquer acces page par mot de passe+empecher copier/print[ECLIPSE] Copier/coller avec la souris ?
Coller un motif de chaques côtés de mon border, mais sans marge ? 
Plus de sujets relatifs à : Copier / Coller entre workbooks


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR