Manipulation des propriété du classeur

M

michel

Guest

• 17 Janvier 2004

• #2

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

 

Vote positif 0 Vote négatif

T

Tentho

Guest

• 17 Janvier 2004

• #3

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

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 18 Janvier 2004

• #4

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

 

Vote positif 0 Vote négatif

T

Tentho

Guest

• 18 Janvier 2004

• #5

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

 

Vote positif 0 Vote négatif