Mon code ne fonctionne pas

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:

---

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 ...

Bonjour,

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

Cordialement.

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

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"

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 :)

Citation:

---

Envoyé par VBANoJutsu

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:

---

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:

---

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

---

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

Cordialement.

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:

---

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.

Une proposition:

Code:

---

1 2 3 4 5 6

mois = Array("janvier", "février") 'je te laisse ajouté les autres mois j'ai la flemme For i = 0 To UBound(mois) Worksheets(mois(i)).Range("C5").Copy Worksheets("synthese").Range("B" & i + 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i

---