Discussion :

[lolo_bob2]

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+

[illight]

Il faut que tu remplace le nombre de ligne par une fonction qui te permette d'avoir le nombre de lignes, quelquesoit le fichier que tu mettra

Par exemple tu peux utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DernièreLigne = Range("A1").End(xlDown).Row

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DernièreLigne = Range("A65535").End(xlUp).Row

[lolo_bob2]

Ok merci pour l'aide mais je suis novice en VB et je ne vois pas trop où je dois inserer cette formule ?

Merci beaucoup de ton aide

A+

[SfJ5Rpw8]

il y as aussi le currentRegion...., pour voir s'il te convient ouvre ta feuille excel avec des données place toi en A5 , actionne CTRL * si la sélection correspond au donnée que tu ve traiter, tu peu remplace la ligne for Each.. par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
 For Each r In .Range("A5").currentRegion.Rows 
...

[lolo_bob2]

Bonjour

je reviens à la charge mais je viens d'essayer la dernière formule avec currentregion et cela ne fonctionne pas...j'ai toujours des lignes vides qui sont inserées dans ma table access...
Pourtant quand je fais ctrl * ma région s'arrête bien à la dernière ligne...

Merci de votre aide

A+