Manipulation des propriété du classeur

[Tentho]

Bonsoir/bonjour à Tous,

Est ce que quelqu'un peut me dire comme mettre dans des cellules les propriétés du classeur: Crée le, modifié le, accédé le
Éventuellement comment les mettre également dans un bas de page

Excel 2000/XP

Merci d'avance de votre aide

 

[michel]

bonjour Tentho

j'espere que les deux exemple ci dessous pourront t'aider
le premier affiche quelques propriétés du classeur

Sub Propriétésclasseur()
Dim Cible As Object, Val As Object
Dim Resultat As String

Set Cible = CreateObject("Scripting.FileSystemObject")
Set Val = Cible.GetFile(ThisWorkbook.FullName) 'adpater le chemin

Resultat = "Chemin : " & Val.ParentFolder & Chr(10) & Chr(10) & _
"Nom fichier : " & ThisWorkbook.Name & Chr(10) & Chr(10) & _
"Date creation : " & Val.DateCreated & Chr(10) & Chr(10) & _
"Dermiere sauvegarde : " & Val.DateLastModified & Chr(10) & Chr(10) & _
"Taille classeur : " & Val.Size & " octets"

MsgBox Resultat
End Sub


le 2eme insert des propiétés du classeur en pied de page

Sub PropriétésClasseurDansPiedDePage()
Dim Cible As Object, Val As Object

Set Cible = CreateObject("Scripting.FileSystemObject")
Set Val = Cible.GetFile(ThisWorkbook.FullName) 'adpater le chemin

With Sheets("Feuil1").PageSetup
.LeftFooter = "Date creation : " & Val.DateCreated & Chr(10) & _
"Dermiere sauvegarde : " & Val.DateLastModified
.RightFooter = ThisWorkbook.FullName & Chr(10) & _
"Taille classeur : " & Val.Size & " octets"
End With
End Sub

bon week end
michel

 

[Tentho]

Un grand merci Michel pour ton aide.

Les 2 macro fonctionnes parfaitement mais....

Comment récupérer la valeur "Date de création" pour la mettre automatiquement dans un cellule de la feuille (A3 par exemple).

J'aimerai pouvoir l'utiliser pour faire des opération comme sur une cellule normale.

Merci d'avance
Tentho

 

[@+Thierry]

Salut Tentho, Michel, le Forum

Les codes que Michel t'a donnés sont facilement adaptables pour écrire sur la feuille...

Enfin dans cette vieille démo (sans déclaration de Variable lol !!), tu auras l'écriture d'un tas de trucs sur la Feuille !

Lien supprimé

Bonne Nuit
@+Thierry

 

[Tentho]

Bonsoir/Bonjour

Un très GRAND merci à tous.

grâce à vous j'ai résolu mon problème du moment.

Ce forum est vraiment très utile pour les novices comme moi.

@+
Bonne nuit
Tentho