Copier Coller

Bonjour,

Je suis en train de creer une macro mais je bloque sur la partie copier/ coller.

Classeur A : Donnees a copier (nbre de colonnes et lignes bougent tout le temps)

Classeur B : Donnees a coller sur la ligne 2.

Je souhaiterai coller une plage de donnees dans un 2 eme classeur a partir de B2 (car en colonne A, je rajoute la date ).

Public Sub ctr()

Workbooks.Open Filename:="\\.....A.....xls"

Sheets("..Aa..").Rows("3:3").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Delete Shift:=xlUp

ActiveWorkbook.Save

Workbooks.Open Filename:="\\.....B...xls"

ActiveSheet.Select

Workbooks("..A..xls").Sheets("..Aa..").").Activate

Range("B2").Paste

End Sub

Je joins en PJ un exemple de fichier.

Merci,

Hello,

Quelqu'un peut m'aider svp ?

Bonsoir,

Tu ne dis pas si le classeur de copie existe.

Pour le code, essaie celui-ci:

Sub Macro1()
' Macro1 Macro
'
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    Range("B2").Select
    ActiveSheet.Paste

End Sub

Normalement cela fonctionne.

Cordialement.

Hello,

merci j'ai essaye mais quand j'ai recopie le code tel quel, les donnees ont ete recopies dans un nouvel classeur.

Apres avoir change le code de maniere a specifier ou coller les donnees, ca marche pas (object does not support this property or method),

Public Sub ctr()

Workbooks.Open Filename:="\\.....A.....xls"

Sheets("..Aa..").Rows("3:3").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Delete Shift:=xlUp

ActiveWorkbook.Save

Workbooks.Open Filename:="\\.....B...xls"

ActiveSheet.Select

ActiveSheet.Activate

Range("A1").Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

Workbooks(".....A....xls").Sheets("...Aa.").Add

Range("B2").Select

ActiveSheet.Paste

End Sub

Bonjour.

As tu trouvé la solution?

Désolé mais j'ai été archi surbooké.

On en reparle après les fêtes sinon.

Bonne fin d'année.

hello,

pas de souci, j'avais trouve l'erreur.

Bonjour,

Super!

Si l'erreur venait du code, merci de me le préciser que je ne recommence pas.

Cordialement

Public Sub ctr()

Workbooks.Open Filename:="\\.....A.....xls"

Sheets("..Aa..").Rows("3:3").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Delete Shift:=xlUp

ActiveWorkbook.Save

Workbooks.Open Filename:="\\.....B...xls"

ActiveSheet.Select

ActiveSheet.Activate

Range("A1").Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

Workbooks(".....A....xls").Sheets("...Aa.").Activate

Range("B2").Select

ActiveSheet.Paste

Merci.

Oui effectivement, c'est une erreur de sélection de code.

Désolé