rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Récupérer des données ds une feuille excel

Posté par shishumi, le vendredi 16 mai 2008 à 17:02:48
Bonjour,

voila g récupérer un code pour pouvoir ouvrir des fichiers excel.
mais maintenant je dois pouvoir récupérer des données qui sont sur ces même classeurs (les données se situe au même endroit pour chaque classeur) sachant que ces données sont sur les cellules C10,C9,C8,C5 et C6.
Puis pour finir je doit prendre ces données et les placer dans un autre classeur sur une ligne pour chaque classeur.

Je c que je ne suis pas trés claire mais si vous avez besoin de plus d'info n'hésité pas.

voici le code pour ouvrir mes classeurs : 
Option Explicit
 
' option à activer dans VBA menu Outils | Références : Cocher Microsoft Scripting Runtime
 
Const DossierFichiers As String = "C:\Documents and Settings\martint\Bureau\abaques\hertziennes"
Sub Ouvrir_fichier()
    ListeFichiersDans DossierFichiers
End Sub
 
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim x As Long

 
    Set FSO = New Scripting.FileSystemObject
    Set DossierSource = FSO.GetFolder(NomDossier)
           
    x = 0
    For Each Fichier In DossierSource.Files
            x = x + 1
            Workbooks.Open Filename:=Fichier
            Sheets("Paramètres").Select


mes données à récupérer doivent être ici 

ActiveWorkbook.Close False
    Next Fichier
         
    MsgBox "Nb Fichiers : " & x
     
    Set Fichier = Nothing
    Set DossierSource = Nothing
    Set FSO = Nothing
End Sub


Merci pour votre aide.
Configuration: Windows XP
Firefox 2.0
Répondre à shishumi  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
turc54, le vendredi 16 mai 2008 à 17:25:08
comment on fait pour entrer une formule dans excel stp
   
Répondre à turc54

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
shishumi, le vendredi 16 mai 2008 à 17:31:19
cela dépend de quelle formule tu veux utiliser.
si c'est une formule basic il faut écrire dans ta cellule A3 =somme(A1;A2)
sinon pour du code VBA il faut aller dans le menu option -> macro -> Visual Basic Editor.
   
Répondre à shishumi

3


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le vendredi 16 mai 2008 à 17:37:03
bonjour

Essaye ce code (je ne l'ai pas testé).
Les données seront collées dans la feuille courante à partir de la ligne 2, colonnes A à E. 

Private Sub ListeFichiersDans(ByVal NomDossier As String)
    Dim FSO As Scripting.FileSystemObject
    Dim DossierSource As Scripting.Folder
    Dim Fichier As Scripting.File
    Dim x As Long
    Dim Lig As Integer
    Dim i As Integer
    Dim d(5)
    
    Set FSO = New Scripting.FileSystemObject
    Set DossierSource = FSO.GetFolder(NomDossier)
           
    Lig = 2
    x = 0
    For Each Fichier In DossierSource.Files
        x = x + 1
        Workbooks.Open Filename:=Fichier
        Sheets("Paramètres").Select

'mes données à récupérer doivent être ici
        d(1) = Range("C5").Value
        d(2) = Range("C6").Value
        d(3) = Range("C8").Value
        d(4) = Range("C9").Value
        d(5) = Range("C10").Value
        ActiveWorkbook.Close False
        'copie des données
        For i = 1 To 5
            Cells(Lig, i).Value = d(i)
        Next i
        Lig = Lig + 1
        
    Next Fichier
    MsgBox "Nb Fichiers : " & x
    Set Fichier = Nothing
End Sub

à plus
   
Répondre à LePierre

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 shishumi, le vendredi 16 mai 2008 à 17:45:56
Merci LePierre pour ta réponse.
c'est exactement ce qu'il me fallait.
   
Répondre à shishumi
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Restoration 2.5.14Restoration - Restoration est un outil gratuit, en anglais seulement, permettant de récupérer les données effacées, même après avoir vidé...Catégorie: Sauvegarde
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger DSL Test 2.0.0.6DSL Test - DSLtest est constitué d'un logiciel à télécharger gratuitement et de serveurs de test. Ces équipements vous permettent...Catégorie: ADSL
Licence: Freeware/gratuit
Télécharger DS Monkey Audio - Filtre APE 1.00DS Monkey Audio - Filtre APE - Le format MonkeysAudio (extension *.ape) est un format de compression audio lossless (sans pertes) permettant de réduire la...Catégorie: Plugins audio
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « récupérer des données ds une feuille excel »