Transferer un tableau d'un classeur vers un autre

Résolu/Fermé
VictorVM - Modifié le 21 avril 2021 à 10:55
yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 21 avril 2021 à 12:54
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 avril 2021 à 11:19
Bonjour,

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

2: [wsDestination.Cells(1, 1)]        'pas mettre de crochet
0
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 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > VictorVM
Modifié le 21 avril 2021 à 11:27
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 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024
21 avril 2021 à 12:44
Bonjour, ce n'était effectivement pas compliqué.. Merci!
0
yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > VictorVM
21 avril 2021 à 12:54
peux-tu alors marquer la discussion comme résolue?
0