Re : Charger des données d'un autre classeur
Bonjour,
J'ai du mettre ce projet de coté pendant une semaine et me revoila dessus.
Depuis j'ai pensé à une solution. Il faudrait que j'intègre à la boucle qui envoie les données dans la feuille une fonction qui ouvre le fichier dans une autre feuille, ensuite je charge la donnée souhaitée sur la feuille "prog", puis je "clear" la feuille.
Le problème c'est que j'ai tenté d'expliquer ca a mon excel, mais rien à faire, il ne comprend que le vba.
Pour rappel voici la macro :
Sub ListFiles()
' Which directory?
Directory = "C:/......."
' Insert new sheet & headers
ActiveWorkbook.Worksheets("prog").Select
r = 1
Cells(r, 1) = "FileName"
Cells(r, 2) = "Date/Time"
Cells(r, 3) = "Name"
Range("A1
1").Font.Bold = True
r = r + 1
' Get the files
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.*"
.SearchSubFolders = True
.Execute
' Write the file info
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileDateTime(.FoundFiles(i))
'Là il faudrait charger le fichier'
Cells(r, 3) = "une cellule bien précise du fichier"
'Et là faudrait clear la feuille'
r = r + 1
Next i
End With
Worksheets("Gestion").Select
End Sub
Merci de votre attention.
Overspeck