"L'indice n'appartient pas à la sélection"
I'm Someone
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
I'm Someone Messages postés 44 Date d'inscription Statut Membre Dernière intervention -
I'm Someone Messages postés 44 Date d'inscription Statut Membre Dernière intervention -
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 !
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 !
A voir également:
- L'indice n'appartient pas à la sélection vba tableau
- Tableau word - Guide
- Tableau ascii - Guide
- Indice téléphonique - Guide
- A qui appartient ce numéro - Guide
- Trier un tableau excel - Guide
3 réponses
Sélectionne une partie (cohérente) de ta ligne et fais Shift+F9 pour voir la valeur et voir quelle partie ne fonctionne pas.
I'm Someone
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
Je n'y arrive pas, enfin toute la ligne pose problème et je n'arrive pas à identifier la partie qui ne fonctionne pas ...
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
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
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
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
