L'indice n'appartient pas à la selection

Bonjour tout le monde ;

Je travaille sur un petit projet, et je fais face à un petit soucis...

Au fait, j'ai un bout de code qui ne fonctionne que si le classeur en question est ouvert, le voici :

Sub lireDerniereLigne()

    Dim nbrLignes&

    With Workbooks("nomClasseur.xlsx").Worksheets(1)
        nbrLignes = .Cells(Rows.Count, 5).End(xlUp).Row
        MsgBox nbrLignes
    End With

End Sub

Comment y remédier sachant que j'aimerais bien travailler sur un fichier fermé ?

Merci d'avance

Bonjour,

Pour moi, il y a 2 solutions :

- tu ouvres le fichier, tu cherches la dernière ligne, tu fermes ensuite en indiquant saveschange:=false

ou bien

- tu inclus dans ton fichier le calcul de la dernière ligne que tu mets dans une cellule, par VBA ou simplement par formule. Tu pourras alors y accéder fichier fermé !

Merci Steelson