recuperer les données de plusieurs feuilles dans une seule f

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
t
tigeline001
Membre habitué
Membre habitué
Messages : 76
Inscrit le : 12 mars 2016
Version d'Excel : 2010

Message par tigeline001 » 14 juin 2016, 16:29

Bonjour tout le monde
j'ai un classeur de 3 feuilles se trouvant dans deux classeurs .je voudrais récupérer les données des feuilles Feuil1 et Feuil2 du classeur1 et les coller dans Feuil1 du deuxieme classeur.
Jai fait un code mais j'ai toujours une erreur.
Public Sub Transfert_Gric()
Dim classeurSource As Workbook, classeurDestination As Workbook
Dim classeurSource1 As Workbook

Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open("\\classeur1.xlsx")
classeurSource.Sheets(1).Cells.Copy classeurDestination.Sheets(1).Range("A1")
classeurSource.Sheets(2).Cells.Copy classeurDestination.Sheets(1).Range("U1")

classeurSource.Close

End Sub
test_gric.xlsm
(67.54 Kio) Téléchargé 47 fois
Classeur1.xlsx
(10.41 Kio) Téléchargé 41 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 14 juin 2016, 20:29

Bonjour

Essaie ce code :
Public Sub Transfert_Gric()

    Dim classeurSource As Workbook, classeurDestination As Workbook
    Dim classeurSource1 As Workbook
    Set classeurDestination = ThisWorkbook
    Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur1.xlsx"
    Set classeurSource = ActiveWorkbook
    classeurSource.Sheets(1).UsedRange.Copy classeurDestination.Sheets(1).Range("R1")
    classeurSource.Sheets(2).UsedRange.Copy classeurDestination.Sheets(1).Range("AI1")
    classeurSource.Close
End Sub
Bye !
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'559
Appréciations reçues : 174
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 14 juin 2016, 20:30

Bonjour,
Modifier comme suit :
Public Sub Transfert_Gric()
Dim WsS As Workbook, WsD As Workbook
Set WsD = ThisWorkbook
Set WsS = Application.Workbooks.Open("\\classeur1.xlsx"
WsS.Worksheets(1).Cells.Copy WsD.Worksheets(1).Range("A1")
WsS.Worksheets(2).Range("A1:N10").Copy WsD.Worksheets(1).Range("U1")
WsS.Close
End Sub
...Si nécessaire ajuster la plage "A1:N10"
A+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
t
tigeline001
Membre habitué
Membre habitué
Messages : 76
Inscrit le : 12 mars 2016
Version d'Excel : 2010

Message par tigeline001 » 15 juin 2016, 17:32

Merci galopin01 et gmb
Ça marche très bien vos solutions
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message