Ecriture dans une cellule d'une autre feuille impossible

Bonjour

Entant novice en vba je bloque depuis quelques heures sur un problème.

Je n'arrive pas à copier une valeur dans une cellule d'une autre feuille que l'active sheet. J'ai le message d'erreur 'impossible d'aller à Worksheets' qui estt caché. Pourtant j'ai rendu visible mon worksheet mais rien n'y fait. Voci mon code

Sub Récup()

    Application.ScreenUpdating = False
    Set Fdép = ActiveSheet

    Ln = Range("A" & Rows.Count).End(xlUp).Row + 1
    F = Application.GetOpenFilename(, , , , True)
    Worksheets("JD").Visible = -1

    For i = 1 To UBound(F)

    Workbooks.Open (F(i))

        actif_net = Sheets("Signalétique").Range("J11").Value
        nb_parts = Sheets("Signalétique").Range("K11").Value

        Fdép.Cells(Ln, 1).Value = actif_net
        Fdép.Cells(Ln, 2).Value = nb_parts

    ' problème impossible d'écrire sur la feuille JD
        Worksheets("JD").Range("B9").End(xlDown).Offset(1, 0) = actif_net

        Ln = Ln + 1
        ActiveWindow.Close
    Next i
End Sub

Je souhaite écrire la valeur de actif_net dans le champ B9 de la feuille JD du même classeur que l'active sheet.

D'avance merci de votre aide.

Papis

Bonjour

Il faut préciser le classeur

        ' problème impossible d'écrire sur la feuille JD
       ThisWorkbook.Worksheets("JD").Range("B9").End(xlDown).Offset(1, 0) = actif_net

Banzai64 a écrit :

Bonjour

Il faut préciser le classeur

        ' problème impossible d'écrire sur la feuille JD
       ThisWorkbook.Worksheets("JD").Range("B9").End(xlDown).Offset(1, 0) = actif_net

Super c'est ce qu'il me fallait.

merci beaucoup