Récupérer des données de plusieurs feuilles d'un fichier excel en VBA

[zizoufan]

Bonsoir,

Je voudrais récupérer des données sur plusieurs feuilles d'un fichier excel pour les coller dans un autre fichier.
j'utilise le code suivant mais cela ne marche :

Sub Import()
Dim i As Integer
Application.ScreenUpdating = 0

Workbooks.Open ("C:\Users\marouan\Desktop\source.xlsx")
For i = 1 To 3
Worksheets(i).Range("C5").Copy
Windows("resultat.xlsm").Activate
Range("B2😀2").Select
ActiveSheet.Paste

Next i

Application.DisplayAlerts = 0
Windows("source.xlsx").Activate
ActiveWindow.Close
Range("E1").Select
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1

Merci de votre aide

 

[fhoest]

Re : Récupérer des données de plusieurs feuilles d'un fichier excel en VBA

je regarde ca demain
A+

 

[Banzai64]

Re : Récupérer des données de plusieurs feuilles d'un fichier excel en VBA

Bonsoir
A tout hasard il manquerait pas un Sheets("xyz")

with Workbooks("resultat.xlsm").Sheets("xyz")
.cells(2, i + 1)=workbooks("source.xlsx").sheets (i).Range("C5")
end with

 

[fhoest]

Re : Récupérer des données de plusieurs feuilles d'un fichier excel en VBA

Bonjour banzai64,
bien vu je l'avais complètement oublié celui la
Merci