Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
If MsgBox("Voulez-vous importer le fichier d'initialisation ?", vbOKCancel, "ATTENTION !!!") = vbOK Then
    Application.Echo False
    DoCmd.SetWarnings False
    DoCmd.TransferText acImportDelim, "application pour étiquettes", "Etiquette", "C:\Documents and Settings\invité\Mes documents\Projet Traçabilité - BURTON\application pour étiquettes.txt", True
    'importation d'un fichier texte
    Application.Echo True
    DoCmd.SetWarnings True
    DoCmd.OpenQuery "Ajout donnée étiquette"
End If
Il me di que la spécification du texte n'existe pas j'ai beau la changer sa ne change strictement rien au problème.