Discussion :

[djjilou]

Bonjour,

A partir de deux fichiers excel que j'ouvre, je veux sélectionner dans chacun de ces fichiers une plage de données.
Problème: au moment de sélectionner cette plage l'erreur magique apparaît:
"erreur d'exécution '1004' La méthode Select de la classe Range a échoué".

J'ai cherché sur les forums les gens ayant déjà rencontré ces erreurs, mais il semble que ce soit un problème de syntaxe en général, j'ai donc du mal à trouver par moi même la solution et je vous remercie pour l'aide que vous pourriez m'apporter. Voici 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim Fichier1 As Variant
Dim Fichier2 As Variant
 
Dim Wkb1 As Workbook
Dim Wkb2 As Workbook
 
Dim Wks1 As Worksheet
Dim Wks2 As Worksheet
 
'Open the 2 data files needed
'-----------------------------------------------------------
MsgBox ("Choose first extract")
Fichier1 = Application.GetOpenFilename
If Fichier1 = False Then
MsgBox ("You must choose 2 ACP extracts, please try again")
Exit Sub
End If
 
MsgBox ("Choose second extract")
Fichier2 = Application.GetOpenFilename
If Fichier2 = False Then
MsgBox ("You must choose 2 ACP extracts, please try again")
Exit Sub
End If
 
Set Wkb1 = Workbooks.Open(Filename:=Fichier1)
Set Wkb2 = Workbooks.Open(Filename:=Fichier2)
Set Wks1 = Wkb1.Worksheets("Sheet1")
Set Wks2 = Wkb2.Worksheets("Sheet1")
 
 
'Copy data from opened files
'--------------------------------------------------------------------------------
Wks1.Range("A1:BE4000").Select 'ERREUR 1004 ICI
Selection.Copy

J'ai essayé aussi en remplaçant Worksheets("Sheet1") par Sheets(1).

[gFZT82]

Bonjour,

Essaie avec

Code :

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

1
2
3
    'Copy data from opened files
    '--------------------------------------------------------------------------------
    Wks1.Range("A1:BE4000").Copy

Cordialement.

[djjilou]

Bonjour gFZT82,

Je vous remercie pour votre réponse.
Le fait de ne pas sélectionner et copier directement la plage de données fonctionne bien.

Auriez-vous une explication à me fournir pour ne pas répéter mon erreur?

Merci
Bonne journée

[gFZT82]

Premier conseil : éviter l'utilisation de Select autant que possible.

Pour sélectionner ta plage, il aurait fallu que tu actives d'abord ta feuille.

Code :

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

1
2
3
4
5
'Copy data from opened files
'--------------------------------------------------------------------------------
Wks1.Activate
Wks1.Range("A1:BE4000").Select
Selection.Copy

Cordialement.

[djjilou]

Très bien, merci pour vos explications,

Bonne journée.