Importer lignes et colonnes masquer

Hello le forum,

J'utilise actuellement ce code qui marche très bien (merci à Nad au passage), pour centraliser les données de plusieurs classeurs de même type sur un classeur global.

Par contre, le code n'importe pas les lignes et colonnes masquées.

Qui pourrais me donner un complément.

Merci

Sub Actualiser_Suivi_Fiches()
Dim dossier As Object, Fichier As Object
Dim Chemin As String
Dim Derlg As Integer
Dim c As Range

Application.ScreenUpdating = False
Application.DisplayAlerts = True

Derlg = Range("A65536").End(xlUp).Row + 1
Range("A2:S" & Derlg).Clear

Chemin = ThisWorkbook.Path
           FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each Fichier In dossier.Files

NomFichier = Fichier.Name
If Not Fichier.Name = "Recap.xls" Then

Derlg = Range("A65536").End(xlUp).Row + 1

Workbooks.Open Filename:=Chemin & "\" & NomFichier

On Error Resume Next

With Workbooks(NomFichier)
.Sheets("Suivi Fiches Avoirs").Range("A2:S" & Sheets("Suivi Fiches Avoirs").Range("A65536").End(xlUp).Row + 1).Copy ThisWorkbook.Sheets("Recap Fiches Liaison Avoirs").Range("A" & Derlg)
.Close False

End With

End If
Next

Range("A2:S" & Derlg).Sort Key1:=Range("O2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

End Sub

Quelqu'un aurait une idée ?

Bonjour,

il n'y a pas de raison je pense. Mais sans voir le fichier....

le code copie les données allant de A2 à S et dernière ligne vers le fichier Recap. Il faut peut être voir de ce coté.

Sinon juste pour la forme j'ai apporté quelques modifications dans le code :

Sub Actualiser_Suivi_Fiches()
Dim dossier As Object, Fichier As Object
Dim Chemin As String, nomfichier As String, fname As String
Dim Derlg As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = True

Derlg = Range("A65536").End(xlUp).Row + 1
Range("A2:S" & Derlg).Clear

Chemin = ThisWorkbook.Path
fname = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each Fichier In dossier.Files
    If Not Fichier.Name = "Recap.xls" Then
    Derlg = Range("A65536").End(xlUp).Row + 1
    Workbooks.Open Filename:=Chemin & "\" & Fichier.Name

On Error Resume Next

With Workbooks(nomfichier)
    .Sheets("Suivi Fiches Avoirs").Range("A2:S" & Sheets("Suivi Fiches Avoirs").Range("A65536").End(xlUp).Row + 1).Copy _
        ThisWorkbook.Sheets("Recap Fiches Liaison Avoirs").Range("A" & Derlg)
    .Close False
End With
End If
Next
Range("A2:S" & Derlg).Sort Key1:=Range("O2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
End Sub

Amicalement