Insertion d'infos systeme

michdenis

01/07/2004 à 15:28

Bonjour Sylvie,

Directement de l'aide d'excel :

Pour appeler la procédure :

ShowFileInfo "C:ExcelClasseur1.xls"

'-------------------------------
Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
MsgBox s
End Sub
'-------------------------------

Salutations!

"Sylvie" a écrit dans le message de news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

papou

01/07/2004 à 15:33

Bonjour
Avec une macro :
Worksheets("Feuil1").Range("A1") Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"),
"DD/MM/YYYY")
Worksheets("Feuil1").Range("A2") Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY
HH:MM")

Cordialement
Pascal

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

michdenis

01/07/2004 à 15:36

Bonjour Sylvie,

Pour obtenir le résultat dans la feuille :

Tu peux inscrire directement dans la cellule :
=ShowFileInfo("C:ExcelClasseur1.xls")

OU par procédure :

Il ne faut pas oublier de copier la fonction dans un module Standard.

Sub DansLaFeuille()
Range("A20") = ShowFileInfo("C:excelDenis.xls")
End Sub

Function ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
ShowFileInfo = s
End Function

Salutations!

"Sylvie" a écrit dans le message de news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

Jacky

01/07/2004 à 15:46

Question complémentaire sur ce sujet:

Est-il possible d'avoir ces infos sans VBA ??

Salutations
JJ

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

Jacky

01/07/2004 à 15:54

ouppssss
pour la feuille ou le classeur en cours, bien sur ??

JJ

"Jacky" a écrit dans le message de
news:

Question complémentaire sur ce sujet:

Est-il possible d'avoir ces infos sans VBA ??

Salutations
JJ

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

michdenis

01/07/2004 à 15:57

Bonjour Jacky,

Un clic du bouton gauche de la souris sur le fichier dans l'explorateur, commande : propriétés ...

Salutations!

"Jacky" a écrit dans le message de news:
Question complémentaire sur ce sujet:

Est-il possible d'avoir ces infos sans VBA ??

Salutations
JJ

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

Jacky

01/07/2004 à 16:13

Bonjour mich ou denis
Je ne sais toujours pas lequel ??

Je voulais dire, une infos dans une cellule
En a1= username
en b1Útecreation
par exemple, directement, sans vba

salutations
JJ

"michdenis" a écrit dans le message de
news:

Bonjour Jacky,

Un clic du bouton gauche de la souris sur le fichier dans l'explorateur,
commande : propriétés ...

Salutations!

"Jacky" a écrit dans le message de
news:

Question complémentaire sur ce sujet:

Est-il possible d'avoir ces infos sans VBA ??

Salutations
JJ

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

michdenis

01/07/2004 à 16:22

Bonjour Jacky,

Je ne suis pas un spécialiste des formules, mais moi je ne connais pas de formule qui te donne un résultat directement
dans les cellules.

Mich ou Denis , les 2 sont acceptés sans problème !

Salutations!

"Jacky" a écrit dans le message de news:
Bonjour mich ou denis
Je ne sais toujours pas lequel ??

Je voulais dire, une infos dans une cellule
En a1= username
en b1Útecreation
par exemple, directement, sans vba

salutations
JJ

"michdenis" a écrit dans le message de
news:

Bonjour Jacky,

Un clic du bouton gauche de la souris sur le fichier dans l'explorateur,
commande : propriétés ...

Salutations!

"Jacky" a écrit dans le message de
news:

Question complémentaire sur ce sujet:

Est-il possible d'avoir ces infos sans VBA ??

Salutations
JJ

"Sylvie" a écrit dans le message de
news:2468901c45f6d$c8632030$
Bonjour,
je voudrais insérer dans ma feuille Excel
- la date de création
- la date d'enregistrement du fichier

Est-ce possible ?

Merci pour vos pistes

Daniel.M

01/07/2004 à 16:33

Mich ou Denis , les 2 sont acceptés sans problème !

Et le nuage s'épaissit...

Félicitations. :-)

Daniel M.

michdenis

01/07/2004 à 16:36

Bonjour Daniel,

En autant que moi je m'en souvienne ! Ce n'est pas un problème !!

;-))

Salutations!

"Daniel.M" a écrit dans le message de news:

Mich ou Denis , les 2 sont acceptés sans problème !

Et le nuage s'épaissit...

Félicitations. :-)

Daniel M.

Insertion d'infos systeme

10 réponses

Veuillez sélectionner un problème