Windows("nom.exe").Activate avec un nom variant

Résolu/Fermé
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - Modifié par dhaze le 10/04/2015 à 18:40
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 15 avril 2015 à 16:33
Bonjour,

J'ai un problème avec :

Windows("nom.exe").Activate

Selon les utilisateurs la fenêtre ne porte pas tout à fait le même nom.
"[en lecture seule]" et autres joyeusetés !
Cependant la racine "nom" reste identique.
Peut-on faire une sélection par "commence" ou "contient" ?

Merci

Lo.
A voir également:

3 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2015 à 13:50
Bonjour,

Windows("nom.exe").Activate
pas possible, ne peut etre utiliser que pour des classeurs excel .
0
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié par eriiic le 11/04/2015 à 14:27
Bonjour,

Tu peux boucler sur tous les workbooks ouverts et tester ce que tu veux :
Sub test()
    Dim wb As Workbook
    For Each wb In Workbooks
        MsgBox wb.Name
    Next wb
End Sub

eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
0
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020
15 avril 2015 à 16:33
Je ne sais toujours pas ce qu'il se passe sur certains postes...

On dirait que ce classeur ne porte pas de nom. La solution à été de se rabattre sur le nom de la feuille qu'il contient pour identifier la fenêtre et la fermer.

Comme suit :

'	../..

	Dim Classeur_No_Name As String
	Sheets("Moi j'ai un nom").Select
	Classeur_No_Name = ActiveWorkbook.Name

'	../..

	Workbooks(Classeur_No_Name).Activate
	ActiveWorkbook.Close (False)

'	../..

Merci à tous
Lo.
0