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
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