Forum automatisme

Code : Tout sélectionner

Sub Archivage()
Dim path
Dim delimiter
Dim gap
Dim fo
Dim mode
Const NEU=0

mode = 8

'Selection du format
If SmartTags("bExtension") =0 Then
	path = "C:\Users\%USERNAME%\Desktop\datafile.txt"
	delimiter=vbTab
	gap=vbTab
Else
	path = "C:\Users\%USERNAME%\Desktop\datafile.csv"
	delimiter=";"
	gap=""
End If

'En cas d'erreur
On Error Resume Next

'Crée fichier object
Set fo= CreateObject("FileCtl.File")

'Vérification si aucune erreur n'est arrivée
If Err.Number<> 0 Then
	ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
	Err.Clear
	Exit Sub
End If

'Ouvrir ou crée un fichier
fo.open path,mode

'Vérification si aucune erreur n'est arrivée
If Err.Number<> 0 Then
	ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
	Err.Clear
	Exit Sub
End If

'Si le fichier est crée, création de l'entête
If fo.LOF = NEU Then
	fo.LinePrint("Date" & gap & gap & delimiter & "Colonne2" & delimiter & "Colonne3" & "....")
End If

'Ecrire les données dans le fichier
fo.LinePrint(Now & delimiter & "Variable1" & delimiter & "Variable2" & "...")

'Fermer le fichier
fo.close

Set fo = Nothing

ShowSystemAlarm "Archive des données effectuées!"
	
End Sub