VBA Syntaxe

Bonjour à tous,

Je cherche à remplacer cette ligne qui marche avec un nom défini "TopF"

            .Range("b65536").End(xlUp)(2) = "='" & Chemin & "\" & FName & "'!TopF"

par la cellule A1 de la Feuil1

            '.Range("b65536").End(xlUp)(2) = "='" & Chemin & "\" & FName & "Feuil1'!a1"

cette ligne ci-dessus ne fonctionne pas !

Quel serait le bon code ?

code complet

Sub ListeRepertoire()
Dim Chemin$, FName$
        Application.ScreenUpdating = False
    '------- liste les fichiers du répertoire actif
        Chemin = ThisWorkbook.Path
        FName = Dir(Chemin & "\" & "*.xls")
    With Sheets("Feuil1")
            .Range("a2:b200").ClearContents
        Do While FName <> ""
            .Range("A65536").End(xlUp)(2) = FName
            .Range("b65536").End(xlUp)(2) = "='" & Chemin & "\" & FName & "'!TopF"
            '.Range("b65536").End(xlUp)(2) = "='" & Chemin & "\" & FName & "Feuil1'!a1"
            FName = Dir
        Loop
    End With
End Sub

Pour tester, copier le répertoire "Mes documents" et ouvrir le fichier "Essai1"

Bonne journée

Claude

Bonjour,

Essaie comme ceci :

.Range("b65536").End(xlUp)(2) = "='" & Chemin & "\" & "[" & FName & "]" & "Feuil1'!a1"

Amicalement

Bonjour et merci Dan,

C'est nickel ! comme toujours

Je tournais autour, mais pas pensé aux crochets

Amicalement

Claude