Bonjour,
J'ai besoin de votre aide pour modifier une macro.
J'utilise la macro suivante du forum pour fusionner un bon nombre de fichiers de structure identique dans un répertoire.
Option Explicit
Const dossier As String = "D:\BUD_2015\" ' à adapter
Sub compiler_classeurs()
Dim fn$, wb As Workbook
fn = Dir(dossier & "*.xls")
If IsNull(fn) Then Exit Sub
Set wb = ThisWorkbook
Application.ScreenUpdating = False
Do While fn <> ""
With Workbooks.Open(dossier & fn)
With .Sheets("DEP_035")
.[B2].Resize(.[B65536].End(xlUp).Row - 1, 184).Copy
wb.Sheets("RECAP").[A65536].End(xlUp)(2).PasteSpecial xlValues
End With
Application.CutCopyMode = False
.Close False
End With
fn = Dir
Loop
End Sub
Je souhaite intégrer la condition suivante :
Recopier de chaque fichier toutes les lignes dont la cellule de la colonne B commence par DP et de longueur 4 (càd DPxx).
Merci de votre aide
KIM
J'ai besoin de votre aide pour modifier une macro.
J'utilise la macro suivante du forum pour fusionner un bon nombre de fichiers de structure identique dans un répertoire.
Option Explicit
Const dossier As String = "D:\BUD_2015\" ' à adapter
Sub compiler_classeurs()
Dim fn$, wb As Workbook
fn = Dir(dossier & "*.xls")
If IsNull(fn) Then Exit Sub
Set wb = ThisWorkbook
Application.ScreenUpdating = False
Do While fn <> ""
With Workbooks.Open(dossier & fn)
With .Sheets("DEP_035")
.[B2].Resize(.[B65536].End(xlUp).Row - 1, 184).Copy
wb.Sheets("RECAP").[A65536].End(xlUp)(2).PasteSpecial xlValues
End With
Application.CutCopyMode = False
.Close False
End With
fn = Dir
Loop
End Sub
Je souhaite intégrer la condition suivante :
Recopier de chaque fichier toutes les lignes dont la cellule de la colonne B commence par DP et de longueur 4 (càd DPxx).
Merci de votre aide
KIM