Discussion :

[maguy24]

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 :

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

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

[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

[maguy24]

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 :

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
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

[User]

Avez-vous essayé sans le inputbox en mettant directement le chemin complet du fichier pour tester ?

[User]

Essayer peut-être :

Code :

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

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

[maguy24]

Essayer peut-être :

Code :

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

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.

[User]

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

[maguy24]

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.

[User]

..., 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 :

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

1
2
Dim DATE_Stock1 As String
Dim DATE_Tiers1 As String