Ouvrir un fichier excel depuis une fonction

Bonjour,

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

Code:

---

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:

---

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 :

Citation:

---

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.

Bonjour,

Essaye comme ceci :

Code:

---

1 2 3

Function openDatabase(pathDatabase As String) As Workbook Set openDatabase = Workbooks.Open(Filename:=pathDatabase) End Function

---

Code d'appel exemple :

Code:

---

1 2 3 4 5 6 7

Sub Essai() Dim Wb As Workbook Set Wb = openDatabase("C:\Users\Franck.Presse\Desktop\Fournitures demandées commandées.xlsx") With Wb .Worksheets("Feuil2").Activate End With End Sub

---

Merci ça règle mon problème