Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Changement titre excel

Changement titre excel

3 réponses
Avatar
Albator V
bonjour,
j'ai repris une macro qui change le titre de la barre de=20
titre d'Excel=20
(http://disciplus.simplex.free.Fr/classeursxl/mp-
xltitle.zip).
je lance cette macro toutes les 5 min et me suis aper=E7u=20
que le titre de la fen=EAtre active change. donc si j'ai un=20
userform ouvert, il change le titre aussi.

comment faire pour que mes titre de userform ne change=20
pas ?

merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour Albator;
Remplace la fonction GetActiveWindow par FindWindow:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias _
"SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Private Sub Workbook_Open()
Call ChangeTitle
' Ton code éventuel
'....
End Sub

Private Sub Workbook_Activate()
Call ChangeTitle
End Sub

Private Sub Workbook_Deactivate()
Application.Caption = "Microsoft Excel"
End Sub

Private Sub ChangeTitle()
SetWindowText FindWindow(vbNullString, Application.Caption), "Ici le titre
de ton choix !"
End Sub

MP

"Albator V" a écrit dans le message de
news:060901c48b42$bd331340$
bonjour,
j'ai repris une macro qui change le titre de la barre de
titre d'Excel
(http://disciplus.simplex.free.Fr/classeursxl/mp-
xltitle.zip).
je lance cette macro toutes les 5 min et me suis aperçu
que le titre de la fenêtre active change. donc si j'ai un
userform ouvert, il change le titre aussi.

comment faire pour que mes titre de userform ne change
pas ?

merci d'avance
Avatar
Albator V
Ahhhhhhh voila une reponse serieuse... merci beaucoup
mais jai un soucis.
si jai bien compris le fonctionnement, il cherche si le
titre = "microsoft excel - nomclasseur.xls". or mon titre
commence avec ca, mais j'ai rajouter des choses derriere,
donc il ne trouve pas... :-( comment faire pour recuperer
le titre complet (application.caption et ce kil y a
derriere) ?
-----Message d'origine-----
Bonjour Albator;
Remplace la fonction GetActiveWindow par FindWindow:
Private Declare Function FindWindow Lib "user32"
Alias "FindWindowA" _

(ByVal lpClassName As String, ByVal lpWindowName As
String) As Long

Private Declare Function SetWindowText Lib "user32"
Alias _

"SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As
String) As Long


Private Sub Workbook_Open()
Call ChangeTitle
' Ton code éventuel
'....
End Sub

Private Sub Workbook_Activate()
Call ChangeTitle
End Sub

Private Sub Workbook_Deactivate()
Application.Caption = "Microsoft Excel"
End Sub

Private Sub ChangeTitle()
SetWindowText FindWindow(vbNullString,
Application.Caption), "Ici le titre

de ton choix !"
End Sub

MP

"Albator V" a
écrit dans le message de

news:060901c48b42$bd331340$
bonjour,
j'ai repris une macro qui change le titre de la barre de
titre d'Excel
(http://disciplus.simplex.free.Fr/classeursxl/mp-
xltitle.zip).
je lance cette macro toutes les 5 min et me suis aperçu
que le titre de la fenêtre active change. donc si j'ai un
userform ouvert, il change le titre aussi.

comment faire pour que mes titre de userform ne change
pas ?

merci d'avance


.



Avatar
Michel Pierron
Re Albator V;
Tout est là:

' Microsoft Excel - Nom du classeur
MsgBox Application.Caption
' Nom du classeur uniquement:
MsgBox ActiveWindow.Caption
' Ou bien encore:
MsgBox Windows(ThisWorkbook.Name).Caption

MP

"Albator V" a écrit dans le message de
news:06a501c48b4f$39f56fc0$
Ahhhhhhh voila une reponse serieuse... merci beaucoup
mais jai un soucis.
si jai bien compris le fonctionnement, il cherche si le
titre = "microsoft excel - nomclasseur.xls". or mon titre
commence avec ca, mais j'ai rajouter des choses derriere,
donc il ne trouve pas... :-( comment faire pour recuperer
le titre complet (application.caption et ce kil y a
derriere) ?
-----Message d'origine-----
Bonjour Albator;
Remplace la fonction GetActiveWindow par FindWindow:
Private Declare Function FindWindow Lib "user32"
Alias "FindWindowA" _

(ByVal lpClassName As String, ByVal lpWindowName As
String) As Long

Private Declare Function SetWindowText Lib "user32"
Alias _

"SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As
String) As Long


Private Sub Workbook_Open()
Call ChangeTitle
' Ton code éventuel
'....
End Sub

Private Sub Workbook_Activate()
Call ChangeTitle
End Sub

Private Sub Workbook_Deactivate()
Application.Caption = "Microsoft Excel"
End Sub

Private Sub ChangeTitle()
SetWindowText FindWindow(vbNullString,
Application.Caption), "Ici le titre

de ton choix !"
End Sub

MP

"Albator V" a
écrit dans le message de

news:060901c48b42$bd331340$
bonjour,
j'ai repris une macro qui change le titre de la barre de
titre d'Excel
(http://disciplus.simplex.free.Fr/classeursxl/mp-
xltitle.zip).
je lance cette macro toutes les 5 min et me suis aperçu
que le titre de la fenêtre active change. donc si j'ai un
userform ouvert, il change le titre aussi.

comment faire pour que mes titre de userform ne change
pas ?

merci d'avance


.