Discussion :

[pitipilot]

Bonjour ,

Je développe actuellement un petit module VBA sur un logiciel de supervision (rsview SE).

J'aimerais savoir comment exporter certaines données dans un fichier Csv à créer préalablement et les séparer par colonnes.

Je ne trouve que du VBA excel pour export malheureusement .

Merci d'avance

[Marc-L]

Bonjour,

voir l'utilisation des instructions Print # et Write # et leurs exemples dans l'aide du produit,
consultables aussi dans l'aide VBA d'Excel. Voir aussi les exemples dans les discussions du forum VBA d'Excel …

Sinon se diriger vers un forum dédié au produit.

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[pitipilot]

C'est bon j'ai trouvé, voici le code pour ceux que ça intéresse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim fileName As String
Dim fso As FileSystemObject
Dim outputFile As textStream
 
 
 
'generate output file name
fileName = "C:\Output.csv"
 
'create new FileSystem object and open text stream to write to
Set fs = New FileSystemObject
Set outputFile = fs.CreateTextFile(fileName, True) 'note file will be overwritten
 
 
 
    'Use the following code to place each word into separate COLUMN
     outputFile.Write ("element1) & ";"
     outputFile.Write ("element2) & ";"
 
    'Use the following code to place each word into separate ROW
    'outputFile.WriteLine (arrayElement)
 
 
'close output stream
outputFile.Close

Utiliser la référence "Microsoft Scripting Runtime" pour que ça fonctionne.

Bonne journée et encore merci

[Marc-L]

De rien !

Peut se faire directement en VBA sans FSO …