Bonjour à tous,

Encore une fois merci pour la richesse de ce forum.
Je vous explique mon cas avant de donner mon code :

Je veux, à partir d'un classeur "1", cliquer sur un bouton et :
- ouvrir un autre classeur "2"
- placer un filtre sur un tableau
- filtrer deux colonnes
- copier le tableau en entier (solution choisie : usedrange + copy)
- le coller dans la feuille "Dépose Extraction" dans le classeur "1"

Mon problème : erreur 1004 lié à la fameuse zone de forme et de taille identique.

Existe-t-il une méthode ou une solution pour passer à travers ce problème ?
J'ai cherché sur de nombreux forums sans trouver, sûrement faute d'utiliser les bons mots clés (débutant VBA).

Le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub extractionautotest()
 
'ouverture du fichiers'
Application.Workbooks.Open "R:\..."
 
'mise en place des filtres'
Range("A5").AutoFilter Field:=2, Criteria1:="VS"
Range("A5").AutoFilter Field:=11, Criteria1:="ASW"
 
'copie du tableau filtré'
ActiveSheet.UsedRange.Copy (Workbooks(1).Worksheets("Dépose Extraction"))
 
'copie qui coince'
ActiveSheet.UsedRange.Copy
Workbooks(1).Sheets("Dépose Extraction").Paste Destination:=Range("A1")
 
End Sub
Merci à l'avance pour vos conseils. N'hésitez pas à critiquer la logique de la procédure si un système plus efficace existe.

Cordialement,

Guillaume