extraction de données à l'aide de prg VBA

[koko34]

Bonjour,

on me demande d'extraire de l'information de plusieurs fichier excel sous forme d'une feuille d'observation d'expérimentation sur une plante, or que je ne vois pas du tout comment je pourrai procéder par programmation sur VBA pour faire une macro qui m'extrait les données d'un fichier et de me les stocker dans un autre sous tableau individu/variable.
Grâce à des tutos sur le net j'ai pu faire le programme suivant:


Option Explicit

Sub Recap_Clic()

'Procédure assignée au bouton Copie

'Le chemin d'accès au fichier source est saisi par une boîte InputBox.

Dim Defaut_Source As String 'Chemin complet, par défaut, d'accès au fichier source.

Defaut_Source = "D:\Mes donnees\...\2009\C1\C1P02.xls"

Dim Source As String 'Chemin complet d'accès au fichier Source.

Source = InputBox("Chemin complet du fichier source", "Fichier source", Defaut_Source)

If Source = "" Then Exit Sub 'Pas de saisie effective

On Error GoTo Erreur 'En cas d'erreur lors de l'ouverture du fichier source

Application.Workbooks.Open Source 'Ouverture du fichier source

On Error GoTo 0 'On annule la récupération des erreurs

Dim Classeur_Source As Workbook

Set Classeur_Source = Application.Workbooks("C1P02.xls")

Dim Feuille_Source As Worksheet

Set Feuille_Source = Classeur_Source.Sheets("03 08 09")

Dim Plage_source As Range

Set Plage_source = Feuille_Source.Range("A3:B3")

Dim Classeur_Cible As Workbook

Set Classeur_Cible = ThisWorkbook

Dim Feuille_Cible As Worksheet

Set Feuille_Cible = Classeur_Cible.Worksheets("Recap")

Dim Plage_Cible As Range

Set Plage_Cible = Feuille_Cible.Range("C5:C6")

Dim i As Byte

For i = 1 To Plage_source.Cells.Count

Plage_Cible.Cells(i) = Plage_source.Cells(i)

Next i

'Classeur_Source.Close False 'Fermeture du fichier source sans sauvegarde

Exit Sub

Erreur: 'En cas d'erreur lors de l'ouverture du fichier source

MsgBox "Impossible d'ouvrir le fichier " & Source, , "Erreur"

End Sub





Il fontionne mais mon pbm c'est qu'il faut que je rende variable les indications en rouge, car elles changent à chaque fois.



Donc voila.

svp aidez moi....jaten vos reponse