enregistrement automatique avec la date et l'heure de mes tableaux generé sousRésolu

Question

Bonjour!
Comment faire pour enregistrer des données(pour ma part c'est des tableaux) automatiquement avec la date et l'heure de leurs création dans un repertoir bien définit??

Merci pour votre aide

cs_JMO · Accepted Answer

re-bonjour

Reprise de ton script



Option Explicit
Dim strFileTablo, strFileTabSum  
ReDim arrTablo(1000), arrTabloSum(1000)
Dim sum, i

strFileTablo = "C:" & Year(Date) & Mid(Date, 4,2) & Left(Date,2) & _
               Replace(Time,Chr(58), vbNullString) & ".txt"
strFileTabSum = "C:" & Year(Date) & Mid(Date, 4,2) & Left(Date,2) & _
               Replace(Time,Chr(58), vbNullString)+1 & ".txt"

Sum = 0
For i = 1 To 1000
   arrTablo(i) = Rnd * 0.5 
   sum = sum + arrTablo(i)
   arrTabloSum(i) = sum
Next

Call WriteTextFile(strFileTablo,arrTablo)
Call WriteTextFile(strFileTabSum,arrTabloSum)

Sub WriteTextFile(ArgFile, ArgArray)
   Dim objFso, objTextFile
   Dim j
   Set objFso = CreateObject("Scripting.FileSystemObject")
   Set objTextFile = objFso.CreateTextFile(ArgFile,True)
   For j = 1 To UBound(ArgArray)
      objTextFile.WriteLine ArgArray(j) 
   Next 
   objTextFile.Close
   Set objTextFile = Nothing
   Set objFso = Nothing
End Sub




jean-marc

Utilisateur anonyme · Answer

Bonjour,

Il y a quelque chose qui m'échappe. C'est fait automatiquement par Windows, non ? Pour autant que je me souvienne, VBScipt peut lire cette date.

belouniss · Answer

Merci JMO! vous êtes mon sauveur!
vous aurez mes remerciements sur mn rapport de stage c incontournable!!
Merci encore!!

Enregistrement automatique avec la date et l'heure de mes tableaux generé sous

3 réponses

Votre réponse

Discussions similaires