Bonjour,

A partir du code de SilkyRoad (http://silkyroad.developpez.com/VBA/...etesClasseurs/), j'ai pu récupérer certaine information d'un PWP en lecture seule via mon Excel.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Sub proprietesFichier_getFile(Fichier As String)
        '
        'Nécessite d'activer la référence Microsoft Scripting Runtime
        '
        Dim Cible As Scripting.FileSystemObject
        Dim Valeur As Scripting.File
        Dim Resultat As String
 
        Set Cible = CreateObject("Scripting.fileSystemObject" )
        Set Valeur = Cible.GetFile(Fichier)
 
        Resultat = "Chemin et nom complet : " & Cible.GetAbsolutePathName(Valeur) & Chr(10) & Chr(10) & _
        "Nom fichier : " & Cible.GetFileName(Valeur) & Chr(10) & Chr(10)
 
        MsgBox Resultat
    End Sub
Quelqu'un sait comment récupérer le nom de la personne utilisant actuellement le PWP ?

Merci pour votre aide !
Bonne journée