Discussion :

[Zebulon777]

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.

[Marc-L]

Bonjour,

c'est normal car ce code est un manquement au respect du modèle objet d'Excel !
Ta fonction cherche - déjà pas forcément une feuille de calculs vu l'objet Sheets choisi ! - un nom
au sein du classeur actif et donc forcément ouvert ‼

Qui plus est dans ce cas il n'y a besoin que d'une seule ligne de code via la fonction de feuille de calculs ESTREF !

Donc si le classeur est ouvert mais n'est pas celui actif, il suffit de préciser la référence du classeur avant la feuille !

Rappel du B-A-BA du modèle objet d'Excel : Workbooks.Worksheets.Range. … (Classeur.Feuille.Plage.Propriété …)

Exemple de ce forum parmi tant d'autres dans cette discussion !

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[kiki29]

Salut, voir Visualiser la structure des tables , sans oublier ceci Se connecter aux classeurs Excel2007 xlsx et xlsm

[Zebulon777]

Merci à tous pour vos réponses et vos explications.

Mais alors quelle est la différence entre utiliser une fonction avec ESTREF ou une fonction (plus compliquée) avec les modèles ADO et ADOX ?

[Zebulon777]

Bon, ben je suis largué !
Ce matin je fais des essais avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function FeuilleExiste2(P_FEUILLE) As Boolean
'Permet de tester l'existance d'une feuille dans un classeur sans l'ouvrir
'P_Feuille = "O:\fredarch\visu\2016\[Totaux activité 2016.xls]JANVIER2016"
 
    ExistWorkSheet = Evaluate("ISREF('" & P_FEUILLE & "'!A1)")
 
End Function

Ca fonctionne nickel en testant avec des feuilles qui existent et des feuilles qui n'existent pas, mais là, sans strictement rien modifier (j'étais sur autre chose), ça ne fonctionne plus, et j'ai bien vérifier dans le fichier quelles étaient les feuilles qui existaient ou non.
En fait, j'ai l'impression que le ISREF ne fonctionne pas si le classeur cible n'est pas ouvert, vous me le confirmez ?

[Marc-L]

Ben oui comme déjà indiqué dans mon post ! …