Ajout données autres feuilles à la suite de la précédente
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
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
Bonsoir
A tester, toutes les copies se rajouteront à la suite
Sub Regroupement()
'J'écris mes en-têtes de colonnes
Application.ScreenUpdating = False
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
With Workbooks.Open("F:\PROJET DADS-U\URSAFF 1.XLS")
'Je copie les données de la feuille Export 0
.Sheets("Export 0").Range("C2:K41").Copy _
Destination:=ThisWorkbook.Sheets("Fichier de contrôle").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
'Fermeture de URSAFF 1.xls
.Close
End With
End Sub
Bonsoir et merci d'avoir répondu
Quand on débute c pas simple
Ca ne fonctionne pas, ça fait la même chose.
L'idée est la suivante. Dans 3 classeurs URSSAF se trouvent plusieurs feuilles avec les renseignements nécessaires pour chaque personne.
Dans un premier temps, je souhaite toutes les feuilles de tous les classeurs dans la même feuille du fichier Regroupement en sachant que si par exemple on a une somme dans la colonne Base Brute Fiscale d'une feuille d'un fichier, cette somme doit apparaitre la colonne correspondante de mon fichier Regroupement
J'espère etre clair
Je joins mon fichier pour que vous compreniez.
Cdt
Bonjour
FMAILYS a écrit :Ca ne fonctionne pas, ça fait la même chose.
Si cela fonctionne et cela ne fait pas la même chose
Ce que tu avais demandé c'est un code qui rajoute à la suite, et aux dernières nouvelles ce code le fait
FMAILYS a écrit :par exemple on a une somme dans la colonne Base Brute Fiscale d'une feuille d'un fichier, cette somme doit apparaitre la colonne correspondante de mon fichier Regroupement
Par exemple il n'y a pas cette colonne mais une autre on fait quoi ?
La colonne correspondante cela veut dire quoi ?
Le VBA ne connait que l'égalité ou la différence mais il ne sait pas traduire "qui correspond"
Il faut employer le même nom dans tous les fichiers, sinon on risque de ne pas rapatrier les infos
Il faut que tu fasses un exemple de ce que tu veux obtenir dans le classeur "Regroupement"
Parce que à la vue de tes fichiers URSAFF, il n'y a pas le même nombre d'informations dans les onglets
Voir le fichier URSAFF 2, pas le même nombre de ligne, pas les mêmes noms, noms en double, fais un exemple de résultat en te basant sur celui-ci
Bonjour
En fait oui je n'ai pas le même nombre de lignes à rapporter dans ma feuille regroupement ni les mêmes noms de colonne
Quand je rapatrie les données de ces feuilles dans ma feuille de regroupement, les données se trouvant par exemple dans la colonne Base Brute Fiscale du fichier URSAFF 1 doit se retrouver dans la colonne Base Brute Fiscale du fichier regroupement en face du bon matricule correspondant
De plus, dans URSAFF1, si j'ai plusieurs lignes avec le même nom, je dois en faire qu'une
Cdt
En fait voici en plus un petit fichier qui récapitulatif via des imprim ecran ce que je souhaite faire
Cdt
Bonjour
Merci pour votre temps passé
Mon pb est résolu
Cdt