Copier les colonnes de plusieurs fichiers dans un seul

[Kulgan]

Bonjour à tous et bonne année 2015!!

J'ai un petit soucis, je dois aller chercher la colonne "C" de chacun des fichiers contenus dans un dossier pour les ajouter dans un fichier que j'ai appelé "00 - Consolidation".

J'essaie d'ajouter une condition (ouvrir le fichier si le nom est différent de "00 - Consolidation") pourtant ma macro cherche quand meme à l'ouvrir.

Après m'etre arraché le peu de cheveux qu'il me reste, je me demandais si quelqu'un avait la réponse évidente que je n'ai pas 🙂

Merci beaucoup!!!



Voici mon code :


Chemin = ThisWorkbook.path

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(Chemin)

For Each Fichier In dossier.Files
If Fichier.Name = "00 - Consolidation.xlsm" Then
GoTo Linex

Else
Workbooks.Open (Fichier)

Sheets("Conso").Select
Columns("C").Select
Selection.Copy

Windows("00 - Consolidation.xlsm").Activate
nbcolonnes = Range("IV2").End(xlToLeft).Column
Debug.Print Split(Sheets(1).UsedRange.Address, "$")(3)

Columns(nbcolonnes + 1).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(2, nbcolonnes + 1).Value = Fichier.Name

Windows(Fichier.Name).Activate


End If
ActiveWindow.Close

Linex:
Next

 

[Kulgan]

Re : Copier les colonnes de plusieurs fichiers dans un seul

... En fait j'ai trouvé, dsl du dérangement 🙂

Possible de supprimer le post?

Merci et bonne année!