Fusionner plusieurs fichiers Excel avec plusieurs en un seul

Aucune correspondance entre le classeur "collecte" et "clafinal" ?
Pourtant chaque code couleur est bien identifié


ligne verte du classeur "clafinal"
= ligne verte du clacollecte mais en 3 lignes correspondant au 3 montants present dans la ligne 6 du clafinal

le montant ht dans le clafinal est 2 fois
1 seul est nécessaire en bleu et en rouge



clafinal



fichier collecte

Bonjour Le Pingou

Si cela vous occasionne du temps ne vous prenez pas la tête.....

Encore mes excuses pour la gêne
J’ai voulu adapté fahora sans trop vous faire développer bah c’est raté !
Encore merci pour votre temps

Ps : je n’ai pas d'impératif de temps

Merciii !!!

Bonjour Le Pingou,

Je vais faire le nécessaire concerne le cas en question


à l'avenir je le recevrez dans la bonne colonne le fichier arrive dans ma boite mail (presta externe mais il s'adaptera sans souci)

Dans tout les cas si l'info est manquante j'ai moyen de reconcilier la raison sociale grâce au code client mais l'uniformisation de chaque tableau est un point que je dois étudier avec eux (aucune raison d'un refus)

Bon weekend et encore merci pour votre retour.

Merci Le Pingou
Je regarde ce soir sans faute !

Absolument !

Toujours en A3

Merci Le Pingou

Bonjour Le Pingou
j’espère que tu vas bien, je suis très novice en vba mais j'ai testé ton code sur la fusion de plusieurs feuille en une seule mais lors de la copie, je souhaiterai faire copie/Coller valeur, pourrais m'aider. Ci-dessous ton code
Merci

Sub CollecterDataDesClasseurs()
Dim wbci As Workbook, wbso As Workbook
Dim shac As Worksheet
Dim deli As Integer, li As Integer, lici As Integer
Dim rep As String, dosA As String, dosB As String
Dim nclb As String, nclc As String
li = Cells(Rows.Count, 1).End(xlUp).Row + 1
rep = Range("repbas"): dosA = Range("claco"): dosB = Range("clafi")
Set shac = ActiveSheet
' récupérer et ouvrir le classeur de collecte
Application.ScreenUpdating = False
nclb = Dir(rep & "\" & dosA & "\*.*")
Set wbci = Workbooks.Open(rep & "\" & dosA & "\" & nclb)
lici = wbci.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
' pointer sur répertoire des classeurs à traiter CD....
nclc = Dir(rep & "\" & dosB & "\*.*")
Do While nclc <> ""
Set wbso = Workbooks.Open(rep & "\" & dosB & "\" & nclc)
With wbso.Sheets(1)
deli = .Cells(Rows.Count, 7).End(xlUp).Row
.Range("B8:AZ" & deli).Copy Destination:=wbci.Sheets(1).Range("A" & lici)
lici = lici + deli - 7
End With
shac.Cells(li, 1) = nclc
shac.Cells(li, 2) = deli - 7
li = li + 1
wbso.Close
nclc = Dir ' suivant
Loop
MsgBox "Les données sont copier dans le classeur : " & wbci.Name & Chr(10) & "disponible sous dossier " & dosA
wbci.Close SaveChanges:=True
Set wbso = Nothing: Set wbci = Nothing: Set shac = Nothing
Application.ScreenUpdating = True
End Sub

Merci à vous !

Bonne journée.