En VBA Activer un fichier excel (ouvert) sans connaitre son nom Résolu/Fermé

Question

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

Configuration: Windows Vista / Firefox 17.0

f894009 · Answer

Bonjour,

Pour quelle raison voulez-vous l'activer et est-ce qu'il n'y aura que votre classeur avec macro et ce fichier ouvert ????

filou3556 · Answer

Dans un ficheir maitre, je possède une procédure qui va cherher des valeurs dans un fichier déjà ouvert par un export depuis EOS. MOn problème est que ce fichier peut porter des noms différents TOTO ou TOTO (1) ou TOTO(2) ..........;

eriiic · Answer

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

filou3556 · Answer

Merci eriiic , ça fonctionne super. c'est exactement ce que je voulais

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

4 réponses

Discussions similaires