Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Recuperer le contenu d'une cellule situé dans des fichiers differents organisés de manière identique pour en faire unze base de donnée sur excel

2 réponses
Avatar
malabar
Bonjour tout le monde

j'ai differents fichier xls qui comportent des informations mais qui ne
sont pas par exemple organisé en base de données.


Exemple fichier 1 .xls Code AKL cellule B4 interlocuteur jean
Exemple fichier 2. xls Code EZE cellule B4 interlocuteur pierre
XXX
XXX
XXX
XXX
XXX
Exemple fichier 100. xls Code CDG cellule B4 interlocuteur paul

Ce que je veux obtenir
Fichier Recap

Cellule A1 Cellule A2
code Interlocuteur
AKL Jean
EZE Pierre

Merci pour vos réponses
Amicalement Francisco

2 réponses

Avatar
malabar
Merci beaucoup pour ta reponse
Bonne soirée à tous et à toutes
"David" a écrit dans le message de news:

Bonjour,

Pour cela tu peux faire une fonction VBA toute simple :
sub exemple ( )
Dim fichierFinal As Workbook

Set fichierFinal = Workbooks.Open("D:fichierFinal.xls")

for i=0 to 100

Dim fichierXLCourant As Workbook

Set fichierXLCourant = Workbooks.Open("D:fichier"+i+".xls")

fichierFinal.worksheets(1).cells(1,i+1) > fichierXLCourant.Worksheets(1).Range("b4").Value

Set fichierFinal= Nothing

next

end sub
En esperant que cela t'aide

David


"malabar" wrote in message
news:44550550$0$29214$
Bonjour tout le monde

j'ai differents fichier xls qui comportent des informations mais qui ne
sont pas par exemple organisé en base de données.


Exemple fichier 1 .xls Code AKL cellule B4 interlocuteur jean
Exemple fichier 2. xls Code EZE cellule B4 interlocuteur
pierre


XXX
XXX
XXX
XXX
XXX
Exemple fichier 100. xls Code CDG cellule B4 interlocuteur paul

Ce que je veux obtenir
Fichier Recap

Cellule A1 Cellule A2
code Interlocuteur
AKL Jean
EZE Pierre

Merci pour vos réponses
Amicalement Francisco









Avatar
David
Bonjour,

Pour cela tu peux faire une fonction VBA toute simple :
sub exemple ( )
Dim fichierFinal As Workbook

Set fichierFinal = Workbooks.Open("D:fichierFinal.xls")

for i=0 to 100

Dim fichierXLCourant As Workbook

Set fichierXLCourant = Workbooks.Open("D:fichier"+i+".xls")

fichierFinal.worksheets(1).cells(1,i+1)=
fichierXLCourant.Worksheets(1).Range("b4").Value

Set fichierFinal= Nothing

next

end sub
En esperant que cela t'aide

David


"malabar" wrote in message
news:44550550$0$29214$
Bonjour tout le monde

j'ai differents fichier xls qui comportent des informations mais qui ne
sont pas par exemple organisé en base de données.


Exemple fichier 1 .xls Code AKL cellule B4 interlocuteur jean
Exemple fichier 2. xls Code EZE cellule B4 interlocuteur pierre
XXX
XXX
XXX
XXX
XXX
Exemple fichier 100. xls Code CDG cellule B4 interlocuteur paul

Ce que je veux obtenir
Fichier Recap

Cellule A1 Cellule A2
code Interlocuteur
AKL Jean
EZE Pierre

Merci pour vos réponses
Amicalement Francisco