Word VBA causant des problèmes dans le modèle

Question

J'ai un modèle Word 2010 avec des champs, et des listes déroulantes etc et un bouton de sauvegarde pour enregistrer le document dans un certain endroit avec un certain nom. Une partie du nom de fichier que je récupère en tant que nom d'utilisateur réseau dans VBA et une autre partie du nom de fichier est la date. Cela fonctionne bien pour moi mais quand je tente de tester le document avec un autre utilisateur, le code VBA se plaint à la ligne ci-dessous indiquant "Erreur de compilation: impossible de trouver un projet ou une bibliothèque".

strUserName = (Environ$("username")) 

Si je changé ci-dessus pour être comme la ligne ci-dessous à la place et un autre utilisateur ouvre le modèle et clique sur le bouton Enregistrer

strUserName = "validnetworkname" 

Il se plaint ensuite avec la même erreur lors de la prochaine référence VBA qui est

strDate = Date 

Quel est le problème ici s'il vous plaît?

Answer 1

J'utilise cette fonction:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
Public Function UserName() As String 
    On Error GoTo ErrProc 

    Dim lnglen As Long 
     lnglen = 255 

    Dim strSpace As String 
     strSpace = String(254, 0) 

    Dim lngX As Long 
     lngX = apiGetUserName(strSpace, lnglen) 

    If lngX <> 0 Then GetUserName = Left(strSpace, lnglen - 1) 

Leave: 
    On Error GoTo 0 
    Exit Function 

ErrProc: 
    Resume Leave 
End Function 

Pour l'appeler:

Dim user_ As String 
    user_ = UserName