Application.UserName modifie le format de numéro

J'ai une cellule dans un file Excel que je souhaite remplir avec la date et l'heure actuelles et le nom d'user. La cellule est peuplée en cliquant sur un button.

Jusqu'à présent, je n'utilisais pas la fonction Application.UserName et la sortie de la date et de l'heure était correctement formatée (ex: 07.01.2014 16:57 )

Après avoir ajouté le code de l' & Space(1) & Application.UserName le formatting de la date et de l'heure n'est pas formaté comme je le souhaite (selon l'user qui remplit la cellule, j'obtiens des résultats comme: 09-Jan-14 11:30:13 + USERNAME 1/7/2014 5:59:43 PM + USERNAME ou 1/7/2014 5:59:43 PM + USERNAME )

Je suppose qu'il faut le formatting à partir des parameters régionaux de l'user, n'est-ce pas?

• Excel convertit à tort les gammes en dates, comment l'éviter?
• Utilisez les valeurs de date de différentes feuilles dans la formule
• Réglage de la timezone local VBA
• Générateur de numéros de série Excel; séquentiel basé sur la semaine de l'année
• Copier et coller Microsoft Excel avec le format de date

Ma question est de savoir comment puis-je replace ces parameters car il semble que le code de ActiveCell.NumberFormat = "dd.mm.yyyy hh:mm" ne fonctionne plus correctement.

Voici mon code:

 Private Sub CommandButton1_Click() ActiveCell = Now() & Space(1) & Application.UserName ActiveCell.NumberFormat = "dd.mm.yyyy hh:mm" End Sub 

• Excel 2010 – Changer la source de données du tableau pivot de l'externe à la feuille de calcul dans le classur
• Différencier les numéros et la date dans MSExcel
• Délais entre deux dates
• Comment find la première date du mois pour un set de données dans vba
• ROUNDUP date courante à 15e ou fin du mois

 With ActiveCell .Value = Now() .NumberFormat = "dd.mm.yyyy hh:mm" .Value = .Text & Space(1) & Application.UserName End With