Bonjour a tous,

Etant novice sur VBA, je viens solliciter votre aide sur une erreur dans le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WHSnet As Object, objuser As Object
Dim UserName As String, UserDomain As String, UserFullName As String, struser As String, strdate As String
 
'----------------------------------------------------------------------------------------------
'user information
Set WSHnet = CreateObject("WScript.Network")
UserName = WSHnet.UserName
UserDomain = WSHnet.UserDomain
Set objuser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
UserFullName = objuser.FullName
'strDate is a stamp of the date and time when the update button was pressed
strdate = Format(Now(), "dd/mm/yyyy hh:mm:ss")
'User is the username of the person
Mon erreur pointe la ligne 10 de mon code, et dit:
The remote server machine does not exist or is unavailable.
Auparavant le code ci-dessus fonctionnait correctement, apres avoir changer d'environnement de travail au boulot, ce dernier ne fonctionne plus.

Grand merci pour votre aide par avance.