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