J'aimerais créer une feuille de calcul qui contient la date de création du
document. J'aimerais que cette cellule ne soit pas mise à jour lors de
l'ouverture ultérieure de la page.Il s'agit de la date de facturation et
celle ci ne doit pas être changée.Elle doit également me permettre de
calculer la date d'échéance du paiement.
merci d'avance pour votre réponse.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Claude Trouet
Bonsoir, Cela répond à la question ..... à condition que le fichier ait été enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open() fichier = ThisWorkbook.FullName ShowFileInfo fichier End Sub
Sub ShowFileInfo(specfichier) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(specfichier) s = "Créé le : " & f.DateCreated Sheets("Feuil1").Range("A1").Value = s End Sub
Est-ce OK ? CT
"a.k" a écrit dans le message de news: 416176fe$
J'aimerais créer une feuille de calcul qui contient la date de création du document. J'aimerais que cette cellule ne soit pas mise à jour lors de l'ouverture ultérieure de la page.Il s'agit de la date de facturation et celle ci ne doit pas être changée.Elle doit également me permettre de calculer la date d'échéance du paiement. merci d'avance pour votre réponse.
Bonsoir,
Cela répond à la question ..... à condition que le fichier ait été
enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open()
fichier = ThisWorkbook.FullName
ShowFileInfo fichier
End Sub
Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
Sheets("Feuil1").Range("A1").Value = s
End Sub
Est-ce OK ?
CT
"a.k" <albert.karlen@metaldesign.ch> a écrit dans le message de news:
416176fe$1@news.vsnet.ch...
J'aimerais créer une feuille de calcul qui contient la date de création du
document. J'aimerais que cette cellule ne soit pas mise à jour lors de
l'ouverture ultérieure de la page.Il s'agit de la date de facturation et
celle ci ne doit pas être changée.Elle doit également me permettre de
calculer la date d'échéance du paiement.
merci d'avance pour votre réponse.
Bonsoir, Cela répond à la question ..... à condition que le fichier ait été enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open() fichier = ThisWorkbook.FullName ShowFileInfo fichier End Sub
Sub ShowFileInfo(specfichier) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(specfichier) s = "Créé le : " & f.DateCreated Sheets("Feuil1").Range("A1").Value = s End Sub
Est-ce OK ? CT
"a.k" a écrit dans le message de news: 416176fe$
J'aimerais créer une feuille de calcul qui contient la date de création du document. J'aimerais que cette cellule ne soit pas mise à jour lors de l'ouverture ultérieure de la page.Il s'agit de la date de facturation et celle ci ne doit pas être changée.Elle doit également me permettre de calculer la date d'échéance du paiement. merci d'avance pour votre réponse.
docm
Bonjour.
S'il n'a pas été enregistré, il a été créé, mais sa vie fut probablement de courte durée. ;)
"Claude Trouet" wrote in message news:
Bonsoir, Cela répond à la question ..... à condition que le fichier ait été enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open() fichier = ThisWorkbook.FullName ShowFileInfo fichier End Sub
Sub ShowFileInfo(specfichier) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(specfichier) s = "Créé le : " & f.DateCreated Sheets("Feuil1").Range("A1").Value = s End Sub
Est-ce OK ? CT
"a.k" a écrit dans le message de news: 416176fe$
J'aimerais créer une feuille de calcul qui contient la date de création du
document. J'aimerais que cette cellule ne soit pas mise à jour lors de l'ouverture ultérieure de la page.Il s'agit de la date de facturation et celle ci ne doit pas être changée.Elle doit également me permettre de calculer la date d'échéance du paiement. merci d'avance pour votre réponse.
Bonjour.
S'il n'a pas été enregistré, il a été créé, mais sa vie fut probablement de
courte durée. ;)
"Claude Trouet" <nospam-claude.trouet@wanadoo.fr> wrote in message
news:uU26SBjqEHA.1308@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Cela répond à la question ..... à condition que le fichier ait été
enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open()
fichier = ThisWorkbook.FullName
ShowFileInfo fichier
End Sub
Sub ShowFileInfo(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = "Créé le : " & f.DateCreated
Sheets("Feuil1").Range("A1").Value = s
End Sub
Est-ce OK ?
CT
"a.k" <albert.karlen@metaldesign.ch> a écrit dans le message de news:
416176fe$1@news.vsnet.ch...
J'aimerais créer une feuille de calcul qui contient la date de création
du
document. J'aimerais que cette cellule ne soit pas mise à jour lors de
l'ouverture ultérieure de la page.Il s'agit de la date de facturation et
celle ci ne doit pas être changée.Elle doit également me permettre de
calculer la date d'échéance du paiement.
merci d'avance pour votre réponse.
S'il n'a pas été enregistré, il a été créé, mais sa vie fut probablement de courte durée. ;)
"Claude Trouet" wrote in message news:
Bonsoir, Cela répond à la question ..... à condition que le fichier ait été enregistré !
dans le module Thisworkbook du classeur, mettre
Private Sub Workbook_Open() fichier = ThisWorkbook.FullName ShowFileInfo fichier End Sub
Sub ShowFileInfo(specfichier) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(specfichier) s = "Créé le : " & f.DateCreated Sheets("Feuil1").Range("A1").Value = s End Sub
Est-ce OK ? CT
"a.k" a écrit dans le message de news: 416176fe$
J'aimerais créer une feuille de calcul qui contient la date de création du
document. J'aimerais que cette cellule ne soit pas mise à jour lors de l'ouverture ultérieure de la page.Il s'agit de la date de facturation et celle ci ne doit pas être changée.Elle doit également me permettre de calculer la date d'échéance du paiement. merci d'avance pour votre réponse.
