Question de format

Bonjour,

A l'aide d'un petit code VBA, j'écris une variable dans un fichier à chaque ouverture d'un fichier Excel

Sub Ecriture_Histo()
    Open "U:\Histo.dat" For Append As #2
    On Error GoTo GestErreur
        Ligne = Format(Pointeur, "0000") & _
"  -  " & Application.UserName & _
"  -  " & Format(Date, "dd/mm") & _
"  -  " & Format(Time, "hh/mm")
        Write #2, Ligne
        Close #2
        Exit Sub
GestErreur:
        MsgBox "Ecriture non effectuée", 64, "informations"
        Close #2
End Sub

Néammoins, j'ai un petit souci d'esthétique, car le résultat est de cette forme:

"0227 - st23 - 02-03 - 1327"

"0228 - st23 - 02-03 - 1328"

"0229 - st23 - 02-03 - 1431"

"0230 - st23 - 02-03 - 1431"

"0231 - st23 - 02-03 - 1431"

"0232 - vat - 02-03 - 1443"

"0233 - vat - 02-03 - 1443"

"0234 - vat - 02-03 - 1532"

"0235 - st23 - 02-03 - 1709"

"0236 - st23 - 02-03 - 1710"

J'aimerais que tout soit strictement aligné, mais les "Usernames" n'ont pas tous la même longueur (sans jamais dépasser 4 lettres...)

Tab() me donne des trucs bizarres...

Merci de votre aide

Bonjour,

Suggestion: remplacer le Application.username par

Left(Application.username & " ",4)

Note: 4 espaces entre les guillemets. de cette façon, tu t'assures de toujours avoir 4 caractères.

Grand Chaman Excel a écrit :

Bonjour,

Suggestion: remplacer le Application.username par

Left(Application.username & " ",4)

Note: 4 espaces entre les guillemets. de cette façon, tu t'assures de toujours avoir 4 caractères.

Moi je me prenais la tête avec la commande Format(), et finalement comme ça c'est bien plus simple.

Merci beaucoup !