Activer une fenêtre contenant .xxx

Bonjour,

je viens à nouveau vers vous pour savoir s'il existait un moyen d'activer un fenêtre contenant au moins .xxx

Je m'explique: j'ouvre via opentext filename un fichier. il peut se nommer 111.xxx ou 222.xxx ou 333.xxx etc

Ensuite, j'active cette fenêtre.

J'utilise

Windows("111.xxx").Activate

j'ai essayé

Windows("*.xxx").Activate

ou

Windows( * & ".xxx").Activate

mais bien entendu, rien ne fonctionne!

Je vous remercie de l'aide que vous pourrez m'apporter.

Cordialement,

Innuendo67

Bonjour

Sub test()
    Dim wb As Workbook, ok As Boolean
    For Each wb In Workbooks
'ici on active un xlsx ouvert dans la même session. tu modifiera l'extension
        If Right(wb.Name, 8) = "xxx.xlsx" Then
            wb.Activate
            ok = True
        End If
        If ok Then Exit For
    Next wb
    If ok Then
        ' suite du traitement
    Else
        MsgBox "Fichier non trouvé ouvert"
    End If
End Sub

Cordialement

Merci Amadeus je teste demain.

Mais pourquoi 8 apres right(Wb.name) ?

Le nom de mes fenêtres est variable genre vbgh.xxx ou encore cgfre.xxx elles n'ont de commun que .xxx

Merci encore pour l'explication car dans dans l'aide ca mets renvoie le nombre de caractères...

Cordialement,

Innuendo67

Merci cela fonctionne.

En revanche si le nom du classeur est du type : ddd (4).xxx là ça ne fonctionne plus...

À cause des parenthèses ?

Merci à tous.

Cordialement

Innuendo67

Bonjour

C'est toi qui a énoncé le sujet...

Pour ce nouveau cas ou le cas plus général (xlsm, xlsx ou autres)

Tu peux remplacer

 If Right(wb.Name, 8) = "xxx.xlsx" Then

Par

 If wb.Name Like "*xxx*" Then

Cordialement

Bonsoir,

merci Amadeus cela fonctionne mais pas à chaque fois notamment quand je ferme un userform et que je dois activer une fenêtre avant de la fermer.

Cordialement,

Innuendo67