Bonjour,

J'ai un problème avec ce code de concaténation : je dois dé-fusionner les cellules d'une plage mais lors de la copie de celle-ci, seule la cellule A1 est copiée correctement et je n'arrive pas à récupérer l'intégralité des cellules...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
 
Range("A1:N36").Select
    With Selection
        .MergeCells = False
    End With
 
Workbooks(Temp).Sheets(1).Range("A1:N36").CurrentRegion.Copy
 
Workbooks("Recap.xls").Sheets(1).Activate
 
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
 
Range("A" & CStr(Ligne)).Select
 
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub