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