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 :
- Sub Regroupement()
- 'J'écris mes en-têtes de colonnes
- Range("a1" ) = "Matricule"
- Range("B1" ) = "Nom"
- Range("C1" ) = "Prénom"
- Range("D1" ) = "Section AT"
- Range("E1" ) = "Code Risque AT"
- Range("F1" ) = "Code Risque Bureau"
- Range("G1" ) = "Taux AT"
- Range("H1" ) = "Brut SS"
- Range("I1" ) = "Plaf SS"
- Range("J1" ) = "csg/crds sur revenus d'activité"
- Range("K1" ) = "CSG/CRDS sur revenus de remplacement"
- Range("L1" ) = "Base Brute Fiscal"
- Range("M1" ) = "Net Imposable"
- Range("N1" ) = "Avantages Nat"
- Range("O1" ) = "Frais Prof"
- Range("P1" ) = "Epargne Salariale"
- Range("Q1" ) = "Nombre Actions"
- Range("R1" ) = "Valeur Unitaire"
- Range("S1" ) = "Date attribution"
- Range("T1" ) = "Date d'acquisition définitive"
- Range("U1" ) = "Temps Travail Payé"
- Range("V1" ) = "Code Indemnité fin contrat"
- Range("W1" ) = "Montant Indemnité versée"
- Range("X1" ) = "Code Statut Catégoriel Conventionnel"
- Range("Y1" ) = "Code Statut Catégoriel AGIRC ARRCO"
- Range("Z1" ) = "Code convention Collective"
- Range("AA1" ) = "Classement Conventionnel"
- Range("AB1" ) = "Brut Congés Payés"
- Range("AC1" ) = "Sommes Isolées"
- Range("AD1" ) = "Prévoyance TA"
- Range("AE1" ) = "Prévoyance TB"
- Range("AF1" ) = "Prévoyance TC"
- Range("AG1" ) = "Prévoyance TD"
- 'J'ouvre le classeur URSAFF 1.xls
- Workbooks.Open "F:\PROJET DADS-U\URSAFF 1.XLS"
- 'Je copie les données de la feuille Export 0
- Workbooks("URSAFF 1.xls" ).Sheets("Export 0" ).Range("C2:K41" ).Copy
- Workbooks("Regroupement.xlsm" ).Activate
- Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Range("A2" ).Select
- Workbooks("Regroupement.xlsm" ).Sheets("Fichier de contrôle" ).Paste
- 'Fermeture de URSAFF 1.xls
- Workbooks("URSAFF 1.xls" ).Close
- End Sub
|
Merci de votre aide
Cdt
FORUM HardWare.fr
