Extraire des résultats vers une colonne excel

Résolu/Fermé

plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 - 17 janv. 2010 à 14:00
plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 - 22 janv. 2010 à 15:27

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

A voir également:

Extraire des résultats vers une colonne excel
Déplacer une colonne excel - Guide
Liste déroulante excel - Guide
Additionner colonne excel - Guide
Extraire son video - Guide
Figer une colonne excel - Guide

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
18 janv. 2010 à 13:10

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?

plastickman
18 janv. 2010 à 13:37

Bonjour,
Oui, j'utilise quelques macros très simples qui fonctionnent avec un bouton.
Tous mes classeurs sont rangés dans des répertoires nommés comme eux: "données 1", "donnée 2"... qui sont eux mêmes rangés dans un même répertoires "DOSSIERS", par contre, ils sont bien les seuls classeurs excel du répertoire "DOSSIER" malgré qu'ils soient dans des sous-dossiers.

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
18 janv. 2010 à 14:31

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 Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 6
20 janv. 2010 à 12:32

Bonjour,
Excusez-moi de revenir vers vous, mais j'ai un problème que je ne comprends pas. La routine que vous m'avez envoyé fonctionne très bien sur un de mes postes mais pas sur l'autre. Il me donne un message d'erreur:
"erreur d'exécution'9': l'indice n'appartient pas à la sélection" et je n'ai pas trouvé de solution avec l'aide proposée. Avez-vous une idée ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012
20 janv. 2010 à 12:33

Bonjour,
A qu'elle ligne l'erreur se produit elle?

plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 6
20 janv. 2010 à 12:44

L'erreur se produit à la ligne:

With Workbooks("resultats").Sheets("Feuil1")

plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 6 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
21 janv. 2010 à 19:20

Bonjour,
Pensez-vous que cela puisse venir du fait que la version d'excel de mon second poste soit plus ancienne?

Bonjour,
Oui c'est possible. A qu'elle ligne apparait cette erreur?
En fait lorsque vous voyez le message d'erreur, VBA propose un débogage, cliquez sur "déboguer" une ligne de code apparait en jaune. Merci de nous dire laquelle...

Réponse 3 / 3

plastickman Messages postés 64 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 8 février 2012 6
18 janv. 2010 à 15:14

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

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

colonne A disparue tableur excel

liste de noms par ordre alphabétique

Discussions similaires

Newsletters