Bonjour à tous

Voila j'ai ce code :

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
Set MyDB = OpenDatabase("S:\Qualité\BDD Qualité\BDD Qualité.mdb") 
Set MyTable = MyDB.OpenRecordset("test") 
Set Sh = Worksheets("Feuil1") 
With Sh 
    For Each r In .Range("A5:C300").Rows 
        With MyTable 
            .AddNew 
            !Ordre = Sh.Cells(r.Row, 1) 
            !article = Sh.Cells(r.Row, 2) 
            !Quantité = Sh.Cells(r.Row, 3) 
            .Update 
        End With 
    Next 
End With 
Set MyDB = Nothing: Set MyTable = Nothing: Set Sh = Nothing 
End Sub
Voila j'exporte des données SAP dont le nombre de ligne peux varier...
Vous pouvez voir dans le code qu'a un moment j'ai range A5:C300. Dès
fois j'ai presque 500 lignes et le problème qui intervient c'est que
toutes les données ne sont pas exporter...

Y'a t'il un moyen de pouvoir modifier ce A5:C300 en par exemple A5:C500 ?
J'ai un user form qui me permet d'executer la macro d'export de
données je voudrais pouvoir mettre aussi un champ me permettant de mettre le nombre de ligne exacte à exporter afin de ne pas avoir de lignes vides dans ma table access...

Est ce possible si oui comment ?

pouvez vous m'aidez ?

Merci beaucoup

A+