Ouverture de fichiers via Fonction

Bonjour,

Je cherche à ouvrir 2 fichiers xls en passant par une fonction :

Code:

---

1 2 3

Call openFiles(fichier1, "FICHIER1") Call openFiles(fichier2, "FICHIER2")

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function openFiles(ByRef fichier As Variant, ByVal Nom As String) As String   Do fichier = Application.GetOpenFilename(, , "SELECTIONNER " & Nom) If fichier = False Then toto = MsgBox("Fin du programme.", vbExclamation) Exit Function End If Workbooks.Open Filename:=fichier Loop Until fichier Like ("*" & LCase(Nom) & "*")   End Function

---

Jusque là pas de problème, cela me donne le résultat escompté, les 2 fichiers s'ouvrent.

Le problème étant que j'aimerais récupérer le nom de ces 2 fichiers dans le programme principal afin de pouvoir les utiliser (pour les fermer par exemple).
Mais je n'y arrive pas....

Cela est-il possible ? Et si oui, comment le réaliser ou quelle piste dois-je suivre pour y arriver?

D'avance merci!

bonjour
Lorsque tu ouvres un fichier, il est actif.
Tu peux alors, juste apres l'avoir ouvert, enregistrer son nom dans une variable du type:

Code:

---

nomfichier1 =active.workbooks.name

---

l'autre possibilité et de récupérer son numéro dans la liste de la collection workbook que je récupère par une petite boucle:

Code:

---

1 2 3 4 5

for i=1 to workbook.count if workbook(i).name=active.workbooks.name then nofichier=i end if next

---

ces deux méthodes donnent le meme résultat

bonn journée
Christophe

Et oui, tout simplement...
Mais lorsque je place le active.workbooks.name dans le programme principal, j'ai une erreur 424 en retour : 'Objet requis'

En fait tout cela marche très bien, il semble juste ne pas y avoir de point entre active et workbook pour que cela fonctionne chez moi :
ActiveWorkbook.Name

Encore merci !!

de rien,
N"oulie pas de flaguer comme RESOLU:resolu::ange:

à titre d'info:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Function openFiles(ByRef fichier As Variant, ByVal Nom As String) As Workbook   Do fichier = Application.GetOpenFilename(, , "SELECTIONNER " & Nom) If fichier = False Then toto = MsgBox("Fin du programme.", vbExclamation) Exit Function End If Set openFiles = Workbooks.Open(Filename:=fichier) Loop Until fichier Like ("*" & LCase(Nom) & "*")   End Function Sub test() Dim wb As Workbook Set wb = openFiles("C:\Fichier.xls", "Fichier.xls") wb.Close False End Sub

---