Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Commande2_Click() '//////////////////////////////////////////// '// IMPORTATION FICHIER MARA // '//////////////////////////////////////////// 'declaration des variables Dim var As String Dim numfile As Integer 'attribution d'un numero libre de fichier numfile = FreeFile '****************************************** 'Ecriture de la ligne titre dans le fichier '****************************************** Open "d:\Seb\Mara.txt" For Binary Access Write As #numfile var = "" & vbTab & "Article" & vbTab & "" & vbTab & "" & vbTab & "Type d'article" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf Put #numfile, , var Close #numfile '****************************************** '****************************** 'Importation du fichier Mara '****************************** 'Desactivation des messages d'erreurs DoCmd.SetWarnings False 'Importation selon les paramètres d'import DoCmd.TransferText acImportDelim, "Mara Spécification d'importation", "MARA", "d:\Seb\Mara.txt", True '****************************** End Sub