Titre sur Msgbox

Bonjour

Je voudrais bien savoir comment on rajoute un titre dans une msgbox ainsi qu'un texte , mais je voudrais que ces informations soient dans la meme msgbox alors que sa s'affiche en 2 msgbox

voila mon code :

Sub MAJ()
With ThisWorkbook

MsgBox .BuiltinDocumentProperties(7).Value 'Last author
MsgBox .BuiltinDocumentProperties(12).Value 'Last save time

End With
End Sub

Merci de vos aides

Bonjour

Essaie comme ça :

Sub MAJ()
    MsgBox "Salut sadsad !" & Chr(13) & "Cela te convient-il ?", 68, "Bienvenue !"
End Sub

Bye !

Bonjour,

Une possibilité :

Sub MAJ()
Dim S1$, S2$
With ThisWorkbook
S1 = .BuiltinDocumentProperties(7) 'Last author
S2 = .BuiltinDocumentProperties(12)  'Last save time
End With
MsgBox S1 & Chr(13) & S2
End Sub

A+

Merci GMB de ton aide mais en faisant cela je n'arrive pas a l'appliquer a mon code

MsgBox .BuiltinDocumentProperties(7).Value 'Last author

MsgBox .BuiltinDocumentProperties(12).Value 'Last save time

Merci de ton retour

Merci Galopin01 pour ton soutien

Ton code fonctionne mais je voudrais aussi rajouter un titre a ce code du genre "détails gestion tableaux " ainsi que du texte, par exemple "derniére modification par : "

Sub MAJ()
Dim S1$, S2$
With ThisWorkbook
S1 = .BuiltinDocumentProperties(7) 'Last author
S2 = .BuiltinDocumentProperties(12)  'Last save time
End With
MsgBox S1 & Chr(13) & S2
End Sub

Merci de vos aides

Tu devrais joindre ton fichier en expliquant à quel moment tu veux ton message et ce qu'il doit indiquer...

Bye !

Bonsoir sadsad, le forum,

je te propose ce code VBA :

Sub MAJ()
  Dim Titre$, S1$, S2$, S3$
  Titre = "Détails gestion tableaux"
  With ThisWorkbook
    S1 = .BuiltinDocumentProperties(7) 'Last author
    S2 = .BuiltinDocumentProperties(12)  'Last save time
    S3 = "dernière modification par : sadsad"
  End With
  MsgBox S1 & vbLf & S2 & vbLf & VbLf & S3, 64, Titre
End Sub

(regarde l'aide VBA sur MsgBox pour plus d'infos)

dhany

Parfait merci Dhany, tu es le meilleur !!!!

Sa marche du tonnerre !!