LGDLightning
XLDnaute Nouveau
Bonjour à toutes et tous,
je suis débutant en VBA, je m'y suis mis hier pour être honnête,
et je bloque sur ma macro de consolidation
Je cherche en faite à créer un bouton me permettant de regrouper les 8 fichiers d'agence (qu'un seul onglet par fichier) et mettre les données les unes en dessous des autres dans le fichier principal (onglet "Liste"),
voici mon début de macro :
Sub LGD()
' Message d'ouverture
MsgBox "Concaténation !"
'ACM
' Ouverture de ACM.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\ACM.xlsx"
' Copie des données d'ACM :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("ACM.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A13").Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence ACM dans la colonne B :
Range("B13:B" & DerniereLigne) = "ACM"
' Fermeture de ACM.xlsx :
Workbooks("ACM.xlsx").Close
'AIX
' Ouverture d'AIX.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\AIX.xlsx"
' Copie des données d'AIX :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("AIX.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
DebutNomFichier = DerniereLigne + 1
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A" & DerniereLigne + 1).Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence AIX dans la colonne B :
ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX"
' Fermeture d'AIX.xlsx :
Workbooks("AIX.xlsx").Close
End Sub
La macro semble marcher, mais il y a un petit décalage avec les noms d'agence dans la colonne B, apparemment ma formule ne doit pas être bonne ( ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX")
De plus, je ne sais pas comment faire pour rajouter les autres agences
Merci !
P.S: Le fichier principal est "2013.2014" et il y a plusieurs onglets normalement mais le fichier était trop lourd sinon
je suis débutant en VBA, je m'y suis mis hier pour être honnête,
et je bloque sur ma macro de consolidation
Je cherche en faite à créer un bouton me permettant de regrouper les 8 fichiers d'agence (qu'un seul onglet par fichier) et mettre les données les unes en dessous des autres dans le fichier principal (onglet "Liste"),
voici mon début de macro :
Sub LGD()
' Message d'ouverture
MsgBox "Concaténation !"
'ACM
' Ouverture de ACM.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\ACM.xlsx"
' Copie des données d'ACM :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("ACM.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A13").Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence ACM dans la colonne B :
Range("B13:B" & DerniereLigne) = "ACM"
' Fermeture de ACM.xlsx :
Workbooks("ACM.xlsx").Close
'AIX
' Ouverture d'AIX.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\AIX.xlsx"
' Copie des données d'AIX :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("AIX.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
DebutNomFichier = DerniereLigne + 1
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A" & DerniereLigne + 1).Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence AIX dans la colonne B :
ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX"
' Fermeture d'AIX.xlsx :
Workbooks("AIX.xlsx").Close
End Sub
La macro semble marcher, mais il y a un petit décalage avec les noms d'agence dans la colonne B, apparemment ma formule ne doit pas être bonne ( ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX")
De plus, je ne sais pas comment faire pour rajouter les autres agences
Merci !
P.S: Le fichier principal est "2013.2014" et il y a plusieurs onglets normalement mais le fichier était trop lourd sinon