Boujour,
Je ne comprends pas pour quoi avec le code ci-dessous j'ai une erreur d'excécution "1004" Erreur définie par l'application ou par l'objet.

Détail environnement :
sur une feuille Excel d'un fichier x j'ai un bouton avec du code qui
1) ouvre une feuille Fy d'un autre fichier y déjà ouvert
2) fait un filtre sur la 2ème colonne
3) sélectionne et copie toutes les lignes résultat du filtre

Or la commande ci-dessous ne marche pas => elle fait une erreur "1004"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Select
alors que si je la teste sur un bouton avec le code sur cette feuille directement là elle fonctionne parfaitement.

Comment la coder pour qu'elle fonctionne à partir d'un autre fichier ouvert ?
Remarque qui peut être utile j'ai essayé ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Détail_ruptures").Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Select
mais là elle ne me sélection que les données des lignes 1 et 2 (i.e les lignes du filtre. Le filtre est en ligne 2) mais pas il manque les lignes résultat.

Ci-dessous le code utilisé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim Message, Title, Default
Message = "Nom du fichier contenant les données à copier (classeur1 par défaut)"
Default = "classeur1.xls"
titre = "Copie des données du jour"
FichOrigine = InputBox(Message, titre, Default)
Windows(FichOrigine).Activate
Sheets("Détail_ruptures").Activate
 
Selection.AutoFilter Field:=2, Criteria1:="199279"
Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Select => erreu 1004
Sheets("Détail_ruptures").Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Select => ne sélectionne que les données des 2 1ère lignes
Selection.Copy
End Sub
Merci beaucoup pour votre aide
Gaelle