Importation de données

[Al]

Bonjour à tous

Je voudrais importer automatiquement des donneés à partir d' une feuille,
et à chaque imortation que les nouvelles données n' écrasent pas les données existantes mais s' inserent après la derniere céllule pleine de la colonne A.

Grand merci à celui qui m' aidra à résoudre ce pb.

 

[Zon]

Bonsoir aux couches tards, ou bonjour pour ceux qui le liront dans la journée..


Voilà un code qui devrait te convenir :


Sub import()
Dim rep As String
Dim derniereligne As Integer

Set ws = Sheets("feuil1") 'à adapter

1
derniereligne = ws.Range("A65536").End(xlUp).Row
rep = InputBox("toto", "Veuillez nommer le nom de la feuille", "feuil2")
On Error GoTo 2
Set ws1 = Sheets(rep)
'ws1.Activate
L = ws1.Range("A65536").End(xlUp).Row
ws1.Range("A1", "C" & L).Copy Destination:=ws.Range("A" & derniereligne) ' adapter la plage de cellule qu'on veut copier
Application.CutCopyMode = False
ws.Select
GoTo 1
2
End Sub


Il ne suffit que de la lancer qu'une fois, car tu reviens toujours à la boite de dialogue Inputbox, pour sortir il suffit de cliquer sur annuler ou de saisir un mauvais nom de feuille.

A+++

 

[Al]

Bonjour

Je te remercie pour le code, mais j' ai un pb, lorsque je met dans Range
"A390", il me fait la copie en céllule A3900, je ne comprends pas,
Pourrais - tu m' expliquer pourquoi ?.
A part ça le code fonctionne correctement.

ws1.Range("A2:Z52", "C" & L).Copy Destination:=WS.Range("A390" & derniereligne) ' adapter la plage de cellule qu'on veut copier