Copier coller entre deux classeurs

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Fred Duhart
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 25 janvier 2020

Message par Fred Duhart » 25 janvier 2020, 13:53

Bonjour à tous,

Je rencontre un problème de copier coller entre deux classeurs que je ne parviens pas à m'expliquer malgré mes recherches sur le forum.
Mon objectif est simple : copier une plage de cellule depuis un fichier source, vers un fichier de travail. voici mon code :
Sub test_impotrv2()


Set w_trav = ThisWorkbook
Nom_f_imp = Application.GetOpenFilename("Classeurs Excel(*.xlsx),*.xlsx, Macros complémentaires (*.xlsm),*.xlsm")
Set w_imp = Workbooks.Open(Nom_f_imp)

w_imp.Worksheets("Import Compta").Range(Cells(2, 1), Cells(10, 1)).Copy w_trav.Worksheets("Import FGA").Cells(2, 1)

End Sub
Cela ne marche pas je reçois une erreur 1004 sur la dernière ligne...

Où me suis-je fourvoyé?
merci de vos réponses.

Frédéric
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'568
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 25 janvier 2020, 14:31

Bonjour,

un fichier ??
essai ceci ...
Sub test_impotrv2()

Set w_trav = ThisWorkbook
Nom_f_imp = Application.GetOpenFilename("Classeurs Excel(*.xlsx),*.xlsx, Macros complémentaires (*.xlsm),*.xlsm")
Set w_imp = Workbooks.Open(Nom_f_imp)

w_imp.Worksheets("Import Compta").Range(Cells(2, 1), Cells(10, 1)).Copy destination:=w_trav.Worksheets("Import FGA").Cells(2, 1)

End Sub

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'568
Appréciations reçues : 755
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 25 janvier 2020, 14:38

exemple
Fred_Duhart.xlsx
(7.51 Kio) Téléchargé 2 fois
Duhart_Fred.xlsm
(14.06 Kio) Téléchargé 3 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
F
Fred Duhart
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 25 janvier 2020

Message par Fred Duhart » 27 janvier 2020, 08:07

Bonjour,

merci!
effectivement cela marche bien, sauf dans mes fichiers... Je ne parviens pas à comprendre... peut tre une histoire de fichier en lecture seule...

Je ne peux pas fournir les fichiers sources pour des questions de confidentialité. Je vais essayer de me débrouiller seul.

Merci encore pour l'aide!
F
Fred Duhart
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 25 janvier 2020

Message par Fred Duhart » 29 janvier 2020, 22:53

Je me réponds à moi même ayant résolu mon problème...
C'est l'appel de range avec les cells intégrés qui ne fonctionne pas :
ça :
w_imp.Worksheets("Import Compta").Range(Cells(2, 1), Cells(10, 1))
VBA semble ne pas trouver la plage car il n'est pas dans le fichier actif.

Ce qui est étrange c'est que cela fonctionne avec une plage défini avec Range ("A2;A10")...
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message