Bonjour a tous le forum

Je ne suis pas un grand spécialiste du VBA et je me retrouve face a soucis surement du a une mauvais compréhension de ma part, je vous explique :

J'ai 2 classeur, wk1 (qui est la BDD source) et wk2 (qui la bdd de destination), ce que je souhaiterais faire avec ça c'est de récupérer certaine valeur de wk1 et de les placer dans le classeur wk2, a noter que chaque ligne de wk1 représentent une fiche.

Voici donc le code que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Dim wk1, wk2 As Workbook                                                                            'Déclaration des classeur
Dim rep, classeurpath As String
Dim i As Integer
Dim derniere_ligne As Long
 
'Callback for btLance01 onAction
Sub transfert(control As IRibbonControl)                                                    'Ce module permet de faire le transfert entre BDD
 
rep = Environ("USERPROFILE") & "\"
classeurpath = rep & "\Documents\EIPinspection\Rapport\BDD_FICHES.xlsm"
 
Set wk1 = ThisWorkbook
i = 2
 
'ouverture du classeur
 
Set wk2 = Workbooks.Open(classeurpath)
'wk2.Sheets("BDD-export").Activate
derniere_ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
i = derniere_ligne + 1
 
        With wk2.Sheets("BDD-export")
            For i = 2 To derniere_ligne
                wk2.Sheets(1).Cells(i, 1) = wk1.Sheets(1).Range("BU" & i).Value                      'Photo globale
                i = i + 1
            Next i
 
        End With
 
End Sub
Il n'y à qu'une cellule pour le moment pour les tests, donc il n'y a pas d'erreur notifiées, mais rien ne se passe mise a part qu'il m'ouvre bien mon wk2, mais rien n'est écrit dedans...

Si vous avez une piste sur mon ou mes erreurs je suis preneur


Merci a tous

chrisdu86