Discussion :

[romulus34]

Bonjour à tous,

j'utilise ce code ci dessous pour créer un fichier de type msg contenant des données.
Je dois passer par la création d'un fichier txt car en passant directement avec le type msg cela ne marche pas.
J'ai le même problème concernant la partie où il doit vérifier si le fichier existe déja. Si je lui demande de vérifier si le .msg ça ne fonctionne pas alors qu'avec le txt c'est ok.

Est ce le filesystemobject qui ne prend pas en charge ce type de fichier?

Merci pour votre aide.

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
27
28
29
Function Export()
Dim fs As Scripting.FileSystemObject
Dim a As Scripting.TextStream
Dim strFichierExport As String
Dim strFichierExport1 As String
Dim today As String
 
 
strFichierExport = "C:\essai.txt"
strFichierExport1 = "C:\essai.agt." & today & ".msg"
today = Format(Now, "yymmdd")
 
Set fs = New Scripting.FileSystemObject
 
If fs.FileExists(strFichierExport1) Then
MsgBox "Fichier existe déjà"
Exit Function
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strFichierExport)
a.Close
DoCmd.TransferText acExportFixed, "Param_V2_Export", "Req_Export", strFichierExport, False
 
Name "C:\essai.txt" As "C:\essai.agt." & today & ".msg"
 
 
End If
 
End Function

[romulus34]

today était mal placé

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
27
28
Function Export()
Dim fs As Scripting.FileSystemObject
Dim a As Scripting.TextStream
Dim strFichierExport As String
Dim strFichierExport1 As String
Dim today As String
 
today = Format(Now, "yymmdd") 
strFichierExport = "C:\essai.txt"
strFichierExport1 = "C:\essai.agt." & today & ".msg"
 
Set fs = New Scripting.FileSystemObject
 
If fs.FileExists(strFichierExport1) Then
MsgBox "Fichier existe déjà"
Exit Function
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strFichierExport)
a.Close
DoCmd.TransferText acExportFixed, "Param_V2_Export", "Req_Export", strFichierExport, False
 
Name "C:\essai.txt" As "C:\essai.agt." & today & ".msg"
 
 
End If
 
End Function