extraire des résultats vers une colonne excel Résolu/Fermé

Question

Bonjour à tous,
Je ne sais pas si c'est réalisable dans Excel, mais j'aimerais extraire le résultat de la cellule (A1 par exemple) de différents fichiers nommés "donnés 1", "donné 2" etc... dans une seule et même colonne (D par exemple) d'un fichier nommé "résultat". Comment pourrais-je faire pour que mes résultats trouvent automatiquement le prochaine cellule vide de cette même colonne ? J'espère que je suis assez clair dans mon explication...
Merci d'avance pour votre aide.
Cordialement,

jp

pijaku · Answer

Bonjour,
C'est tout à fait possible avec un code VBA. Vous connaissez un peu les macros? Le code VBA?
Est ce que tout vos classeurs excel (données1, données2 etc...) sont dans le même répertoire?

pijaku · Answer

Alors voici le code d'un "commandbutton" (le N°1 ici) qui place le contenu de la cellule A1 de chaque fichier contenus dans les sous répertoire du répertoire dossier dans la colonne D du classeur resultats et le nom des fichiers en colonne E.
Préalablement :
- créer un classeur excel nommé resultats (sans accents avec un "s" à la fin)
- l'enregistrer sours répertoire : "dossiers"
Créer un bouton de commande et y affecter le code :

Private Sub CommandButton1_Click()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Nbr As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = xls
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
For Each NomFic In .FoundFiles
If Right(NomFic, 13) = "resultats.xls" Then GoTo suite
Workbooks.Open Filename:=NomFic
With Workbooks("resultats").Sheets("Feuil1")
.Range("D65536").End(xlUp).Offset(1, 0).Value = ActiveWorkbook.Sheets("Feuil1").Range("A1").Value
.Range("E65536").End(xlUp).Offset(1, 0).Value = ActiveWorkbook.Name
End With
ActiveWorkbook.Close
suite:
Next
End With
End Sub

plastickman · Answer

Je viens de tester et je dois bien avouer que cela dépasse mes espérances. Vous avez même prévu le nom du fichier dans une seconde colonne. Je ne peux pas dire que j'ai tout compris, mais je pense arriver à l'adapter pour mes différents cas.
Merci infiniment.

jp

Extraire des résultats vers une colonne excel

3 réponses