format date dans fichier CSV

Version imprimable

17/03/2022, 22h11
maguy24

format date dans fichier CSV
Bonjour,

Je cherche à importer le fichier Stock_20220228.CSV d'un répertoire*vers une base Access.je veux renseigner par exemple la date 28/02/2022 la transformer en 20220228 pour récupérer le fichier avec la bonne date.* Le chemin est introuvable*à cause du format de la date, j'ai essayé plusieurs fonctions mais en vain. J'ai l'impression que la date 20220228 est lu par comme du texte, alors qu'elle devrait etre en date.*
Code:

1 2 DATE_Stock = InputBox("Date du rapport Stock (dd/mm/yyyy)") DATE_Stock1 = Format(DATE_Stock, "yyyymmdd")
* * nomichier à récupérer: Stock_20220228.CSV*** * **

Mon Access est en francais,* je suis débutante en VBA, pouvez vous m'aider
Merci par avance
18/03/2022, 08h29
User

Bonjour,

Il manque le chemin du dossier contenant le fichier csv. Comment composez-vous le chemin complet du fichier csv avant d'importer les données ?

Donnez-nous le reste du code ;)

Citation:

Envoyé par User

Bonjour,

Il manque le chemin du dossier contenant le fichier csv. Comment composez-vous le chemin complet du fichier csv avant d'importer les données ?

Donnez-nous le reste du code ;)

Bonjour,
Je vous remercie de votre retour, voici le reste du code.

Code:

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
Sub Import_Reports()
DoCmd.SetWarnings False
 
Dim Path As String
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fld As DAO.Field
Dim DATE_Stock As Date
Dim DATE_Stock1 As Date
Dim DATE_Tiers As Date
Dim DATE_Tiers1 As Date
Dim Path_Stock, Path_Tiers, Path, Path_Input, Path_Output As String
 
Set db = CurrentDb
 
DATE_Stock = InputBox("Date du rapport Stock (dd/mm/yyyy)")
DATE_Stock1 = Format(DATE_Stock, "yyyymmdd")
DATE_Tiers = InputBox("Date du rapport Tiers (dd/mm/yyyy)")
DATE_Tiers1 = Format(DATE_Tiers, "yyyymmdd")
 
Path_Stock ="\\FSPLTDPR.dom101.prdres\SRSA DPR\VaR\Analyse Quotidienne Fichiers VaR\Chrome archive"& "\Stock_Ch" & DATE_Stock1 & ".csv"
Path_Tiers = "\\FSPLTDPR.dom101.prdres\SRSA DPR\VaR\Analyse Quotidienne Fichiers VaR\Chrome archive" & "\Tiers_Ch_" & DATE_Tiers1 & ".csv"
Path_Input =" \\FSPLTDPR.dom101.prdres\SRSA DPR\Mission\AR-2021\Analyse_ecarts\Input"
Path_Output =" \\FSPLTDPR.dom101.prdres\SRSA DPR\Mission\AR-2021\Analyse_ecarts\Output"
 
DoCmd.TransferText acImportDelim, "Stock_Specification_Import", BDP_Stock_Ch", Path_Stock, True
DoCmd.TransferText acImportDelim, "Tiers_Specification_Import", "BDP_Tiers_Ch", Path_Tiers, True

18/03/2022, 09h33
User

Avez-vous essayé sans le inputbox en mettant directement le chemin complet du fichier pour tester ?
18/03/2022, 09h42
User

Essayer peut-être :

Code:

Path_Stock ="\\FSPLTDPR.dom101.prdres\SRSA DPR\VaR\Analyse Quotidienne Fichiers VaR\Chrome archive" & "\Stock_Ch_" & DATE_Stock1 & ".csv"
18/03/2022, 09h52
maguy24

Citation:

Envoyé par User

Essayer peut-être :

Code:

Path_Stock ="\\FSPLTDPR.dom101.prdres\SRSA DPR\VaR\Analyse Quotidienne Fichiers VaR\Chrome archive" & "\Stock_Ch_" & DATE_Stock1 & ".csv"

Excusez moi mais je ne vois pas ce que vous avez changé sur le lien, pouvez-svp vous m'éclairer.
18/03/2022, 10h11
User

A la fin & "\Stock_Ch_" au lieu de & "\Stock_Ch".
18/03/2022, 10h22
maguy24

Citation:

Envoyé par User

A la fin & "\Stock_Ch_" au lieu de & "\Stock_Ch".

j'avais mis l'espace, peut être en copiant je l'ai omis, mais ça ne résout pas le problème, je n'arrive pas à importer les fichiers.
Merci beaucoup.
18/03/2022, 10h27
User
Citation:

Envoyé par maguy24

..., je n'arrive pas à importer les fichiers.

Même en passant le chemin exact sans le inputbox ?

Il faut déclarer vos variables DATE_Stock1 et DATE_Tiers1 en string :
Code:

1 2 Dim DATE_Stock1 As String Dim DATE_Tiers1 As String