Débutant fonction VBA

Question

Salut,

Voilà j'aurais une petite question de base à vous poser sur le VBA :

J'ais pris sur internet une fonction "FichOuvert" qui me renvoie FAlse ou True. Cette fct je l'appelle dans la procédure essai() 

Sub essai()
FichOuvert "monfichier.xls"
If FichOuvert("azerty.xls") = True Then
MsgBox ("le fichier est ouvert")
End If
end sub

Function FichOuvert(F As String) As Boolean
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

Ma question est donc : Comment fait-on pour connaitre le résultat de la fct ??? j'ai essayé If FichOuvert("azerty.xls") = True  mais ca ne doit pas etre la bonne syntaxe.

Merci

cs_Ayr · Answer

Salut,

Oui, c'est la bonne syntaxe. Sauf que dans ta Sub essai,
1ère ligne: FichOuvert "monfichier.xls", est de trop car
quand tu fais le test, If FichOuvert("azerty.xls") = True Then,
la fonction s'execute aussi et ensuite tu en récupère le résultat
pour le comparer avec True.

Pour avoir un résultat True, ton fichier "azerty.xls" doit déjà être ouvert.

us_30 · Answer

Bonjour,

En d'autres termes, il faudrait écrire :


Sub essai()
If FichOuvert("azerty.xls") = True Then
MsgBox "le fichier est ouvert"
Else
MsgBox "le fichier n'est pas chargé"
End If
end sub


Amicalement,
Us.

Débutant fonction VBA

2 réponses

Votre réponse

Discussions similaires