[EXCEL 2003] : Récupérer des données

Re : [EXCEL 2003] : Récupérer des données

Bonjour JulienB et le forum,

Un fichier qui doit correspondre à ton besoin.

La valeur à rechercher et à placer dans la colonne B est à spécifier.

Cordialement

Bernard

Re : [EXCEL 2003] : Récupérer des données

Merci Bernard,

Cela fonctionne.

Pour recuperer maintenant la valeur d'une cellule, c'est
Activesheet.Range("A1").value ?

Merci

Re : [EXCEL 2003] : Récupérer des données

Re,

quelques modifications, en particulier, l'ouverture des fichiers, récupération de la valeur souhaitée, fermeture du fichier, report de la valeur dans la feuille synthèse.

Sub ListeFichiers()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String, I As Long, Lig As Long, Tablo

Application.ScreenUpdating = False
With Sheets("LISTING")
.Range("A2:B10000").ClearContents
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = ThisWorkbook.Path
'Attribue une référence d'objet à la variable
I = 1
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Fichier.Name <> ThisWorkbook.Name Then
If Right(Fichier.Name, 4) = ".xls" Then
I = I + 1
.Cells(I, 1) = Fichier.Name
Workbooks.Open Fichier ' Ouvre le fichier
With ActiveWorkbook
Tablo = Sheets(1).Range("A1").Value ' Récupère la valeur souhaitée
Application.DisplayAlerts = False
.Close ' Referme le fichier
Application.DisplayAlerts = True
End With
.Cells(I, 2) = Tablo ' Reporte de la valeur dans la colonne B
End If
End If
Next
End With
End Sub

Cordialement

Bernard

Re : [EXCEL 2003] : Récupérer des données

merci bernard !

Re : [EXCEL 2003] : Récupérer des données

Cela fonctionne parfaitement

Question cependant :

Comment affecter plusieur valeurs a tablo ?

De A1 à A5 par exemple ?

Re : [EXCEL 2003] : Récupérer des données

j'avance, j'avance

Bonsoir le forum, Bernard.

Toujours dans mon fichier de recup je dois integrer des tableaux sachant que :

- il y a un tableau par fichier remplis par les utilisateurs.
- Que je connais le nombre de colonne mais pas le nombre de ligne
- En colonne A du fichier de recup je dois voir egalement le nom du fichier.
donc je dois avoir Colonne A XXXX.xls puis en colonne B le tableau avec mes X lignes puis de nouveau Colonne A xxxx.xls + 1

J'arrive a recuperer une ligne par fichier actuellement !!

Code


Merci de votre aide !