XL 2016 Consolider un fichier

[linebich]

Bonsoir forum j'espere que vous allez bien , je demande votre aide pour trouver une solution à mon probleme en fait mon objectif c'est de consolider des feuilles excel contenant le meme model de tableau dans une feuille globale j'ai ecris ce code , sauf que je sais pas comment est excel va connaitre les tableau dans les feuilles et ne me copie pas les entête
Sub transfert()

Dim i As Byte
Dim DLig As Long

DLig = Range("A7").End(xlDown).Row + 1

For i = 1 To Worksheets.Count

If UCase(Sheets(i).Name) <> "Base-Global" Then

Sheets(i).Cells("A1").CurrentRegion.Copy Sheets("Base-Global").DLig



End If

Next

End Sub

 

[Staple1600]

Bonsoir Job75

Merci pour l'info
Mais on est bien d'accord que les titres n'étaient pas copiés, non ?
(avec ConsolidationIII)

 

[job75]

Suffit de tester...

 

[Staple1600]

Re

=>Job75

Suffit de tester...

Tout comme lire ce que je dis dans le message#14... 🙄
Confirmé ensuite par la macro déposée ensuite.

Mais merci d'avoir déposé un lien.

 

[Jiheme]

Bonsoir à tous,
Et merci
il y avait un problème de structure dans mon fichier définitif, maintenant c'est OK je n'ai plus de problème de titres. Désolé de n'avoir pas vérifier avant!
Mais je me suis rendu compte que dans la conso j'avais besoin du nom qui figure dans chaque onglet en colonne A, ce qui implique de décaler le tout vers la droite.
Et bien sûr je suis en galère...
Merci encore