El famoso test d'ouverture fichier

Question

Bonjour, j'ai codé ceci, j'comprend pas pourquoi il ne marche pas Je veux tester l'ouverture de mon fichier.

Sub Importation()

'' Permet l'importation des données sous la bonne forme du tableau si pas de doublon, actualisation de la date et du graphique.
'
'Test de l'ouvreture du fluke

Function WbOpen(Fluke As String) As Boolean
On Error Resume Next
WbOpen = Not Workbooks(Fluke) Is Nothing
End Function

'ouverture du fluke

    Dim wb As Workbook
    Dim ws As Worksheet
    Workbooks.Open ("V:\00 - Maintenance\06 - Préventif\01 - Plan prévisionnel\fluke.xlsm")
    Set ws = ActiveWorkbook.Worksheets("configurationsheet")

    Set ws = Nothing

'Attendre l'ouverture
    Application.Wait Time + TimeSerial(0, 0, 5)

Quelqu'un saurait m'aider ?

James007 · Answer

A priori tu n'as pas posté la totalité de ta macro ... Mais si tu veux utiliser une Fonction Personnalisée : Function WbOpen(Fluke As String) As Boolean On Error Resume Next WbOpen = Not Workbooks(Fluke) Is Nothing End Function Elle doit pas être ' autonome ' ... et donc sauvegardée en dehors de ta macro ... En espèrant que cela t'aide...