Discussion :

[Needz]

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

[Needz]

Après quelques essais j'arrive à un code qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Cells.Copy
Workbooks(1).Sheets("Dépose Extraction").Activate
Sheets("Dépose Extraction").Range("A1").Select
ActiveSheet.Paste

Mais normalement il faut éviter les .select dans le code. Malheureusement je n'arrive pas à faire autrement... Si quelqu'un veut m'aider je l'invite à me contacter directement en MP, je clos le sujet dans 5 min étant donné que j'ai quand même la solution à mon problème.