Oui en faisant ca, je n'obtiens pas d'erreur de syntaxe ou autre, mais par rapport à mon code d'exportation, ca prend bien en compte le requete mais ensuite ca saute tout mon code
Voici mon code:
Private Sub Command1_Click()
Dim SiteSta As Recordset
Dim NbrImageSiteSta As Integer
Dim T11, T12, T13, T14 As String
Dim T61, T62, T63, T64, T65, T66, T67, T68 As String
Dim T126, T128 As String
Dim T116, T118 As String
Dim chemindataexport_asciiSiteSta As String
Dim nom_fichier As String
nom_fichier = InputBox("Saisissez le nom du fichier à créer", "CHOIX DU NOM DU FICHIER", "")
If nom_fichier <> "" Then
chemindataexport_asciiSiteSta = App.Path + "\" + nom_fichier & ".csv"
Else
Exit Sub
End If
requete = "Select T1.T11, T1.T12, T1.T13, T1.T14, T6.T62, T6.T63, T6.T64, T6.T66, T6.T67, T6.T68, T11.T116, T11.T118, T12.T126, T12.T128 From T1 Inner Join (T6 Inner Join (T12 inner join T11 On T12.T122=T11.T112) on T6.T61=T12.T122) On T1.T11=T6.T61 WHERE T12.T126 NOT IN (SELECT T11.T116 FROM T11) "
Set SiteSta = gCurrentDB.OpenRecordset(requete)
NbrImageSiteSta = SiteSta.RecordCount
If NbrImageSiteSta > 0 Then 'A PARTIR DE LA, CA SAUTE JUSQU'A LA LIGNE OU Y A MARQUER ELSE EN VERT
Open chemindataexport_asciiSiteSta For Output As #1
SiteSta.MoveFirst
Do While Not SiteSta.EOF
If SiteSta("T11") <> "" Then T11 = CStr(SiteSta("T11"))
If SiteSta("T12") <> "" Then T12 = CStr(SiteSta("T12"))
If SiteSta("T13") <> "" Then T13 = CStr(SiteSta("T13"))
etc...
stringtempA = T11 + ";" + T12 + ";" etc...
stringtempSiteSta = stringtempA
Print #1, stringtempSiteSta
SiteSta.MoveNext
Loop
MsgBox "Fichier exporté avec succès"
SiteSta.Close
Close #1
Else
Exit Sub
End If
End Sub
|