Discussion :

[Jessica13]

Salut,
Malheureusement je maîtrise pas le VBA , J'ai bien cherché et j'ai pas trouver quelque chose efficace pour ma situation :

Je veux fusionner 145 fichiers excel en 1 seul selon le nom de l’entête sachant que :
* tous les fichier n'ont pas la même entête
* il ya quelque fois des cellules vides (je pense que c'est pas un problème)

Voila 2 fichiers parmi les 145 dans les fichiers jointes.

Merci d'avance.

[QuestVba]

Bonjour

* tous les fichier n'ont pas la même entête

Dans tes fichiers, les colonnes ont la même entête mais sont dans le désordre. Est-ce toujours le cas ou un hasard?

Si tu as toujours les mêmes entêtes même nbre de colonnes, tu peux effectuer ce code pour les mettre toutes dans le même ordre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub tri_liste_perso()
Dim Num_List As Byte
On Error Resume Next
Num_List = Application.GetCustomListNum(Array("Nom", "Rue", "Adress", "CP", "Tel", "FAX", "Categorie", "Email", "Site"))
    'on récupère le numéro de la liste personnelle dans Outils/Options/Listes Persos
If Num_List = 0 Then
    ' Si elle n'existe pas
    Application.AddCustomList ListArray:=Array("Nom", "Rue", "Adress", "CP", "Tel", "FAX", "Categorie", "Email", "Site")
    ' on ajoute la liste personnelle
    Num_List = Application.CustomListCount
    ' on récupère le numéro de la liste personnelle
    ' tout ajout de liste personnelle étant à la fin, ce sera donc la dernière
End If
With Range("A1:I" & [A65000].End(xlUp).Row)
    .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=Num_List + 1, _
                Orientation:=xlLeftToRight
        ' Comme la première clé (Nouvelle Liste) n'est pas comptabilisée, on ajoute 1 à Num_List
End With
End Sub

[Philippe Tulliez]

Bonjour,
Et si tu as les mêmes étiquettes, tu peux utiliser cette fonction Regrouper plusieurs feuilles sur une autre. (2003-2010)

[Jessica13]

Salut,
J'ai essayer avec ces etapes mais j'arrive pas a obtenir un resultat,

Pouvez-vous tester ce codes avec les 2 fichiers en pieces jointes ?

[Philippe Tulliez]

Bonjour,
Je me suis mal exprimé, j'ai voulu répondre après l'intervention de Lionel qui te proposait de remettre les étiquettes dans le bon ordre par un tri vertical.
A ce moment là seulement la fonction que j'ai écrite fonctionne. Il faut le même nombre de colonnes et les étiquettes de même orthographe mais n'est pas sensible à la casse.

[Jessica13]

Mais dans votre sujet Regrouper plusieurs feuilles sur une autre. (2003-2010)

Vous parlez de regrouper plusieurs feuilles et la pour moi je cherche a regrouper plusieurs fichiers !

J'ai telecharger le demo et...