Ajout données autres feuilles à la suite de la précédente

Ajout données autres feuilles à la suite de la précédente - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2012 à 22:56:02    

Bonsoir
 
J'ai fait ce code suivant pour rapatrier les données d'une feuille dans la feuille d'un classeur
Si je veux en rapatrier d'autres, je souhaite qu'elles se mettent à la suite
 

Code :
  1. Sub Regroupement()
  2. 'J'écris mes en-têtes de colonnes
  3. Range("a1" ) = "Matricule"
  4. Range("B1" ) = "Nom"
  5. Range("C1" ) = "Prénom"
  6. Range("D1" ) = "Section AT"
  7. Range("E1" ) = "Code Risque AT"
  8. Range("F1" ) = "Code Risque Bureau"
  9. Range("G1" ) = "Taux AT"
  10. Range("H1" ) = "Brut SS"
  11. Range("I1" ) = "Plaf SS"
  12. Range("J1" ) = "csg/crds sur revenus d'activité"
  13. Range("K1" ) = "CSG/CRDS sur revenus de remplacement"
  14. Range("L1" ) = "Base Brute Fiscal"
  15. Range("M1" ) = "Net Imposable"
  16. Range("N1" ) = "Avantages Nat"
  17. Range("O1" ) = "Frais Prof"
  18. Range("P1" ) = "Epargne Salariale"
  19. Range("Q1" ) = "Nombre Actions"
  20. Range("R1" ) = "Valeur Unitaire"
  21. Range("S1" ) = "Date attribution"
  22. Range("T1" ) = "Date d'acquisition définitive"
  23. Range("U1" ) = "Temps Travail Payé"
  24. Range("V1" ) = "Code Indemnité fin contrat"
  25. Range("W1" ) = "Montant Indemnité versée"
  26. Range("X1" ) = "Code Statut Catégoriel Conventionnel"
  27. Range("Y1" ) = "Code Statut Catégoriel AGIRC ARRCO"
  28. Range("Z1" ) = "Code convention Collective"
  29. Range("AA1" ) = "Classement Conventionnel"
  30. Range("AB1" ) = "Brut Congés Payés"
  31. Range("AC1" ) = "Sommes Isolées"
  32. Range("AD1" ) = "Prévoyance TA"
  33. Range("AE1" ) = "Prévoyance TB"
  34. Range("AF1" ) = "Prévoyance TC"
  35. Range("AG1" ) = "Prévoyance TD"
  37. 'J'ouvre le classeur URSAFF 1.xls
  38. Workbooks.Open "F:\PROJET DADS-U\URSAFF 1.XLS"
  39. 'Je copie les données de la feuille Export 0
  40. Workbooks("URSAFF 1.xls" ).Sheets("Export 0" ).Range("C2:K41" ).Copy
  41. Workbooks("Regroupement.xlsm" ).Activate
  42. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Range("A2" ).Select
  43. Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Paste
  44. 'Fermeture de URSAFF 1.xls
  45. Workbooks("URSAFF 1.xls" ).Close
  47. End Sub

 
 
Merci de votre aide
 
Cdt

Reply

Marsh Posté le 23-11-2012 à 22:56:02   

Reply

Sujets relatifs:

Leave a Replay

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