Selectionner toutes les cellules
trustpol
Messages postés
36
Statut
Membre
-
abdelno69 -
abdelno69 -
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
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
A voir également:
- Selectionner toutes les cellules
- Formule excel pour additionner plusieurs cellules - Guide
- Selectionner toutes les photos google photo - Guide
- Verrouiller cellules excel - Guide
- Selectionner texte sur pdf - Guide
- Concatener deux cellules excel - Guide