Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Call openFiles(fichier1, "FICHIER1")
Call openFiles(fichier2, "FICHIER2")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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!