Discussion :

[mehdiyou1985]

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

[mehdiyou1985]

J'ai essayé de parcourir le classeur avec la même boucle pour connaître le nombre de lignes mais ça bug !!

[tee_grandbois]

Bonsoir,
utilise la propriété Range.End pour trouver la dernière ligne renseignée:

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
    On Error GoTo erreur
 
    'déclaration des variables
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
    Dim nblig As Long
 
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
 
'Recherche de la valeur de la dernière ligne alimentée
    With wks
     .Activate
     nblig = .Range("A65536").End(xlUp).Row
    End With

[mehdiyou1985]

Tee_Grandbois !!

Tu es un PRO mon ami

Ça fonctionne bien ! Un bon départ pour ma journée

Merci et bonne journée

Mehdi