"L'indice n'appartient pas à la sélection"

Question

Bonjour,

Je suis débutante en VBA, et je ne parviens pas à comprendre l'erreur de ce code (erreur correspondant au titre) :

Workbooks("ExportBudget (10) - Copie.xls").Sheets("ExportBudget").Range("Organisation") = Workbooks("Classeur3.xls").Sheets("Feuil1").Range("Organisation")

Le nom des deux classeurs correspondant bien à ceux dans le code (à part peut être le .xls , cela pourrait-il venir de là ?), pareil pour le nom des feuilles, et j'ai bien une sélection nommée "Organisation" dans chacun des tableaux. Peut être le code en soit est incorrect, je souhaite simplement importer le contenu de la colonne "Organisation" du tableau ExportBudget dans la colonne du même nom du tableau Classeur3. 

Merci d'avance !

NHenry · Answer

Sélectionne une partie (cohérente) de ta ligne et fais Shift+F9 pour voir la valeur et voir quelle partie ne fonctionne pas.

ccm81 · Answer

Bonjour

Essaies plutot comme ceci 
Workbooks("F1.xls").Sheets(1).Range("plage").Copy Workbooks("F2.xls").Sheets(1).Range("plage").Cells(1, 1)

RQ. les 2 fichiers doivent être ouverts dans la même session d'excel (tu dois les voir tous les deux avec Fenêtre)

Cdlmnt

I'm Someone · Answer

Je me suis rabattue sur ce code, qui fonctionne mais qui n'est pas très pratique, si il y a moyen de le raccourcir je suis preneuse :

Sub copie_organisation()
Windows("F1").Activate
Workbooks("F1").Sheets("ExportBudget").Range("Organisation").Select
Selection.Copy
Windows("Classeur3").Activate
Workbooks("Classeur3").Sheets("Feuil1").Range("Organisation").Select
ActiveSheet.Paste
End Sub

"L'indice n'appartient pas à la sélection"

3 réponses

Discussions similaires

Newsletters