Bonjour à tous,
j'ai créé un bout de code en VBA me permettant de consolider sur un fichier qui s'appelle "consolidé" l'ensemble des données sur d'autres fichiers. Le seul problème que j'ai est que je n'arrive pas à paramétrer le code de telle façon à prendre toutes les lignes non vides dans les fichiers "assistance" et "test" avant de les coller.
Sub Consolidé()
' Consolidé Macro
Dim lgLigFinH As Long
Workbooks.Open ("C:\Users\PC\Desktop\test\assistance.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Range("A2").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Windows("assistance.xlsm").Activate
ActiveWindow.Close
Sheets("Feuil3").Select
' Dernière ligne vide dans la feuille Historique
lgLigFinH = Worksheets("Feuil3").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Workbooks.Open ("C:\Users\PC\Desktop\test\test.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Worksheets("Feuil3").Range("A" & lgLigFinH).Select
ActiveSheet.Paste
End Sub
Merci de votre aide
---------------------------
Je joins le fichier cible et les fichiers sources
j'ai créé un bout de code en VBA me permettant de consolider sur un fichier qui s'appelle "consolidé" l'ensemble des données sur d'autres fichiers. Le seul problème que j'ai est que je n'arrive pas à paramétrer le code de telle façon à prendre toutes les lignes non vides dans les fichiers "assistance" et "test" avant de les coller.
Sub Consolidé()
' Consolidé Macro
Dim lgLigFinH As Long
Workbooks.Open ("C:\Users\PC\Desktop\test\assistance.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Range("A2").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("D").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Windows("assistance.xlsm").Activate
ActiveWindow.Close
Sheets("Feuil3").Select
' Dernière ligne vide dans la feuille Historique
lgLigFinH = Worksheets("Feuil3").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Workbooks.Open ("C:\Users\PC\Desktop\test\test.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Worksheets("Feuil3").Range("A" & lgLigFinH).Select
ActiveSheet.Paste
End Sub
Merci de votre aide
---------------------------
Je joins le fichier cible et les fichiers sources