macro copi/coller sur 1ère ligne vide

[calou68]

Bonjour à tous,
J'ai cherché dans le forum une réponse mais après plusieurs essais je n'y arrive pas.
Exposé:
J'ai un fichier "doc1" que j'alimente des données (lignes et colonnes).
j'aimerais copier ce fichier de doc1 dans un fichier doc2 via une macro.
Cette macro devra aussi effacer la base de données du fichier doc1.
La semaine suivante, j'alimente à nouveau le fichier doc1 et la macro ira copier dans la première ligne vide de doc2 etc...

j'espère que vous aller me comprendre.

merci de votre aide.

 

[phlaurent55]

Re : macro copi/coller sur 1ère ligne vide

Bonjour calou,

essaie avec ceci:

   Cells((Range("A65535").End(xlUp).Row), 1, (Range("A65535").End(xlUp).Row), 8).Select
    Selection.Copy
    Windows("doc2(1).xls").Activate
    Range("A" & Range("A65535").End(xlUp).Row + 1).Select
    ActiveSheet.Paste

à te relire
à+
Philippe

 

[calou68]

Re : macro copi/coller sur 1ère ligne vide

merci Laurent pour ta réponse rapide,
j'insère ta formule dans une macro vierge mais cela ne fonctionne pas, désolé mais peux tu me créer cette macro.
merci pour ton aide
calou

 

[phlaurent55]

Re : macro copi/coller sur 1ère ligne vide

Re,

essaie plutot ceci:

Sub essai()
    Rows(Range("A65535").End(xlUp).Row).Select
    Selection.Copy
    Windows("doc2(1).xls").Activate
    Range("A" & Range("A65535").End(xlUp).Row + 1).Select
    ActiveSheet.Paste
End Sub

il est nécessaire que les deux classeurs soient ouverts

à+
Philippe

 

[calou68]

Re : macro copi/coller sur 1ère ligne vide

merci Phil pour ton aide, j'ai juste modifié la macro pour quelle fonctionne.

Sub essai()
Range("A2:N802").Select
Selection.Copy
Windows("doc2.xls").Activate
Range("A" & Range("A65535").End(xlUp).Row + 1).Select
ActiveSheet.Paste
End Sub

A BIENTOT