Extraire des résultats vers une colonne excel

Résolu
plastickman Messages postés 66 Statut Membre -  
plastickman Messages postés 66 Statut Membre -
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
Configuration: Mac OS X
Firefox 3.5.7

3 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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?
    0
    1. plastickman
       
      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.
      0
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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

    0
    1. plastickman Messages postés 66 Statut Membre 6
       
      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 ?
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773 > plastickman Messages postés 66 Statut Membre
       
      Bonjour,
      A qu'elle ligne l'erreur se produit elle?
      0
    3. plastickman Messages postés 66 Statut Membre 6
       
      L'erreur se produit à la ligne:

      With Workbooks("resultats").Sheets("Feuil1")
      0
    4. plastickman Messages postés 66 Statut Membre 6 > pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention  
       
      Bonjour,
      Pensez-vous que cela puisse venir du fait que la version d'excel de mon second poste soit plus ancienne?
      0
    5. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773 > plastickman Messages postés 66 Statut Membre
       
      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...
      0
  3. plastickman Messages postés 66 Statut Membre 6
     
    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
    0