[AC-2010] ouverture d'un fichier spécifique en fonction de l'utilisateur [Résolu]

[gregius]

* Bonjour, *

j'aimerais dans un formulaire, via un bouton, ouvrir un fichier xls spécifique.
Actuellement, cela fonctionne pour ouvrir timesheet.xls mais je souhaiterais qu'il ouvre timesheet_GN.xls pour l'utilisateur GN par exemple
j'ai évidemment un tableau qui reprend l'ensemble des utilisateurs et leurs initiales.
Voici le code actuel :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub OpenSpecific_xlFile()
     '   Late Binding (Needs no reference set)
    Dim oXL As Object
    Dim oExcel As Object
    Dim sFullPath As String
    Dim sPath As String
 
 
     '   Create a new Excel instance
    Set oXL = CreateObject("Excel.Application")
 
 
     '   Only XL 97 supports UserControl Property
    On Error Resume Next
    oXL.UserControl = True
    On Error GoTo 0
 
 
     '   Full path of excel file to open
    On Error GoTo ErrHandle
    sFullPath = CurrentProject.Path & "\timesheet.xls"
 
 
     '   Open it
    With oXL
        .Visible = True
        .Workbooks.Open (sFullPath)
         End With
ErrExit:
    Set oXL = Nothing
    Exit Sub
 
ErrHandle:
    oXL.Visible = False
    MsgBox Err.Description
    GoTo ErrExit
End Sub

Merci de votre aide

[Carmiel]

Bonjour,
Ce que je te suggère c'est de faire :
Dans une table tu as 2 champs
Username et Initiale
Username est le nom qui sert à la connexion

Code :

1
2
3
4
5
6
7
8
9
    If Environ$("USERNAME") = "" Then
        MsgBox "La variable USERNAME n'existe pas !"
        Exit Sub
    Else
        sUsername = Environ$("USERNAME")
        sFiltre = "[Username] = '" & sUsername "'"
        sInitiales = DLookup("[Initiale]", "MaTable", sFiltre)
        sFullPath = CurrentProject.Path & "\timesheet_" & sInitiales & ".xls"
    End If

[gregius]

Merci
ça fonctionne !