Sub Import_Data()
Dim derlig As Long, col As Long, i As Long, dercol As Long
Application.ScreenUpdating = False
Fichier = ThisWorkbook.Path & "\Source\Data.xls"
Workbooks.Open (Fichier)
Set WbData = Workbooks("Data.xls")
Set Sh = ThisWorkbook.Sheets(1)
With WbData
For i = 2 To .Sheets.Count
dercol = .Sheets(i).Columns("I").Find("", , , , , xlPrevious).Column
For col = dercol To 1 Step -1
If Application.CountA(.Sheets(i).Columns(col)) = 1 Then
.Sheets(i).Columns(col).Hidden = True
.Cells.SpecialCells(12).Copy Sh.Range("A" & Sh.[A65000].End(3).Row + 1)
End If
Next col
Next i
End With
WbData.Close savechanges:=False
'ActiveWorkbook.Close False
End Sub
Sub Import_Data()
Dim derlig As Long, lig As Long, col As Long, i As Long, dercol As Long, Plage As Range
Application.ScreenUpdating = False
Fichier = ThisWorkbook.Path & "\Source\Data.xls"
Set Sh = ThisWorkbook.Sheets(1)
Set WbData = Workbooks.Open(Fichier)
With WbData
For i = 2 To .Sheets.Count
dercol = .Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
Set Plage = .Sheets(i).Range("A1").CurrentRegion
For col = dercol To 1 Step -1
If WorksheetFunction.CountA(Plage.Columns(col)) = 1 Then ' s'il n'y a que le titre
Plage.Columns(col).EntireColumn.Hidden = True
End If
Next
derlig = Sh.Range("A" & Rows.Count).End(xlUp).Row + 1
Plage.SpecialCells(12).Copy Sh.Range("A" & derlig)
Next i
.Close False
End With
Application.ScreenUpdating = True
End Sub
Sub Import_Data()
Dim derlig As Long, col As Long, i As Long, dercol As Long
Application.ScreenUpdating = False
Fichier = ThisWorkbook.Path & "\Source\Data.xls"
Workbooks.Open (Fichier)
Set WbData = Workbooks("Data.xls")
Set Sh = ThisWorkbook.Sheets(1)
With WbData
For i = 2 To .Sheets.Count
dercol = .Sheets(i).Columns("I").Find("", , , , , xlPrevious).Column
On Error Resume Next
For col = 1 To dercol 'To 1 Step -1
If .Sheets(i).Columns(col).Text = "" Then
.Sheets(i).Columns(col).Hidden = True
End If
Next col
.Sheets(i).Cells.SpecialCells(12).Copy Sh.Range("a1")
Next i
End With
ActiveWorkbook.Save
ActiveWorkbook.Close True
End Sub
. Pauvre bonhomme!!! Ce n'est pas français ça!qui n'a ni queue ni tête