Discussion :

[DeeDee75]

Bonjour à tous,

Je souhaiterais exécuter une macro afin de copier-coller une sélection d'un classeur à un autre.

Ma macro fonctionne jusqu'à la copie de sélection mais ensuite je suis bloqué.

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
Sub Test()
Dim wkA As Workbook, wkB As Workbook
 
Dim chemin As String, fichier As String
 
Set wkA = ThisWorkbook
 
chemin = "C:\xxx\xxx\xxx\"
 
fichier = Range("A1") & ".xlsx"
 
Workbooks.Open chemin & fichier
 
Set wkB = ActiveWorkbook
        Sheets("Results1").Activate
        Range("A1").CurrentRegion.Select
        Selection.Copy
 
    wkA.Sheets("Results2").Activate
        Range("A1").Select
        Selection.Paste
 
    wkB.Close False
 
End Sub

Merci pour aide

[MarcelG]

Bonjour DeeDee,

mais ensuite je suis bloqué.

Quel est le message d'erreur?
Sur quelle ligne de code (surlignée généralement en jaune) porte-t-il?

Cela dit, la méthode Copy peut s'argumenter en une ligne.

Cette méthode est décrite ici.

Et surtout, tu peux retirer ces f.. Select qui n'ajoutent rien au code si ce n'est de la confusion.

[DeeDee75]

Merci de ton retour.

Le message d'erreur est

Erreur d'exécution 9, L'indice n'appartient pas à la sélection.

Le blocage est sur la ligne 19.

[MarcelG]

Salut,

Autrement dit, le code bloque sur

Code :

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

wkA.Sheets("Results2").Activate

Peux-tu t'assurer que cette feuille existe dans la classeur où est rédigée la procédure.

Cela dit, comme je l'ai mentionné, la méthode Copy tient en 1 ligne de code.
As-tu consulté le lien que je t'ai reporté?

Tu peux essayer de coder dans le sens indiqué, puis retourner le code modifié en cas de difficulté.

[DeeDee75]

J'ai effectivement déplacé mon module dans le bon classeur et "ça fonctionne" mais...

...maintenant il y a un blocage à la ligne 21 "Erreur 438, Propriété ou méthode non gérée par cet objet"

J'ai essayé avec le code proposé dans ton lien mais ça ne fonctionne pas.

[MarcelG]

J'ai essayé avec le code proposé dans ton lien mais ça ne fonctionne pas.

Pourquoi?
Quelle erreur sur quelle ligne?
A nouveau, reporte ici le code modifié par toi et s'inspirant de la description de la méthode Copy dont je t'ai indiqué le lien.

[DeeDee75]

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
Sub Test()
Dim wkA As Workbook, wkB As Workbook
 
Dim chemin As String, fichier As String
 
Set wkA = ThisWorkbook
 
chemin = "C:\xxx\xxx\xxx\"
 
fichier = Range("A1") & ".xlsx"
 
Workbooks.Open chemin & fichier
 
Set wkB = ActiveWorkbook
        Sheets("Results1").Activate
        Range("A1").CurrentRegion.Select
        Selection.Copy
 
    wkA.Sheets("Results2").Activate
        Range("A1").Select
        ActiveSheet.Paste
 
    wkB.Close False
 
End Sub

C'est bon le code fonctionne avec la modification en ligne 21.

Merci beaucoup pour ton aide

[MarcelG]

De rien mais j'insiste.

Donc, s'il te plaît:
- Tiens compte de mes remarque
- Retourne le code contenant la méthode Copy codée correctement, selon le lien indiqué dans mon post.

Sans vouloir paraître présomptueux, je dirais que tu as de la rigueur à acquérir.
Celle-ci peut s'obtenir à la condition de faire l'effort de coder selon les modèles qui nous sont retournés, ici l'aide Microsoft, demain le code d'un membre du Forum, etc...