macro copi/coller sur 1ère ligne vide

calou68 · 9 Juin 2010

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 · 9 Juin 2010

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

Bonjour calou,

essaie avec ceci:

Code:

   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 · 9 Juin 2010

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 · 9 Juin 2010

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

Re,

essaie plutot ceci:

Code:

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 · 9 Juin 2010

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

macro copi/coller sur 1ère ligne vide

calou68

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

calou68

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

calou68

XLDnaute Nouveau

Discussions similaires