[RESOLU] Copie After Used.Range??

[sim]

Re-Bonjour a toutes et a tous,

Est ce que quelqu'un pourrai m'aider a programmer une copie apres la derniere cellule active.

la plage a copier est definit comme ceci

Dim rst As Object: Set rst = CreateObject("ADODB.Recordset")
Set rst = cnn.Execute("SELECT * FROM [" & SH_RAW_DATA & "$]")

.Range("A2").CopyFromRecordset rst

Je voudrai juste la ou les lignes de code me permettant de remplacer, s'il vous plait, j'ai chercher partout je trouve pas la solution

.Range("A2").CopyFromRecordset rst

par CopyFromRecordset rst after used range

Merci d'avance 🙂

Sim

 

[Pierrot93]

Re : Copie After Used.Range??

Bonjour,

modifie peut être ainsi... avec les informations fournies... :

    .Range("A65536").End(xlUp)(2).CopyFromRecordset Rst

bon après midi
@+

 

[sim]

Re : Copie After Used.Range??

Bonjour Pierrot93,

Super c'est ce que je voulais, comme toujour 🙂))

Merci beaucoup

Sim