Discussion :

[Sylvain2003]

Bonjour,

j'ai trouvé le code suivant pour obtenir la date du dernier enregistrement d'un classeur avec VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DernierEnrg = ActiveWorkbook. _
BuiltinDocumentProperties("Last Save Time").Value
 
Cells(5, 2).Value = DernierEnrg

Mais comment fait on si on ne veut pas ouvrir le classeur et en spécifiant le chemin d'accès \\chemin serveur\nomFichier.xls ?

merci

Sylvain

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

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 proprietesclasseur()
Dim Cible As Object, Valeur As Object
Dim Resultat As String, Fichier As String
 
Fichier = "C:\Classeur2.xls" 'adpater le chemin
Set Cible = CreateObject("Scripting.fileSystemObject")
Set Valeur = Cible.getFile(Fichier)
 
Resultat = "Chemin : " & Valeur.parentFolder & Chr(10) & Chr(10) & _
"Nom et chemin fichier : " & Fichier & Chr(10) & Chr(10) & _
"Date creation : " & Valeur.dateCreated & Chr(10) & Chr(10) & _
"Derniere modification : " & Valeur.dateLastModified & Chr(10) & Chr(10) & _
"Taille classeur : " & Valeur.Size & " octets"
 
MsgBox Resultat
End Sub

bonne journée
michel

[Sylvain2003]

Merci Michel,

ça fonctionne

Sylvain