Discussion :

[peyro51]

Bonjour,

je débute en Vba et je cherche à fair e afficher une Popup pour afficher les propriété de mon workbook.
Je travaille sous excel2003 - versions anglaise.
Voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub Prop_Document()
    Dim P As Variant
    Dim text As Variant
 
On Error Resume Next
    text = ""
 
    For Each P In ActiveWorkbook.BuiltinDocumentProperties
        text = text & P.Name & " : " & P
    Next
 
    MsgBox text, vbOKOnly, "Properties"
End Sub

Tout ce passe bien (néanmoins si vous avez des conseils/critique je suis preneur) mais dans ma Message Box tout s'affiche en ligne. Je suppose qu'il existe un caractère permettant de forcer le passage à la ligne (du type \n ) mais je ne le connais pas pour VBA.

Une idée?
merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

text = text & vbcr & P.Name & " : " & P

[peyro51]

Rapide efficace juste, que demander de plus!

Merci!