Bonjour,

depuis un module je fais appel à une fonction pour ouvrir un fichier excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function searchDNReferenceInDataBase(dnReference As String)
    Dim databasePath As String
    Dim dbopen As Workbook
 
    '**************************************************
    '> Load database and open database
    '**************************************************
    databasePath = "D:\Users\user\Desktop\DATABASE.xlsx"
 
    If checkPath(databasePath) Then
        '-> Open database
        MsgBox ("Open database " & databasePath)
        Set dbopen = openDatabase(databasePath)
la fonction openDatabase(databasePath) est écrite dans un autre module comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Function openDatabase(pathDatabase As String)
 
     Workbooks.Open Filename:=pathDatabase
 
End Function
Le soucis c'est que j'ai le message d'erreur suivant qui pointe sur la ligne 14 et je n'arrive pas à comprendre :

Erreur d'exécution '424':

Objet requis
je sais pas si l'écriture Set dbopen = openDatabase(databasePath) est correct sachant que je souhaite ensuite sélectionner une feuille en particulier dans ce fichier pour faire des opérations.

Merci d'avance pour votre aide.