Discussion :

[ourse_blond]

bonjour
J'ai un classeur ouvert et je voudrais copier une plage nommée d'un autre classeur
J'ai utilisé ce code :
En fait je teste avec une seule cellule mais le but est de copier une plage nommée du classeur 2 vers une plage nommée vers le classeur 1. Les plages ayant la même dimension.

Code

Code :

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

ThisWorbook.Sheets("Pilote").Range("A1") = Workbooks("Portefeuille_1.xls").Sheets("Carrefour_SRD").Range("d3").value

Et j'ai une erreur 9

- "Pilote" est la feuille de destination du classeur ouvert
- "Portefeuille_1.xls" est le classeur contenant les données à copier dans la feuille "Carrefour_SRD"
En final "A1" sera remplacé par "Pilote_a" , plage nommée et "d3" remplacé par "Carrefour" plage nommée
Les deux plages de même dimension

merçi pour vos réponses

[Invité]

Bonjour,

Une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CopierZoneNommee()
 
Dim AireSource As Range, CelluleCible As Range
 
    Set CelluleCible = Sheets("Pilote").Range("Pilote_a").Cells(1)
    Set AireSource = Workbooks("Portefeuille_1.xlsm").Sheets("Carrefour_SRD").Range("Carrefour")
 
    AireSource.Copy Destination:=CelluleCible
 
    Set CelluleCible = Nothing
    Set AireSource = Nothing
 
End Sub

[ourse_blond]

bonjour,
Je n'avais pas précisé ma version qui est Excel 2000.
Merci pour la réponse mais j'ai une erreur à la ligne 7

code :

Code :

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

Set AireSource = Workbooks("Portefeuille_1.xlsm").Sheets("Carrefour_SRD").Range("Carrefour")

que j'ai modifié par

code :

Code :

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

Set AireSource = Workbooks("Portefeuille_1.xls").Sheets("Carrefour_SRD").Range("Carrefour")

mais c'est pareil


La macros est appelée par un bouton créé dans formulaire




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

merci de votre aide

[Invité]

Avec l'enregistreur de macro, simulez la sélection de l'aire Carrefour dans votre fichier 2 à partir du fichier 1, et regardez la syntaxe du code produit.

[ourse_blond]

Bonsoir,
J'ai résolu le problème en ayant ouvert les deux classeurs par VBA puis j'ai suivi votre conseil d'enregistrement automatique et j'ai retranscrit le code pour l'adapter à la gestion de plage .
Finalement cela ne me gêne pas d'ouvrir le classeur car dans l'évolution de l'application, j'aurai 10 feuilles à traiter par classeurs.
Merci de m'avoir aidé et le site est super.
Je note Résolu