XL 2013 Copier inserer fichier fermé

[erwanhavre]

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 ?

 

[Jacky67]

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 ?

Bonjour,
Ceci en adaptant le répertoire, placer dans un module standard du classeur Matrice et attribuer à un bouton.
La destination se trouve en feuil1 (a adapter)

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]

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

 

[Jacky67]

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

Re..
Essaye ceci

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

 

[erwanhavre]

topissime merciiiii