Nom de feuille

[poola]

Bonjour a tous,
J'ai realise (adapte apres recopie plutot) une macro qui devrait les donnees d'une cellule specifique dans plusieurs fichiers.
Il n'y a qu'une feuille par fichier et cette feuille porte le nom du fichier ... Mon probleme est d'adapter le code qui suit pour que Feuil1 soit remplace par le nom de la feuille active.
Merci d'avance.

'Sub test01()
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:\Fichiers Excel\test\*.xls")

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("E2").Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]Feuil1" & " '!" & "A662"


End With
End If
Next X
End If

Application.ScreenUpdating = True
End Sub

 

[CHALET53]

Re : Nom de feuille

bonjour,

Je ne comprends pas bien la formule : peut-être en remplaçant Feuil1 par une variable

Feuille= activesheet.name

rajouter la variable entre deux & à la place de feuil1

.Range("E2").Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]Feuil1" & " '!" & "A662"

a+

 

[job75]

Re : Nom de feuille

Bonjour poola, CHALET53,

Remplacer :

With ActiveSheet.Cells(Y, 1)

.Range("E2").Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]Feuil1" & " '!" & "A662"

End With

par :

Cells(Y, 1).Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]" & [COLOR="red"]Left(tableau(X), Len(tableau(X)) - 4)[/COLOR] & "'!A662"

ceci est plus simple s'il n'y a pas des .xls ailleurs dans les noms des fichiers :

Cells(Y, 1).Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]" & [COLOR="Red"]Replace(Tableau(X), ".xls", "")[/COLOR] & "'!A662"

A+

 

[poola]

Re : Nom de feuille

@CHALET53 et JOB75,

Merci a tous deux, ca tourne bien maintenant.
A+