Bonjour à tous
Voila j'ai ce code :
Voila j'exporte des données SAP dont le nombre de ligne peux varier...
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
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+
Partager