Discussion :

[VBANoJutsu]

Salut tout le monde, je me permets de poster car je ne comprends pas pourquoi mon code ne fonctionne pas ... Je souhaite simplement copier/coller une feuille d'un classeur à l'autre or j'ai toujours la même erreur : indice n'appartient pas à la selection ( https://docs.microsoft.com/fr-fr/off...-range-error-9 )

Code :

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

1
2
3
4
5
6
7
8
 
Sub CopierFeuille()
 
Workbooks("ok.xlsx").Worksheets(1).Range("A2:C8").Copy _
Workbooks("Classeur1.xlsx").Worksheets(2).Range("A2")
 
 
End Sub

Si quelqu'un peut me corriger et surtout m'expliquer pourquoi mon code est mauvais , j'aimerais vraiment progresser ...

[gFZT82]

Bonjour,

As-tu vérifié que le classeur "Classeur1.xlsx" a bien 2 feuilles ?

Cordialement.

[VBANoJutsu]

Hello , oui j'ai vérifié , il a bien 2 feuilles.

[Trystan441]

Bonjour,

Dans tes 2 lignes, tu fais références à des feuilles par leur Index. Sauf que ceux-ci ne sont pas forcément correct si jamais tu as fait des insertions ou des suppressions de feuilles dans ton classeur.

Pour sécuriser ça, appelles plutôt ta feuille par son "Nom"

[linkenan]

Bonjour,
toutes tes feuilles sont bien des feuilles de calculs ? Si non tu dois les appeler en tant que Sheets et non Worksheets.
https://www.developpez.net/forums/d6...ts-worksheets/
Sinon il me semble que la syntaxe est bonne :/
En espérant pouvoir t'aider

[gFZT82]

Es-tu sûr que les 2 classeurs ont une extension "xlsx" ?
Dans quel classeur se trouve la macro ?

Cordialement.

[VBANoJutsu]

Merci à tous, ma macro se trouvait dans le classeur1

Il semblerait que l'erreur vienne du fait que je n'avais pas encore enregistré le classeur1 , est ce possible que soit la cause ? Une fois enregistré cela fonctionnait.

J'aimerais aussi poser une question , quelqu'un pourrait m'expliquer comment simplifier ceci (je l'ai crée, ca fonctionne très bien mais j'ai l'impression que c'est mega lourd) :

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
Worksheets("Janvier").Range("C5").Copy
Worksheets("synthese").Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Worksheets("Février").Range("C5").Copy
Worksheets("synthese").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Worksheets("Mars").Range("C5").Copy
Worksheets("synthese").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Worksheets("Avril").Range("C5").Copy
Worksheets("synthese").Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Worksheets("Mai").Range("C5").Copy
Worksheets("synthese").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Worksheets("Juin").Range("C5").Copy
Worksheets("synthese").Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Il n'est pas possible d'utiliser un WITH Worksheets et à chaque ligne renseigner le nom de la feuille ? Je n'ai pas réussi

PS : mon but ici est d'aller cherche dans les cellules des differentes worksheets des valeurs que j'importe dans la feuille synthese (uniquement en valeur, pas de formules .... ).

Merci à tout ceux qui ont repondu.

[halaster08]

Si quelqu'un peut me corriger et surtout m'expliquer pourquoi mon code est mauvais , j'aimerais vraiment progresser ...

Bonjour,

"l'indice n'appartient pas à la selection" veut dire qu'il ne trouve pas soit l'un de tes classeurs soit l'une des feuilles
Vu que tu as écris ton code sur une seule ligne (ce qui est très bien, quand ça marche) il plus dur de trouver où se trouve l'erreur
Je te propose donc de le décomposer pour trouver quel classeur/feuille pose problème, lance le code ci-dessous et dis nous où l'erreur apparait:

Code :

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

1
2
3
4
Workbooks("ok.xlsx").activate
Worksheets(1).activate
Workbooks("Classeur1.xlsx").activate
Worksheets(2).activate

Il devrait planté dès la première ligne, en effet il ne faut pas mettre l'extension du fichier dans workbooks
Essaye donc:

Code :

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

1
2
3
4
5
6
7
8
 
Sub CopierFeuille()
 
Workbooks("ok").Worksheets(1).Range("A2:C8").Copy _
Workbooks("Classeur1").Worksheets(2).Range("A2")
 
 
End Sub