Copie de données excel dans un unique onglet..

Question

Bonjour &#224; tous,

Dans le cadre de mon boulot, je suis r&#233;guli&#232;rement confront&#233; au probl&#232;me suivant :
je re&#231;ois un fichier excel d'un client avec des donn&#233;es que je dois traiter..
mais pour que le traitement soit r&#233;alisable, toutes les donn&#233;es doivent &#234;tre sur le m&#234;me onglet. Mon probl&#232;me c'est qu'il y a jusqu'&#224; 60 onglets et cette op&#233;ration manuelle de recopie est une grande perte de temps!!
Sur chaque onglet excel, les donn&#233;es sont sous cette forme :
01/01/01  00:00  111   222   333   444   555   666
....
Et ainsi de suite.
Est-ce que quelqu'un pourrait m'expliquer comment cr&#233;er une macro qui, quelque soit le nombre d'onglets, puisse compiler les donn&#233;es sur une seule feuille?
JE suis nouveau sur le site et d&#233;butant dans la pratique de macros et VBA sur Excel. Je cous remercie d'avance la communaut&#233; pour votre aide.!!!
Merci

valtrase · Answer

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

h&#233; b&#233; ma tout zap&#233; ......
Bon je disais as-tu un ou deux classeurs d'ouvert quand tu fais la manip ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

re,
bon voil&#224; un bout de code qui devrais te convenir les deux classeurs doivent &#234;tre ouverts. Tu peux lancer la copy par l'interm&#233;diaire d'un bouton ou du menu
  
Private Sub CommandButton1_Click() 


  Dim Cl1 As String: Dim Cl2 As String: Dim xlSh As String 


  Dim lLastRow As Long 


  Dim sh As Worksheet 


  '*** Ici Param&#232;tre le nom de tes classeurs 


  Cl1 "IciTonClasseur"                      'ex: Cl1 "Classeur1" 


  Cl2 "IciClasseurClient"                   'ex: Cl2 "Classeur2" 


  xlSh "FeuilleOuSeronsCopierLesDonn&#233;es"    'ex: xlSh "Feuil1" 


  For Each sh In Workbooks(Cl2).Sheets 


    sh.UsedRange.Copy 


    With Workbooks(Cl1).Sheets(xlSh) 


      '*** Ici je cherche la derni&#232;re ligne vide sur la la feuille 


      lLastRow = .UsedRange.Rows(UsedRange.Rows.Count).Row  


      If lLastRow 1 Then lLastRow 0 


      .Paste Destination:=.Cells(lLastRow + 1 , 1 ) 


    End With 


   Application.CutCopyMode = False
  Next 


End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

gbouhier · Answer

Bonjour Jean-Paul,

Tout d'abord je tiens vivement &#224; te remercier pour ta r&#233;ponse aussi rapide, quelle joie de voir que l'on est pas seul quand on a un probl&#232;me !!

J'ai donc copier les lignes de commande et assigner la macro ainsi enregistr&#233;e &#224; un bouton ( apr&#232;s avoir renseign&#233; les champs des classeurs et feuilles) , puis lancer la macro :
cette derni&#232;re s'est bloqu&#233;e sur la ligne suivante :

"For Each sh In Workbooks(Cl2).Sheets" avec l'erreur suivante : "Run-time error '9' : subscript out of range

Que dois-je faire?

Merci!!

valtrase · Answer

Lut,
Voil&#224; les question &#224; se poser:
   - y a t-il bien deux classeurs d'ouvert
   - Cl1, Cl2, xlSh sont-ils bien assign&#233;s ex: Cl1 = "Classeur1" et non pas "Classeur1.xls"
   
Si cela ne r&#233;gle pas ton probl&#232;me poste ton code que je le regarde soit sur le forum soit en priv&#233;
pour info je teste tous les codes avant de les poster sur excel 2003

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Copie de données excel dans un unique onglet..

5 réponses

Discussions similaires