Lire dans classeur fermé

[poola]

Bonjour a tous,
J'ai réalisé une petite application qui "devrait" me permettre de récupérer dans des classeurs fermés les valeurs situées aux adresses C140 (code article) et D142 (référence).
Les lignes suivantes (interprétations très persos de "pompages" en ligne) n'ouvrent pas mes feuilles ... quelqu'un pourrait-il m’éclairer svp?
Je voudrais aussi récupérer le nom de chaque fichier avec cette macro, c'est possible?

Sub chercheFichiersFermesV03()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim Feuille As String

Application.ScreenUpdating = False
Direction = Dir("C:\test\*.html")
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()

Loop
If nbFichiers > 0 Then
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 1)

.Range("A1").Formula = "='C:\test\[" & Tableau(X) & "] & ActiveSheet.Name & '!" & "C140"
.Range("A2").Formula = "='C:\WEB\bruce\bruce2\test\[" & Tableau(X) & "] & ActiveSheet.Name & '!" & "D142"

End With
End If
Next X
End If
End Sub

 

[kiki29]

Re : Lire dans classeur fermé

Salut,voir https://www.excel-downloads.com/threads/lire-un-fichier-excel-sans-louvrir.94092/

 

[poola]

Re : Lire dans classeur fermé

Merci kiki29 pour cette orientation. En fait je crois que j'ai un pb de syntaxe dans les lignes suivantes:
.Range("A1").Formula = "='C:\test\[" & Tableau(X) & "] & ActiveSheet.Name & '!" & "C140"
.Range("A2").Formula = "='C:\WEB\bruce\bruce2\test\[" & Tableau(X) & "] & ActiveSheet.Name & '!" & "D142"

Je dois me planter avec la ponctuation mais je ne vois pas ou... a moins que l'ActiveSheet.Name ne soit pas adapte.
Chaque classeur ne comporte qu'une seule feuille portant le même nom que le classeur, mais sans l'extension .xls. C'est peut-être lié ?

 

[kiki29]

Re : Lire dans classeur fermé

Re, je n'avais pas vu qu'en fait tu recherches des fichiers html et non xls : strange , car cela ne peut pas marcher la méthoide étant totalement inadaptée et plutôt saugrenue

 

[poola]

Re : Lire dans classeur fermé

C'est donc la que ça plante! Quand j'ouvre ces fichiers html sous excel je trouve les infos qui m’intéressent dans les cellules C140 et D142 et je me disais donc que si je peux lire sous excel, la macro devait pouvoir le faire...
En changeant l'extension de mes html en xls ça ne marche pas mieux !!!
Ce serait donc infaisable ou comment contourner ce pb?

 

[kiki29]

Re : Lire dans classeur fermé

re,n'mporte quoi, bref via le macro recorder sinon comme ces fichiers sont des fichiers textes voir par exemple Manipulation des fichiers en VBA et les balayer en conséquence pour extraire les infos désirées

 

[poola]

Re : Lire dans classeur fermé

OK merci, je vais voir dans cette direction.