Titre du sujet : Re: Test login et traitement
par myDearFriend! le 18/01/2010 17:30:36
Bonjour vg00, le Forum,
Compte tenu de l'explication fournie, pour faire simple et pour 4 cas seulement :
DANS UN MODULE DE CODE STANDARD (exemple : Module1)
Option Explicit
Function login() As String
login = Application.UserName
End Function
Sub RecupUser()
Dim Prenom As String, Nom As String, Tel As String, Fax As String, Mail As String, Initiales As String
Select Case login
Case "Jean.Dupont"
Prenom = "Jean"
Nom = "Dupont"
Tel = "0000000001"
Fax = "0000000002"
Mail = "jean.dupont@exemple.com"
Initiales = "JD"
Case "Guy.Martin"
Prenom = "Guy"
Nom = "Martin"
Tel = "1111111111"
Fax = "1111111112"
Mail = "guy.martin@exemple.com"
Initiales = "GM"
Case "Corinne.Jules"
Prenom = "Corinne"
Nom = "Jules"
Tel = "2222222221"
Fax = "2222222222"
Mail = "corinne.jules@exemple.com"
Initiales = "CJ"
Case "Claire.Chazal"
Prenom = "Claire"
Nom = "Chazal"
Tel = "3333333331"
Fax = "3333333332"
Mail = "claire.chazal@exemple.com"
Initiales = "CC"
Case Else
MsgBox "Login non répertorié"
End Select
If Prenom <> "" Then
With Sheets(1)
.Cells(1, 1).Value = Prenom
.Cells(1, 2).Value = Nom
.Cells(1, 3).Value = Tel
.Cells(1, 4).Value = Fax
.Cells(1, 5).Value = Mail
.Cells(1, 6).Value = Initiales
End With
End If
End Sub
Cordialement,
|
Didier FOURGEOT