Transferer un tableau d'un classeur vers un autre

Résolu
VictorVM -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

Ce que je dois faire n'est pas bien complexe mais n'ayant aucune expérience en VBA je suis en totale galère.

Pour faire simple je veux récupérer l'ensemble des donnés d'un tableau pour les traiter ensuite dans un autre classeur.

pour l'Instant j'ai le code suivant:
Sub importation()

Dim wbDestination As Workbook
Dim wsDestination As Worksheet
Dim wbDonee As Workbook
Dim wsDonee As Worksheet

Set wbDestination = ActiveWorkbook
Set wsDestinaton = wbDestination.Worksheets(1)
Set wbDonee = Workbooks.Open("C:\Users\Utilisateur\Desktop\Extract\Classeur MCO.xlsx")
Set wsDonee = wbDonee.Worksheets(1)


wsDonee.Cells(1, 1).CurrentRegion.Copy [wsDestination.Cells(1, 1)]
wbDonee.Close False
Set wbDonee = Nothing

End Sub


(gracieusement pompé ici: https://learning.xylos.com/fr/learning/blog/astuce-2-traitement-donnees-excel-vba-ouvrir-fichier-transf%C3%A9rer-donn%C3%A9es-vers-fichier-cible)

malheureusement quand je le lance j'ai le droit à ce message d'erreur:

"la méthode Copy dans la classe range a échoué."

Sans savoir que faire..

Merci par avance :)

Configuration: Windows / Firefox 68.0
A voir également:

1 réponse

f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

1: Set wsDestinaton = wbDestination.Worksheets(1) ' manque un "i"

2: [wsDestination.Cells(1, 1)]        'pas mettre de crochet
0
VictorVM
 
Merci f894009 pour ta réponse, je ne comprend pas cette histoire de i. Où dois-je le mettre et a quoi sert il?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > VictorVM
 
bonjour,
le i doit être mis entre le t et le o.
ajoute
option explicit
en début de module, cela t'aidera à découvrir tes erreurs.
0
VictorVM > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour, ce n'était effectivement pas compliqué.. Merci!
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > VictorVM
 
peux-tu alors marquer la discussion comme résolue?
0