Re : Collage spécial transposé dans une macro de consolidation
Je suis bluffé, par la rapidité,cela marche impeccablement:
La macro importe le nom des fichiers et surtout n'importe dans le fichier que les nouveaux fichiers ajoutés.
Pour le moment je pense avoir fait le tour de la question. Un grand merci !
Peux tu, stp, m'expliquer en quelques mots la signification des lignes de code que tu as ajouté:
Sub consolide()
Dim myVar As Long
Application.ScreenUpdating = False
ChDir ActiveWorkbook.Path
Set recap = ThisWorkbook
compteur = 1
nf = Dir("*.xls")
Do While nf <> ""
If nf <> recap.Name Then
On Error GoTo GestionDesErreurs
myVar = Application.WorksheetFunction _
.Match(nf, Worksheets(1).Range("A1:A1000"), 0)
On Error GoTo 0
If IsNumeric(myVar) = False Then
Transfert: Workbooks.Open Filename:=nf
Workbooks(nf).Sheets(1).Range("A3:F3").Copy
recap.Sheets(1).Range("B" & recap.Sheets(1).[B1000].End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks(nf).Sheets(1).Range("G6:G16").Copy
recap.Sheets(1).Range("K" & recap.Sheets(1).[K1000].End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Workbooks(nf).Sheets(1).Range("X1:Z1").Copy
recap.Sheets(1).Range("H" & recap.Sheets(1).[H1000].End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks(nf).Close False
recap.Sheets(1).Range("A" & recap.Sheets(1).[A1000].End(xlUp).Row + 1) = nf
End If
End If
nf = Dir
Loop
Range("F3:G3000").Select
Selection.NumberFormat = "dd/mm/yy"
Range("A1:B1").Select
GestionDesErreurs:
If Err = 1004 Then
Err = 0
Resume Transfert
End If
End Sub