Ecrire dans un fichier excel ou csv

info024 Messages postés 9 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 3 juillet 2008 - 30 mars 2008 à 11:35
info024 Messages postés 9 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 3 juillet 2008 - 30 mars 2008 à 15:22
Bonjour,
Quelq'un peut me donner le code VB pour la Situation:
Je fais une acquisiton des données via un port de communication qui gère 16 voies, alors je veux sauvegarder les données dans un fichier CSV ou excel pendant un N nbre de jour (ca veut dire que je démarre l'app pour écrire dans le fichier1 24h et elle bascule vers un fichier2 de 24h et fichier3 de 24h ........ ) génération de plusieurs fichiers de 24 H jusqu'à arrêt de l'application.

j'ai déjà un code qui tourne qui affiche les valeurs des 16 voies. Mais pour enregistrer et basculer vers plusieurs fichiers j'ai besoin de votre aide.

Merci.

4 réponses

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 21
30 mars 2008 à 13:21
Salut,

Un fichier CSV n'est rien d'autre qu'un fichier TXT avec un séparateur de valeurs qui peut être la virgule, le point-virgule,... selon la configuration de ton PC.

Tu pourrais donc y arriver en utilisant les fonctions de base de lecture/écriture de fichiers.
Open
Append
Print, Input, Line Input
Close
....

Il y a plein de sources sur ce site et sur Codyx.org
Fais une recherche au besoin et reviens avec un bout de code si ça ne fonctionne pas bien.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
0
info024 Messages postés 9 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 3 juillet 2008
30 mars 2008 à 15:05
J'ai trouvé ce code mais ca me renvoie cette erreur: cette application n'a pas pu démarrer car MSVCP90D.dll est introuvable

#include <fstream>
#include <sstream>

int main(){
for(unsigned int i=0;i<10;++i){
std::ostringstream oss;
oss << "fichier_" << i << ".txt";
std::ofstream f(oss.str().c_str());
if (f) f << "blablabla" << i << std::endl;
}
return 0;
}
0
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 21
30 mars 2008 à 15:08
Ce n'est pas du VB/VBA, mais du C-C++

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
0
info024 Messages postés 9 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 3 juillet 2008
30 mars 2008 à 15:22
oui, j'essaye de trouver une sol pour mon probléme et aprés je traduis en VB
0