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

zizoufan · 15 Décembre 2010

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 · 15 Décembre 2010

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

je regarde ca demain
A+

Banzai64 · 15 Décembre 2010

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")

Code:

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

fhoest · 16 Décembre 2010

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

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

zizoufan

XLDnaute Occasionnel

fhoest

XLDnaute Accro

Banzai64

XLDnaute Accro

fhoest

XLDnaute Accro

Discussions similaires

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

zizoufan

XLDnaute Occasionnel

fhoest

XLDnaute Accro

Banzai64

XLDnaute Accro

fhoest

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency