problème macro VBA

[Himura]

Bonjour,

J'essaye de copier des cellules d'un fichier excel dans un autre (ici de wbk1 à wbk2). Voici le peu de code que j'ai fait pour l'instant:

Sub planning()

Dim Wbk1 As Workbook, Wbk2 As Workbook

semaine = InputBox("Semaine?")

jour = InputBox("jour?")

Nplanning = semaine & jour & "07"

'Si tes classeurs sont fermés

Set Wbk2 = Workbooks.Open(Filename:="P:\blabla\fichier1")

Set Wbk1 = Workbooks.Open(Filename:="G:\blabla\fichier2" & Nplanning)

For i = 1 To 5

For j = 1 To 5

Wbk1.Worksheets(1).Cells(i, j) = Wbk2.Worksheets(1).Cells(i, j)

Next

Next

End Sub

Le problème est que lors de l'éxécution pas à pas, je me rends compte qu'après la ligne Set Wbk2 = Workbooks.Open(Filename:="P:\blabla\fichier1") , excel revient au début. J'ai cherché, mais je ne sais pas pourquoi il fait ça. Vous avez une idée? Merci.