XL 2021 Excel suffixe numérique des fenêtres, quelle structure ?

[Dudu2]

Bonjour,

Chez moi en Office 2021 64 bits et Office 2016 32 bits, lorsque je créé une nouvelle fenêtre (Affichage / Nouvelle fenêtre) les suffixes des fenêtres apparaissent ainsi:
<Nom du classeur>:<numéro de fenêtre>

Chez un utilisateur en Office 2016 32 bits pour qui je fais un peu de code, la structure est:
<Nom du classeur> - <numéro de fenêtre>

Qu'est-ce qui peut justifier une telle différence ?

 

[Lolote83]

Bonjour @Dudu2
Chez moi, même chose que chez toi

Avec ma version

@+ Lolote83

 

[Hecatonchire]

Bonjour @Dudu2,

Chez moi (365 Apps v2507 bêta) - # et pas : #

 

[Dudu2]

Ça prouve qu'il y a les 2 formats mais rien pour l'instant en VBA pour savoir lequel s'applique !

 

[mromain]

Bonjour Dudu2, Lolote83, Hecatonchire, le forum,

Chez moi, c'est aussi - (Microsoft 365, version 2505).

rien pour l'instant en VBA pour savoir lequel s'applique

Voici une bidouille qui a l'air de fonctionner :

Sub test
Dim sep As String
    With ThisWorkbook
        If .Windows.Count = 1 Then
            MsgBox "Une seule fenêtre."
        Else
            sep = Replace(.Windows(1).Caption, .Name, vbNullString)
            Do While IsNumeric(Right(sep, 1))
                sep = Left(sep, Len(sep) - 1)
            Loop
            MsgBox "Séparateur = """ & sep & """."
        End If
    End With
End Sub

________________________________________________
Edit :
Petit complément.
Sur mon autre PC (Office 2013 Pro Plus, version 15.0.5603.1000), le séparateur est :.

A+

 

[Dudu2]

@mromain,
Mouais, pas bête de comparer le Window Caption et le Workbook Name pour trouver les suffixes de numéros de fenêtres.
Merci pour l'idée.

 

[Dudu2]

Et les espaces autour du tiret, ce sont de vrais blancs ? Ou des espaces insécables ? Il y en a combien avant et après ?
STP, @Hecatonchire et/ou @mromain tu peux essayer avec ce fichier pour dumper en hexa ?

 

[patricktoulon]

 

[mromain]

Bonjour à tous,

Voici le résultat :

<WindowCaptionDetails.xlsm  -  2>

57 69 6E 64 6F 77 43 61 70 74 69 6F 6E 44 65 74    WindowCaptionDet
61 69 6C 73 2E 78 6C 73 6D 20 20 2D 20 20 32       ails.xlsm  -  2

Par contre, chez moi ta MsgBox a un souci, j'ai dû bidouiller pour trouver le résultat...

A+

 

[Hecatonchire]

Bonjour Dudu,


57 69 6E 64 6F 77 43 61 70 74 69 6F 6E 44 65 74 WindowCaptionDet
61 69 6C 73 2E 78 6C 73 6D 20 20 2D 20 20 32 ails.xlsm - 2

57 69 6E 64 6F 77 43 61 70 74 69 6F 6E 44 65 74 WindowCaptionDet
61 69 6C 73 2E 78 6C 73 6D 20 20 2D 20 20 31 ails.xlsm - 1

 

[Lolote83]

Bonjour à tous.
Chez moi, même résultat que @patricktoulon à la virgule près .....
Cordialement
@+ Lolote83

 

[Cousinhub]

Bonjour,
10ème :

Et 9ème:

 

[patricktoulon]

pour normaliser les résultats faire un app.trim et se baser sur ça
application.trim réduit a un seul espace tous les espaces conscutifs

Function HexDump(Str As String, Optional NbCarLigne As Integer = 16) As String
    Dim i As Integer, j As Integer
    Dim C As String, Hexa As String, Ascii As String, Dump As String
    Str = Application.Trim(Str)
    Hexa = ""
    Ascii = ""
    i = 1

    Do While i <= Len(Str)
    '.....

@mromain essaie le application.trim

 

[mromain]

pour normaliser les résultats faire un app.trim et se baser sur ça
application.trim réduit a un seul espace tous les espaces conscutifs

Function HexDump(Str As String, Optional NbCarLigne As Integer = 16) As String
    Dim i As Integer, j As Integer
    Dim C As String, Hexa As String, Ascii As String, Dump As String
    Str = Application.Trim(Str)
    Hexa = ""
    Ascii = ""
    i = 1

    Do While i <= Len(Str)
    '.....

@mromain essaie le application.trim

Bonjour patricktoulon,

Effectivement, avec le Application.Trim la MsgBox affiche bien l'ensemble du message.

A+

 

[Dudu2]

Merci à tous pour vos retours, c'est clair. C'est bien un x'20 20 2D 20 20' qui précède le n° de fenêtre quand c'est pas le ":".

Par contre je comprends pas pourquoi il faut un Trim pour faire fonctionner le truc.
Le Trim retire les espaces du début et de la fin. Quand bien même il y en aurait il seraient dumpés.

Mais je sais qu'il y a un problème. Soit dans le HexDump soit dans le Msg.Box.

@mromain:
- quelle bidouille as-tu fais pour faire fonctionner le truc ?
- peux-tu ré-essayer en remplaçant le Msg.Box par un simple MsgBox STP ?