Bonjour à tous,

Pour récupérer une valeur dans un fichier j'utilise le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
WValCom = "='" & WFic_CDG_Com_TXT2 & WFeuilleALire & "'!$" & WCaseALire & "$25"
Mais le problème c'est que je n'arrive pas à tester si la feuille existe ou pas ?

J'ai essayé cette fonction, mais elle renvoie systématiquement que la feuille n'existe pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Function FeuilleExiste2(NomFeuille) As Boolean
    Dim f As Object
    On Error Resume Next
    Set f = Sheets(NomFeuille)
    If err = 0 Then FeuilleExiste2 = True
    Set f = Nothing
End Function
Et donc, je ne vois pas où est-ce que je déconne ?

Merci d'avance pour votre aide.