Utilisation fichier ouvert

Bonjour,

je souhaite dans une macro utiliser un fichier Excel ouvert pour traiter ses données. mais je ne connais pas par avance le nom du fichier donc il faudrait dans un MessageBox afficher tous les fichiers Excel ouverts et que je puisse en choisir un en cliquant dessus.

Cela m'évitera de passer par une variable contenant le nom du fichier dans mon fichier xlsm.

Si vous avez déjà fait ce type de macro je suis preneur.

Merci

Hello,

Je n'ai pas forcément la solution (il y a des plus pro que moi) , mais une question :

le fichier que tu veux choisir se trouve dans le même dossier que ton fichier xlsm ?

Hello,

Non mon fichier est enregistré n'importe où sur le PC ou le réseau mais est ouvert dans les instances Excel.

Donc il faut déjà trouver le dossier des fichiers que tu veux afficher

Bonjour

Bonjour à tous

Un essai à tester. Te coinvient-il ?

Option Explicit

Dim w As Workbook

Private Sub ListBox1_Click()
    Workbooks(ListBox1.Value).Activate
End Sub

Private Sub UserForm_initialize()

    For Each w In Workbooks
        If w.Name <> ActiveWorkbook.Name Then
            ListBox1.AddItem w.Name
        End If
    Next w
End Sub

Bye !

Merci c'est ça qu'il me fallait.

encore une précision, comment je fais dans UserForm pour retourner le nom du fichier sélectionné?

Nouvelle version

Option Explicit

Dim w As Workbook

Private Sub ListBox1_Click()
    Workbooks(ListBox1.Value).Activate
    MsgBox "Vous aves sélectionné et activé le fichier : " & ListBox1.Value
    Unload Me
End Sub

Private Sub UserForm_initialize()

    For Each w In Workbooks
        If w.Name <> ActiveWorkbook.Name Then
            ListBox1.AddItem w.Name
        End If
    Next w
End Sub

Bye !

Merci c'est exactement ce qu'il me faut.