Lire donnée sur fichier sans l'ouvrir

[Mytå]

Bonsoir les Forumeurs

Juste a titre de renseignement lire un fichier sans l'ouvrir.

Ici je recupere l'information des lignes D2 a D5 du fichier et je recopie sur la
ligne 41 d'une feuille de Bx a Fx

Option Explicit
Sub Lire_repertoire()
Dim i As Integer, fichier As String, nom As String
With Application.FileSearch
.NewSearch:
.LookIn = "C:\Bilan\Personnel":
.SearchSubFolders = True:
.MatchTextExactly = False:
.FileType = msoFileTypeAllFiles
If .Execute(msoSortOrderDescending) > 0 Then
For i = 1 To .FoundFiles.Count
fichier = Mid(.FoundFiles(i), 20, Len(.FoundFiles(i)))
nom = Left(fichier, Len(fichier) - 4)
Cells(40 + i, 2).FormulaR1C1 = _
"='C:\Bilan\Personnel\[" & fichier & "]" & nom & "'!R[" & (-36 - i) & "]C[2]"
Cells(40 + i, 3).FormulaR1C1 = _
"='C:\Bilan\Personnel\[" & fichier & "]" & nom & "'!R[" & (-35 - i) & "]C[1]"
Cells(40 + i, 4).FormulaR1C1 = _
"='C:\Bilan\Personnel\[" & fichier & "]" & nom & "'!R[" & (-37 - i) & "]C[0]"
Cells(40 + i, 5).FormulaR1C1 = _
"='C:\Bilan\Personnel\[" & fichier & "]" & nom & "'!R[" & (-38 - i) & "]C[-1]"
Cells(40 + i, 6).Value = .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Si cela peut aider du monde a+

 

[A_binouze_drinker_among_others]

cf autres méthodes là
<http://perso.wanadoo.fr/frederic.sigonneau>