Récuperation de contenu de cellule dans des fichiers excel

Le
sleg
BOnjour,

je cherche une macro qui pourrait me recuperer le contenu de plusieurs
cellule ( dans un feuille nommée TOTO) dans des centaines de classeurs
dans un même répertoire et me sotcker les infos recuperer en ligne
dans une feuille pour faire une synthese..

meric de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #23301201
Bonjour,
Essaie :

Sub test1()
Dim Fich As String, Chemin As String
Dim Ligne As Long, Sh As Worksheet
Application.ScreenUpdating = False
Chemin = "c:temp" 'dossier à balayer
Sheets.Add
Set Sh = ActiveSheet
Fich = Dir(Chemin & "*.xls")
Do While Fich <> ""
Ligne = Ligne + 1
'Copie de la cellule A1
Sh.Cells(Ligne, 1) = ExecuteExcel4Macro("'" & Chemin & "[" &
Fich & "]TOTO'!R1C1")
'copie de la cellule C10
Sh.Cells(Ligne, 2) = ExecuteExcel4Macro("'" & Chemin & "[" &
Fich & "]TOTO'!R10C3")
'etc.
Fich = Dir
Loop
Application.ScreenUpdating = True
End Sub

Les références de cellule des cellules copiées doivent être notées en
références R1C1.
Cordialement.
Daniel


BOnjour,

je cherche une macro qui pourrait me recuperer le contenu de plusieurs
cellule ( dans un feuille nommée TOTO) dans des centaines de classeurs
dans un même répertoire et me sotcker les infos recuperer en ligne
dans une feuille pour faire une synthese..

meric de votre aide.
sleg
Le #23302881
BOnjour,

Grand merci ça marche nickel

Bon Week



On 21 avr, 17:34, DanielCo
Bonjour,
Essaie :

Sub test1()
    Dim Fich As String, Chemin As String
    Dim Ligne As Long, Sh As Worksheet
    Application.ScreenUpdating = False
    Chemin = "c:temp" 'dossier balayer
    Sheets.Add
    Set Sh = ActiveSheet
    Fich = Dir(Chemin & "*.xls")
    Do While Fich <> ""
        Ligne = Ligne + 1
        'Copie de la cellule A1
        Sh.Cells(Ligne, 1) = ExecuteExcel4Macro("'" & Chemin & "[" &
Fich & "]TOTO'!R1C1")
        'copie de la cellule C10
        Sh.Cells(Ligne, 2) = ExecuteExcel4Macro("'" & Chemin & "[" &
Fich & "]TOTO'!R10C3")
        'etc.
        Fich = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Les r f rences de cellule des cellules copi es doivent tre not es en
r f rences R1C1.
Cordialement.
Daniel







> BOnjour,

> je cherche une macro qui pourrait me recuperer le contenu de plusieurs
> cellule ( dans un feuille nomm e TOTO) dans des centaines de classeurs
> dans un m me r pertoire et me sotcker les infos recuperer en ligne
> dans une feuille pour faire une synthese..

> meric de votre aide.
Publicité
Poster une réponse
Anonyme