Synthétiser des tableaux en 1 seul

Bonsoir,
Non j'ai plusieurs lignes de code, mais il me semble que c'est celle-là qui ne fonctionne pas.

Je vous joints le début de mon code:

' supprimer la page sauf la 1er ligne
Sub DeleteExceptFirst()
Rows("2:" & Rows.Count).ClearContents
'Gras

Range("A2:W2").Font.Bold = True
' Ecriture des titres :
Range("A2") = "Date du Jour"
Range("B2") = "Nom de l'Enfant"
Range("C2") = "Prénom de l'Enfant"
Range("D2") = "Date de naissance de l'Enfant"
Range("E2") = "Civilité du responsable"
Range("F2") = "Nom du responsable"
Range("G2") = "Prénom du responsable"
Range("H2") = "Adresse"
Range("I2") = "Code postal"
Range("J2") = "Commune"
Range("K2") = "Catégorie"
Range("L2") = "Commune précédente"
Range("M2") = "Justificatif Domicile"
Range("N2") = "Numéro d'inscription"
Range("O2") = "Ecole Maternelle de Secteur"
Range("P2") = "Ecole Primaire de Secteur"
Range("Q2") = "Souhait de dérogation maternelle "
Range("R2") = "Souhait de dérogation élémentaire"
Range("S2") = "Motif de la dérogation"
Range("T2") = "Décision de la commission"
Range("U2") = "Frais de scolarité"
Range("V2") = "Observations"
'ouverture dossier karine:
Workbooks.Open "M:\ROY\Inscriptions scolaires\Préparation inscription\Rentrée 2018\Tableaux inscriptions scolaires\Karine.xlsx"
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count + 1
Workbooks("Karine.xlsx").Sheets("Feuil1").Range("A3:V" & AvantDerniereLigne).Copy
Workbooks("Recap ESSAI.xlsm").Activate
Workbooks("Recap ESSAI.xlsm").Sheets("INSCRIPTIONS").Range("A3").Select
Workbooks("Recap ESSAI.xlsm").Sheets("INSCRIPTIONS").Paste
Range("W3:W" & ActiveSheet.UsedRange.Rows.Count + 1) = "Karine.xlsx"
'fermeture du dossier Karine:
Workbooks("Karine.xlsx").Close

'Ouverture du dossier valérie:
Workbooks.Open "M:\ROY\Inscriptions scolaires\Préparation inscription\Rentrée 2018\Tableaux inscriptions scolaires\Valérie.xlsx"
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count + 1
Workbooks("Valérie.xlsx").Sheets("Feuil1").Range("A3:V" & AvantDerniereLigne).Copy
Workbooks("Recap ESSAI.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Workbooks("Recap ESSAI.xlsm").Sheets("INSCRIPTIONS").Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Workbooks("Recap ESSAI.xlsm").Sheets("INSCRIPTIONS").Paste
ActiveSheet.Range("W" & DebutNomFichier & ":W" & ActiveSheet.UsedRange.Rows.Count) = "Valérie"
Application.CutCopyMode = False
Workbooks("Valérie.xlsx").Close

Même code pour les 4 fichiers suivants.


Merci de votre aide

veux-tu dire que l'instruction suivante ne fait rien?

ActiveSheet.Range("W" & DebutNomFichier & ":W" & ActiveSheet.UsedRange.Rows.Count) = "Valérie"

Je ne comprends pas ta question.
Ma demande : je souhaite que le tableau recap où sont rapatriées toutes les données des autres tableaux me mettent dans la colonne W le nom du fichier d'où elles proviennent.
Ainsi concernant le fichier karine, dans la colonne W de mon tableau RECAP, j'ai 1000 "karine" alors que je n'ai rapatrié aucune données, vu qu'à ce moment là je n'e'n avais pas encore, le tableau du fichier Karine étant vide
merci

il me semble que le problème se pose sur la ligne:
Range("W3:W" & ActiveSheet.UsedRange.Rows.Count + 1) = "Karine.xlsx"
qui me met en colonne W 1000 lignes de "Karine"
Merci

Bonjour,
sur le 1er f_recap As Worksheet, j'ai un message d'erreur
"erreur de compilation" "type défini par l'utilisateur non défini"
Merci de m'aider

Bonjour yg_be
Alors tu ne peux plus m’aider?
Pourtant j’ai vraiment besoin d’aide.Merci

Bonsoir.
Je veux bien le partager. Dis moi comment faire.
Mais de toute façon c’est assez simple.
J’ai un dossier avec 6 classeurs identiques remplis par 6 personnes différentes. Dans ce dossier j’ai créé un classeur récap (recap ESSAI )dont la feuille s’intitule « INSCRIPTIONS ».
L’orque je rapatrie les données des 6 classeurs, je voudrai que dans la colonne w s’inscit Le nom du classeur dont elles sont issues.
Cela marche. Sauf que pour le classeur « Karine » qui actuellement n’a pas encore de données j’ai dans la colonne w 1000 lignes avec le nom Karine.
Alors que je ne devrais avoir aucune ligne « Karine » mais enchaîner avec les données de « Valérie » avec inscription Valerie en colonne w.
Voilà.
Si ce n’est pas assez explicite je pourrai partager mon fichier si tu me donnes la marche à suivre
Merci beaucoup