Copier valeurs d'un classeur vers un autre (1re ligne dispo)

Bonjour à tous,

J'ai un petit soucis pour copier des valeurs d'un classeur pour les coller dans un autre classeur. Voici une partie de mon code, c'est la partie en gras qui ne fonctionne pas.

Worksheets("Reporting").Unprotect

Range("B3:Q1500").Select

Selection.Copy

Range("B3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

Range("B3:Q1500").Select

Application.CutCopyMode = False

Workbooks.Open ("C:\Documents and Settings\NDreception\Bureau\Suivi Réception\Historique Réception")

Set ws = ActiveWorkbook.Worksheets("Histo")

Range("A65536").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Donc j'arrive à ouvrir le 2ème classeur "Historique Réception" sans problème, mais dès que je recherche la 1ère cellule vide pour coller mes valeurs c'est là que ça plante.

J'ai également essayé en mettant une partie de ma maccro sur le 2ème classeur et en l'appelant dans le 1er classeur, mais même résultat...

Quelqu'un a une idée ?

Bonjour

Tu n'a rien copié, donc tu ne peux rien coller !

remplace :

Range("B3:Q1500").Select
 Application.CutCopyMode = False

par :

Range("B3:Q1500").copy

et refais un essai.

Cela va-t-il mieux ?

Bonjour,

Autant pour moi... avec la fatigue je n'avais pas fais attention. Désolé du post inutile et merci de ta réponse !

@+