Lire une valeur cellule d'un classeur fermé

Bonjour tout le monde,

J'ai adopté cette solution pour satisfaire ma demande, par contre j'ai un petit souci lorsque le fichier .xlsx est introuvable dans le répertoire, il m'affiche une fenêtre pour repérer le fichier.

Sub formule()
Dim fichier As String, onglet As String, adresse As String, chemin As String
chemin = ThisWorkbook.Path ' si différent, mettre le chemin du dossier dans lequel se trouvent les fichiers de base
onglet = "Feuil1"
For li = 2 To 3
    For co = 4 To 12
        If Cells(1, co) <> "" Then
            adresse = Cells(1, co)
            fichier = Cells(li, 3) & ".xlsx"
            Cells(li, co).FormulaLocal = "='" & chemin & "\[" & fichier & "]" & onglet & "'!" & adresse
            ' on peut figer en copiant en valeur la cellule sur elle-même
        End If
    Next
Next
End Sub

est ce qu'il une condition à ajouter pour qu'il passe le traitement lorsque le fichier indiqué est introuvable.

Merci.

Bonjour,

Si le fichier existe ?

https://excel-malin.com/codes-sources-vba/vba-verifier-si-le-fichier-existe/

ric

Ok ça marche normalement problème résolu.