Transferer un tableau d'un classeur vers un autre [Résolu]

Signaler
-
Messages postés
15581
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2021
-
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

1 réponse

Messages postés
15767
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 mai 2021
1 489
Bonjour,

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

2: [wsDestination.Cells(1, 1)]        'pas mettre de crochet
Merci f894009 pour ta réponse, je ne comprend pas cette histoire de i. Où dois-je le mettre et a quoi sert il?
Messages postés
15581
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2021
853 > 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.
>
Messages postés
15581
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2021

Bonjour, ce n'était effectivement pas compliqué.. Merci!
Messages postés
15581
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2021
853 > VictorVM
peux-tu alors marquer la discussion comme résolue?