En VBA Activer un fichier excel (ouvert) sans connaitre son nom

Résolu/Fermé
filou3556 Messages postés 8 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 24 juillet 2015 - Modifié par filou3556 le 21/12/2013 à 07:48
 Jojo - 21 mars 2019 à 15:43
Bonjour,

Pour des besoins pro, j'ai besoin via VBA de me rendre sur un fichier excel ouvert. Le problème est que ce fichier n'a pas toujouts le même nom. IL peut par exemple s'appeler TOTO, ou TOTO(1) ou TOTO(2).............

Solution envisagée mais que je n'arrive pas à mettre en place serqit que la macro me laisse le choix d'aller l'activer manuellement

4 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
21 déc. 2013 à 13:49
Bonjour,

Une proposition à adapter à ton code :
Sub test()
    Dim wb As Workbook, ok As Boolean
    For Each wb In Workbooks
        If Left(wb.Name, 4) = "toto" Then
            wb.Activate
            ok = True
        End If
        If ok Then Exit For
    Next wb
    If ok Then
        ' suite du traitement
    Else
        MsgBox "Fichier toto non trouvé ouvert"
    End If
End Sub

Bien sûr ne fonctionne que si tes fichiers sont ouverts dans la même session excel (même fenêtre).
Active le 1er fichier ouvert rencontré commençant par "toto". Les majuscules comptent.

eric
1
Merci beaucoup pour vos efforts de partage. Vous instruisez beaucoup de personnes.
0