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

Bonsoir,
quelle erreur rencontres tu ?
il manque end sub sur ta macro pour commencer.
A+

 

[Softmama]

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

Bonsoir,

Pas clair pour le moment... D'après la macro, il y a 3 classeurs ouverts : source.xlsx, résultats.xlsm, mais le 3ème, on sait pas trop ?
De plus, la macro copie la cellule C5 de chaque classeur et va la placer au même endroit dans le classeur Résultats... Je vois pas trop l'intérêt.

 

[zizoufan]

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

Bonsoir,

Pas clair pour le moment... D'après la macro, il y a 3 classeurs ouverts : source.xlsx, résultats.xlsm, mais le 3ème, on sait pas trop ?
De plus, la macro copie la cellule C5 de chaque classeur et va la placer au même endroit dans le classeur Résultats... Je vois pas trop l'intérêt.

En fait je veux copier de plusieurs feuilles la cellule C5 et la coller dans résultats.xlsm !
pour une seule feuille j'arrive à avoir le résultat mais je n'arrive pas à faire une boucle.
je suis novice en VBA.

merci pour votre aide.

 

[fhoest]

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

Sub Import()
Dim i As Integer
dim variable as string
Application.ScreenUpdating = 0

Workbooks.Open ("C:\Users\marouan\Desktop\source.xlsx")
For i = 1 To 3
variable=Worksheets(i).Range("C5").value
' ci dessous tu recopie 3 fois au meme endroit donc tu ecrase et tu n'as que la dernière valeur
Workbooks("resultat.xlsm").Range("B22")=variable
Next i

Application.DisplayAlerts = 0
Workbooks("source.xlsx").Close
'pq range("e1")select ?
Range("E1").Select
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1
end sub

ci dessus un code diféremment ecrit qui fait la même chose ,mais comme le signal Softmama que je salut au passage tu écrit 3 fois au même endroit.
A+

 

[zizoufan]

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

Sub Import()
Dim i As Integer
dim variable as string
Application.ScreenUpdating = 0

Workbooks.Open ("C:\Users\marouan\Desktop\source.xlsx")
For i = 1 To 3
variable=Worksheets(i).Range("C5").value
' ci dessous tu recopie 3 fois au meme endroit donc tu ecrase et tu n'as que la dernière valeur
Workbooks("resultat.xlsm").Range("B22")=variable
Next i

Application.DisplayAlerts = 0
Workbooks("source.xlsx").Close
'pq range("e1")select ?
Range("E1").Select
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1
end sub

ci dessus un code diféremment ecrit qui fait la même chose ,mais comme le signal Softmama que je salut au passage tu écrit 3 fois au même endroit.
A+

C'est gentil à toi de répondre. le code est bien mais je voudrais coller sur la plage B2😀2 puisque la condition For est de i=1 to 3
en fait le code ci-dessous ne marche pas :
Workbooks("resultat.xlsm").Range("B22") = variable

 

[fhoest]

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

C'est gentil à toi de répondre. le code est bien mais je voudrais coller sur la plage B2😀2 puisque la condition For est de i=1 to 3
en fait le code ci-dessous ne marche pas :
Workbooks("resultat.xlsm").Range("B22") = variable

je ne voyait pas la plage correctement car le "😀" = émoticone je corrige le code maintenant que j'ai vu le : et le D
A tout de suite

 

[fhoest]

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

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

Workbooks.Open ("C:\Users\marouan\Desktop\source.xlsx")
For i = 1 To 3
Workbooks("resultat.xlsm").cells(2,i+1)=Worksheets(i).Range("C5").value
Next i

Application.DisplayAlerts = 0
Workbooks("source.xlsx").Close
'pq range("e1")select ?
Range("E1").Select
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1
end sub

essai ceci pas tester parceque je ne possède pas les fichiers
A+

 

[zizoufan]

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

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

Workbooks.Open ("C:\Users\marouan\Desktop\source.xlsx")
For i = 1 To 3
Workbooks("resultat.xlsm").cells(2,i+1)=Worksheets(i).Range("C5").value
Next i

Application.DisplayAlerts = [B]0
Workbooks("source.xlsx").Close
'pq range("e1")select ?
Range("E1").[/B]Select
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1
end sub

essai ceci pas tester parceque je ne possède pas les fichiers
A+

propriété ou méthode non géré par cet objet dans la ligne 10 du code

 

[fhoest]

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

pas écrit ceci moi:
Application.DisplayAlerts = 0
A+

 

[zizoufan]

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

Excuse moi l'erreur se manifeste dans cette ligne :

Workbooks("resultat.xlsm").cells(2,i+1)=Worksheets(i).Range("C5").value

merci beaucoup

 

[fhoest]

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

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

A remplacer par ceci.

 

[zizoufan]

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

ca renvoit toujours la même erreur. Pourtant ca me semble logique ton code ??

 

[fhoest]

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

erreur sur quel ligne et quel est la valeur de i au moment de l'erreur utilise les points d'arret F9 devant la ligne et F8 pour le mode debuggage vba
y a t il trois feuille dans le dossier source.xlsx?
A+

 

[zizoufan]

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



c'est la ou ca bloque. ca donne aucun résultat.
j'ai effectivement trois feuilles dans le fichier source nommés jan, fev,mar