XL 2013 Copier inserer fichier fermé

erwanhavre à dit:

Bonjour je bloque sur un mini projet ...
voila, j'aimerai à l'aide d'un bouton copier la ligne A2 du fichier matrice et le coller (insérer à la ligne 2) dans le fichier BDD qui lui est fermé est ce possible ?

Cliquez pour agrandir...

Sub coller()
Dim Repertoire As String, Classeur As String
Repertoire = "d:\mes documents\test\"
Classeur = "bdd.xlsx"
Workbooks.Open Repertoire & Classeur
ThisWorkbook.ActiveSheet.Rows(2).Copy ActiveWorkbook.Sheets("Feuil1").[a2]
ActiveWorkbook.Close True
End Sub

erwanhavre à dit:

Bonjour et merci Jacky67
Cela fonction, juste est ce possible d’insérer plutôt que de coller ?
l'idée est de créer une base de données

Cliquez pour agrandir...

Sub coller()
Dim Repertoire As String, Classeur As String
Repertoire = "d:\mes documents\test\"
Classeur = "bdd.xlsx"
Workbooks.Open Repertoire & Classeur
Sheets("Feuil1").Rows("2:2").Insert
ThisWorkbook.ActiveSheet.Rows(2).Copy ActiveWorkbook.Sheets("Feuil1").[a2]
ActiveWorkbook.Close True
End Sub