Discussion :

[bernardmichel]

Bonsoir,

Est-il une bonne âme pour m'aider à résoudre un problème que je ne comprends vraiment pas... et ce n'est pas faute d'avoir essayé de nombreuses pistes...

Voici mon code:

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
Private Sub btnExporter_Click()
Dim Chemin As String
Dim Societe As String


CurrentDb.Execute ("DELETE * FROM tblExportPC")
DoCmd.OpenQuery ("qryExportPC")
DoCmd.Close acQuery, "qryExportPC"
Chemin = DLookup("CheminBackupPC", "tblSocietes", "IdSociete = " & Me.IdSte)
Chemin = Chemin & "\Excel\" & "PC " & Me.Societe & "(" & Format(Now, "ddmmyy-hhmmss") & ").xls"
Debug.Print Chemin
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblExportPC", Chemin
Chemin = DLookup("CheminBackupPC", "tblSocietes", "IdSociete = " & Me.IdSte)
Chemin = Chemin & "\Texte\" & "PC " & Me.Societe & "(" & Format(Now, "ddmmyy-hhmmss") & ").txt"
Debug.Print Chemin ' Résultat du Debug.Print : C:\BSoft\ComptaLight\Export\APNE\PC\Texte\PC Association Perspective-NE(130615-205034).txt
DoCmd.TransferText acExportDelim, "ExportStandard", "tblExportPC", Chemin ' C'est cette commande qui bugue. Voir l'image insérée pour le message d'erreur.

End Sub

Dans le message d'erreur, vous constaterez que le ".txt" devient "#txt" :

Pièce jointe 180511


Comment se fait-ce.... :-)

A noter que juste en dessus (dans le code), j'emploie la commande TransferSpreadsheet et cela ne pose aucun problème avec le chemin et le nom du fichier à sauvegarder.

Un grand merci d'avance,

Bernard

[helas]

Bonjour,
L'importation manuelle donne t-elle le même message d'erreur?
si non refaire l'importation manuellement et enregistrer l'import

[bernardmichel]

Bonjour et merci !

Bien vu, c'est à ce niveau-là que l'erreur se situait. Par contre, il s'agit ici d'exportation et non pas d'importation. Il n'y a donc pas de possibilité d'enregistrer une configuration... donc, j'ai tenté de la supprimer dans la ligne de code et... bingo !!

Ligne de code posant problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferText acExportDelim, "ExportStandard", "tblExportPC", Chemin

Ligne de code qui fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferText acExportDelim, , "tblExportPC", Chemin

C'est super sympa de m'avoir donné ce coup de main, merci beaucoup !!