Selectionner toutes les cellules

Fermé
trustpol Messages postés 36 Date d'inscription mardi 1 avril 2008 Statut Membre Dernière intervention 25 avril 2008 - 3 avril 2008 à 16:48
 abdelno69 - 10 avril 2008 à 17:57
Bonjour,

je veux effectuer la copie de toutes les cellules d'une feuille et les coller sur une autre.

mais cela ne marche pas.

voici mon code

Private Sub Ouvrir()
Workbooks.OpenText Filename:= _
"D:\XXXX\YYYYY\15 janvier 2008.xls"
Windows("15 janvier 2008.xls").Activate
Cells.Select
Selection.Copy
Windows("rapatriement et tri relevés AS 24.xls").Activate
Cells.Select
ActiveSheet.Paste
Workbooks("15 janvier 2008.xls").Close SaveChanges:=False

End Sub


il bloque au niveau de "cells.select" a la 5 ème ligne.

Merci de votre aide

Cordialement

1 réponse

apuie sur

ctrl + A

sa selectionne tout
et ta juste a copier
0