OVH Cloud OVH Cloud

Remplissage automatique de l'auteur

2 réponses
Avatar
olivier.monnet
Bonjour,

Je ne sais pas par quel bout réaliser mon besoin, merci par avance à
ceux qui pourront m'y aider...

Sur un réseau de 5 postes en Win XP, Word 2002, j'ai fait un document
.dot sur le serveur que chaque poste peut appeler.
Dans ce document, j'ai une ligne qui indique qui écrit, et une autre
son numéro de téléphone.

Je me suis dit qu'il était surement possible que Word remplisse tout
seul ces 2 lignes !!!

1/ est-il possible que Word récupère le nom de la personne qui a
ouvert la cession Windows, trouve (je ne sais pas où, m'erci de me
dire ce qu'il faut que je fasse) les prénom, nom et téléphone, et
remplisse automatiquement les 2 lignes du nouveau fichier .doc crée à
partir de mon modèle .dot ?

2/ Sinon, comment fait-on pour qu'une fenêtre s'ouvre et pose les
questions, que la personne devant son clavier y réponde, et que Word
remplisse les 2 lignes ???

J'ai essayé le site de http://faqword.free.fr mais cela ne m'a pas
aidé à commencer...
MERCI si vous pouvez me donner un début de piste...

Amicalement à tous,

Olivier

2 réponses

Avatar
Xav
Bonjour Olivier M

Crée dans ton modèle un TextBox qui s'appelle UtilisateurSession

Dans un module

Option Explicit
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
_
(ByVal lpBuffer As String, nSize As Long) As Long

Function NomUtilisateurSession() As String

Dim Tampon As String
Dim Longueur As Long

Longueur = 199
Tampon = String$(200, 0)
GetUserName Tampon, Longueur - 1
NomUtilisateurSession = UCase(Left$(Tampon, Longueur - 1))

End Function


Puis dans ThisDocument

Private Sub Document_Open()

Dim Utilisateur As String



Utilisateur = NomUtilisateurSession

UtilisateurSession.Enabled = True
UtilisateurSession = Utilisateur
UtilisateurSession.Enabled = False


End Sub



--
Cordialement

@+
Xav
"Olivier M" a écrit dans le message de
news:
Bonjour,

Je ne sais pas par quel bout réaliser mon besoin, merci par avance à
ceux qui pourront m'y aider...

Sur un réseau de 5 postes en Win XP, Word 2002, j'ai fait un document
.dot sur le serveur que chaque poste peut appeler.
Dans ce document, j'ai une ligne qui indique qui écrit, et une autre
son numéro de téléphone.

Je me suis dit qu'il était surement possible que Word remplisse tout
seul ces 2 lignes !!!

1/ est-il possible que Word récupère le nom de la personne qui a
ouvert la cession Windows, trouve (je ne sais pas où, m'erci de me
dire ce qu'il faut que je fasse) les prénom, nom et téléphone, et
remplisse automatiquement les 2 lignes du nouveau fichier .doc crée à
partir de mon modèle .dot ?

2/ Sinon, comment fait-on pour qu'une fenêtre s'ouvre et pose les
questions, que la personne devant son clavier y réponde, et que Word
remplisse les 2 lignes ???

J'ai essayé le site de http://faqword.free.fr mais cela ne m'a pas
aidé à commencer...
MERCI si vous pouvez me donner un début de piste...

Amicalement à tous,

Olivier


Avatar
Stinger
J'ai eu le même pb il y a une semaine, que j'ai résolu
comme suit:

Dans Outils/Options/Utilisateur, chaque personne met ses
noms, intiales et téléphone (le tél. dans le champ
adresse).
Ensuite, sur le .dot, faire Insertion/Champ/ et tout en
bas de la liste déroulante sélectionner l'un après l'autre
UserName, UserInitials et UserAdress.

Et voilà !

-----Message d'origine-----
Bonjour,

Je ne sais pas par quel bout réaliser mon besoin, merci
par avance à

ceux qui pourront m'y aider...

Sur un réseau de 5 postes en Win XP, Word 2002, j'ai fait
un document

..dot sur le serveur que chaque poste peut appeler.
Dans ce document, j'ai une ligne qui indique qui écrit,
et une autre

son numéro de téléphone.

Je me suis dit qu'il était surement possible que Word
remplisse tout

seul ces 2 lignes !!!

1/ est-il possible que Word récupère le nom de la
personne qui a

ouvert la cession Windows, trouve (je ne sais pas où,
m'erci de me

dire ce qu'il faut que je fasse) les prénom, nom et
téléphone, et

remplisse automatiquement les 2 lignes du nouveau
fichier .doc crée à

partir de mon modèle .dot ?

2/ Sinon, comment fait-on pour qu'une fenêtre s'ouvre et
pose les

questions, que la personne devant son clavier y réponde,
et que Word

remplisse les 2 lignes ???

J'ai essayé le site de http://faqword.free.fr mais cela
ne m'a pas

aidé à commencer...
MERCI si vous pouvez me donner un début de piste...

Amicalement à tous,

Olivier
.