Téléchargement
illégal
Posez votre question Signaler

Récupérer des données ds une feuille excel [Résolu]

shishumi - Dernière réponse le 16 mai 2008 à 17:45
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.
Lire la suite 

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

4 réponses
Réponse
+1
moins plus
turc54 9Messages postés 16 mai 2008Date d'inscription 16 mai 2008 à 17:25
comment on fait pour entrer une formule dans excel stp

 Ajouter un commentaire
shishumi- 16 mai 2008 à 17:31
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.
Ajouter un commentaire
Réponse
+1
moins plus
LePierre 246Messages postés 8 mars 2008Date d'inscription 21 avril 2012Dernière intervention 16 mai 2008 à 17:37
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

 Ajouter un commentaire
shishumi- 16 mai 2008 à 17:45
Merci LePierre pour ta réponse.
c'est exactement ce qu'il me fallait.
Ajouter un commentaire
Posez votre question
Ce document intitulé « récupérer des données ds une feuille excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?