Récupérer un "username"

Bonjour,

je paufine toujours mon fichier et j'aimerai aller rechercher le "username" afin que le fichier et le PDF créé se sauvegarde automatiquement sur un sharepoint.

Après plusieurs essais infructueux pour créer une ligne de commande j'ai enfin réussi en mettant le chemin de type "windows explorer", mais je dois alors avoir besoin du nom d'utilisateur de chacun pour que cela fonctionne (et peut-être aussi que l'utilisateur aie synchronisé le sharepoint avec son pc... je suppose...)

donc pourriez-vous me dire comment aller chercher ce nom d'utilisateur via VBA?

ou alors me dire ce qui cloche dans la programation éventuellement...

oici un extrait de la prog

Private Sub Btn_impression_Click()

        Dim rep%
        Dim ws1 As Worksheet
        Dim ws2 As Worksheet

        Application.ScreenUpdating = False

        ' Définition du chemin et nom du fichier
        Call Sub_additionnel.DefinitionCheminNomFichier(repertoryPath, fileName)

        ' Si le répertoire demandé n'existe pas (voir procédure "DefinitionCheminNomFichier") on le créé
        If Len(Dir(repertoryPath, vbDirectory)) = 0 Then MkDir (repertoryPath)

        ' Export des onglets en PDF
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            fileName:=repertoryPath & fileName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True     ' TRUE = Affiche le PDF après impression, FALSE = Ne l'affiche pas

        Sheets("OPR info").Activate

'Liste des essais
        ' ChDir "C:\OPR_Request\" & Sheets("Information Page").Range("C13").Text & "\"
        ' ChDir "\\MASOCIETE.sharepoint.com\sites\Design975\Gedeelde%20documenten\17_Design\LASOCIETEDESTINATAIRE\OPR\2022\opr_" & Sheets("Information Page").Range("C13").Text & "\"
        ChDir "C:\Users\NOMUTILISATEUR\MASOCIETE\Design - Documents\17_Design\LASOCIETEDESTINATAIRE\OPR\2022\opr_" & Sheets("Information Page").Range("C13").Text & "\"

        ActiveWorkbook.SaveAs fileName:="OPR_" & Func_additionnel.NettoyageNom(Sheets("Information Page").Range("C13").Text)

        ' On enchaine avec la possibilité d'envoyer un mail
        rep = MsgBox("Would you like to send an email?", vbYesNo)

        ' Ouverture du formulaire
        If rep = vbYes Then
                Call Sub_additionnel.EnvoyerMail(repertoryPath, fileName)
        End If

        Application.ScreenUpdating = True

End Sub

et pour la fonction de définition du chemin

Public Sub DefinitionCheminNomFichier(ByRef repertoryPath$, ByRef fileName$)

        Dim ws1 As Worksheet
        Dim ws2 As Worksheet

        Set ws1 = Sheets("Information page")
        Set ws2 = Sheets(Sheets("OPR info").Range("B4").Value)

        ' Sélectionne les 2 onglets définis ci-dessus
        Sheets(Array(ws1.Name, ws2.Name)).Select
'liste des essais
        ' repertoryPath = "C:\OPR_Request\" & Sheets("Information Page").Range("C13").Text & "\"
        ' repertoryPath = "\\MASOCIETE.sharepoint.com\sites\Design975\Gedeelde%20documenten\17_Design\LASOCIETEDESTINATAIRE\OPR\2022\opr_" & Sheets("Information Page").Range("C13").Text & "\"
        repertoryPath = "C:\Users\NOMUTILISATEUR\MASOCIETE\Design - Documents\17_Design\LASOCIETEDESTINATAIRE\OPR\2022\opr_" & Sheets("Information Page").Range("C13").Text & "\"

        fileName = "OPR_" & Func_additionnel.NettoyageNom(Sheets("Information Page").Range("C13").Text)

        ' On vérifie si "fileName" contient déja un "."
        If InStr(fileName, ".") = 0 Then
                fileName = fileName & ".pdf"
        Else
                fileName = Left(fileName, InStr(1, fileName, ".")) & "pdf"
        End If

D'avance merci

Bonjour,

Environ("username"), peut-être?

Bonjour Cousinhub,

désolé mais je débute en VBA et je n'ai aucune idée de ce que tu veux dire...

Sorry, comme dit juste avant je débute.... Mais c'est en ordre. Merci beaucoup