Discussion :

[Pipon]

Bonjour,
j'utilise une centrale d'acquisition qui peut etre commandé par un logiciel qui me permet de faire du VBA (il s'agit du module easyscript du logiciel catmaneasy)

Et je voudrais enregistrer des fichiers de données, et j'ai 2 possibilités :
_soit je choisi à chaque acquisition le nom de mon fichier,
_soit je donne un nom de fichier directement dans mon code.

Le problème c'est qu'il peut y avoir des centaines de fichiers à enregistrer, du coup saisir à chaque fois un nom différent c'est très long, et avec le code, le contenu du fichier est écrasé par le nouvel enregistrement.

Donc je me dis que si j'arrivais à mettre la date d'enregistrement dans le nom de mon fichier, ca règlerait tous les problèmes, et en plus ca aidera bien pour le post-traitement des données.
Mais je ne sais pas comment on fait (je débute en VB) et je n'ai rien trouvé de similaire dans les forum, c'est pourquoi j'en viens à vous...


Merci par avance!

[cafeine]

Hello et bienvenue sur les forum,

en vb / vba pour obtenir une date, utilise Format()

[Pipon]

je ne comprends pas bien...Il faut que je mette format() dans mon nom de fichier?


voilà la description de la fonction d'enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EA_Job.StoreData(ByVal FileName as String, ByVal Format as Integer, ByVal Comment as String) As Long

FileName : Name (and optional path) of the file. The file extension has to be specified.

Format File format:
0 = catman 4.5
1 = catman 5.0
2 = ASCII
3 = ASCII + channel information
4 = MS Excel
5 = Diadem
6 = nSoft DAC (nCode)

Comment : File comment.

[Currahee]

je ne comprends pas bien...Il faut que je mette format() dans mon nom de fichier?


voilà la description de la fonction d'enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EA_Job.StoreData(ByVal FileName as String, ByVal Format as Integer, ByVal Comment as String) As Long

FileName : Name (and optional path) of the file. The file extension has to be specified.

Format File format:
0 = catman 4.5
1 = catman 5.0
2 = ASCII
3 = ASCII + channel information
4 = MS Excel
5 = Diadem
6 = nSoft DAC (nCode)

Comment : File comment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nom_fichier as String
nom_fichier = "Partie_Fixe_Du_Nom_De_Ton_Fichier" & Cstr(Date)

Tu définis ton nom de fichier comme ci-dessus dans ton code, puis tu passes la chaine ainsi créée en argument de ta fonction EA_Job.StoreData

NB: Date est une fonction VBA retournant la date du jour courant

[Pipon]

Merci,
je viens d'essayer, mais il cherche a ecrire la date en format JJ/MM/AA, donc avec des slash et pour un nom de fichier, ca ne marche pas.
J'ai essayé avec time, c'est pareil avec les deux points ( : )
Avec timer ca marche mais c'est pas très pratique (le nombre de seconde apres minuit...pfff)
Y'a moyen de détourner le truc? par exemple de mettre la date sous formatJJMMAA?

[Lou Pitchoun]

Salut

Essaie ceci :

Dim sNomFichier as String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sNomFichier = "Nom" & Format(Date, "yyyy-mm-dd")& ".extention"

Edit :
J'ai mis année, mois, jour car c'est plus pratique pour faire un tri

[Pipon]

Super ca marche!!

Merci beaucoup a tous les 3!

[voldorak]

Merci pour cette solution qui marche parfaitement!