Bonjour tout le monde,

Je cherche depuis hier à trouver une fonction qui me permettrait de connaître le nombre de lignes d'un fichier Excel à partir d'Access sans succès !!

Voici la boucleque j'utilise pour parcourir un fichier Excel:

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
    On Error GoTo erreur
 
    'déclaration des variables
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
    With wks
        'arrêter l'importation lorsque l'on rencontre une case vide
        While .Range(pKeyCol & i).Value <> "" '(où pKeyCol représente la colonne et i la ligne)
            i = i + 1
        Wend
 
    End With
La principale raison c'est de connaître le nombre de lignes d'un classeur Excel pour l'affecter à une variable pour faire avancer une barre de progression.

Avez-vous des idées ?

Merci et bonne journée à tout le monde