Propriétés d'un fichier

[Ashaar]

Bonjour,
Sous NT, dans Excel (ou via l'explorateur), faire : <Fichier/Propriété/Statistique> permet de voir la derniere personne qui a enregistré le fichier.

Savez vous si l'on peut récupérer cette information via VB ?

Merci.

 

[Ashaar]

Bonjour,
Je me permets de remonter ma demande.
Si vous avez des infos, je suis preneur.

J'arrive à récuperer la date du fichier, sa taille(en octect), son nom, son extension mais tj pas le gogin de la derniere personne qui l'a enregistré.

 

[Abel]

Bonjour Ashaar, le forum,

Si ma mémoire est bonne Michel_XLD et Lien supprimé devrait répondre au moins en partie à ta demande.

En tous cas, fouille dans les archives. Il me semble bien y avoir vu des demandes équivalentes à la tienne.

En espérant que cela te dépanne.

Abel.

 

[Ashaar]

Coucou,

Merci pour la réponse, mais je n'ai pas les droits au bureau pour utiliser les Listview ou Treeview.
D'ou ma question.

J'avais utilisé la recherche du forum (fichier, propriétés, login, ...) sans succés avant de poster.

D'ou ma demande.

 

[MichelXld]

bonjour Ashaar , bonjour Abel

Abel , merci d'avoir proposé le lien


Ashaar , ci joint un autre exemple sur le meme principe mais sans ListView & TreeView

Sub informationsFichier()
'testé avec Excel2002 & WinXP
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Dim Chemin As String, Resultat As String
Dim i As Byte

'adapter le chemin et le nom du fichier
Chemin = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'

Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.NameSpace(Chemin)
'adapter le nom du fichier
Set strFileName = objFolder.Items.Item('monClasseur.xls')

For i = 0 To 34
If objFolder.GetDetailsOf(strFileName, i) <> '' Then _
Resultat = Resultat & objFolder.GetDetailsOf(strFileName, i) & vbLf
Next
MsgBox Resultat

End Sub

bon week end
MichelXld

 

[Ashaar]

Merci pour votre aide.

Je travaille sous Excel97 et je n'ai pas accès à la reference Microsoft Shell Controls and Automation.

Je bien crois que ce que je cherche n'existe hélas pas.
on trouve : FileDateTime, FileLen, GetAttr, fileName, etc..

Mais pas de FileLastUser, NameDernierUtilisateur ou machin du meme genre.

 

[MichelXld]

rebonsoir Ashaar

de toute façon , apres avoir relu ta demande , je ne pense pas que mon premier message aurait répondu exactement à ta demande car le nom du dernier auteur n'etait pas pris en compte


si ton classeur est ouvert tu peux tester la propriété BuiltinDocumentProperties , qui fonctionnera avec Excel97

ci dessous un exemple issu de l'aide en ligne excel

Sub informationsFichier()
Dim p As Object
Dim Rw As Byte

On Error Resume Next
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(Rw, 1).Value = p.Name
Rw = Rw + 1
Next

End Sub


bonne soiree
MichelXld

 

[_Thierry]

Bonsoir Michel, Ashaar, Abel

Si j'ai un bon souvenir, Vériland avait mis en ligne une autre façon de faire avec un FileScriptingObject, mais là je suis en train de plier bagage au bureau, pas vraiment le temps de chercher.

Sinon, Michel, très bien ta méthode Microsoft Shell Controls and Automation, je viens de tester en réseau, interressant, on trouve même le Log-in du User et par quel Domaine il est entré dans le réseau. Je ne connaissais pas, mais je vais pouvoir faire su Spy... lol !!!

Bonne Soirée et Week End à tous et toutes !! Thanks God it's Friday

@+Thierry

 

[MichelXld]

bonsoir @+Thierry

comme ces derniers temps , nous n'avons pas souvent eu l'occasion de nous croiser dans des fils de discussion , j'en profite pour te saluer et te souhaiter aussi un très bon week end


bonne soiree
MichelXld

 

[Ashaar]

Bien le bonsoir,

Je ne connaissais pas 'BuiltinDocumentProperties', très utile.

Merci pour votre aide, ça m'ennuyais un peu de buter entre autre choses la-dessus.

 

[Julien]

Bonsoir tout le monde,

J'utilise ActiveWorkbook.BuiltinDocumentProperties(11) pour connaître la date de création d'un fichier Excel. Mais je voudrais connaître la date de création d'un fichier .txt sans avoir besoin de l'ouvrir, j'ai donc voulu essayer la procédure de MichelXld mais lorsque je veux l'exécuter, il m'affiche:
Erreur de compilation
Type défini par l'utilisateur non défini
sur la première ligne: objShell As Shell
Merci d'avance de votre aide.

 

[Julien]

Pour info, j'ai Excel 2003 et XP Pro

 

[MichelXld]

bonsoir Julien

dans l'editeur de macros
Menu Outils
References
coches la ligne 'Microsoft Shell Controls and Automation'
cliques sur OK pour valider


bonne soiree
MichelXld

 

[Julien]

Merci beaucoup pour ta rapidité, ca marche!
(en même temps j'ai appris ce que c'était que les références)
A bientôt

 

[Julien]

Bonsoir,

J'aimerais bien avoir une petite précision:
Je récupère la date de création (4ème indice) de 2 fichiers dans 2 variables que je déclare de cette façon:
Dim Comp1
Dim Comp2
Et lorsque je passe en mode débogage je vois que Comp1='02/11/2005 20:15' et Comp2='02/11/2005 20:17:59'
Je ne comprends pas pourquoi il y a les secondes pour la 2ème variable et pas pour la 1ère (j'utilise exactement le même procédé pour affecter une valeur à ces 2 variables)

Ma deuxième intérogation, c'est qu'après je fais :
Testcomp = Comp1 > Comp2 et il me marque Vrai ! Je voudrais savoir si il fait l'inverse d'une comparaison normale. Parce qu'avec BuiltinDocumentProperties il m'aurait marqué Faux.

Merci d'avance pour vos explications.