Importer fichier csv vers excel sous vba

Version imprimable

Bonjour à tous,

J'ai créé une macro qui me permet d'importer un fichier csv vers excel et elle fonctionne trés bien.
Ce que je voudrais faire, c'est d'automatiser le chemin vers le fichier source.
ma source est la suivante :

Code:

Fichier = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\PL_20150803.csv.20150804-090045"

Sachant que j'importe toujours le fichier généré en M-2 ( on est en mois d'octobre donc je dois importer celui du mois d'aout )
Pour trouver le fichier source, je dois prendre en compte l'année et le mois (dans mon exemple en haut "201508" ) tout le reste n'est pas important.
Comment je peux lui specifier le chemin afin que le programme importe toujours celui du M-2 ?
j'ai pensé a procéder comme suit :
Code:

1 2 3 Dim Dat As Date Dat = DateSerial(Year(Date), Month(Date) - 2, Day(Date)) Fichier = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\PL_" & format(Dat, yyymmdd)" & ".csv.20150804-090045"
bien evidament, ce code ne fonctionne pas, c'est juste pour vous donner une idée. En gros, j'aimerais savoir si on peut mettre genre une etoile pour remplacer tous les autres caractéres qui ne compte pas ?

Merci pour vos réponses.

voici le code en entier:
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 Sub import() Dim W As Worksheet Dim Plage As Range Dim Fichier As String Dim Dat As Date Dat = DateSerial(Year(Date), Month(Date) - 2, Day(Date)) Application.ScreenUpdating = False Fichier = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\PL_20150803.csv.20150804-090045" Set W = Worksheets("Raw Data") W.Activate With W With .QueryTables.Add("TEXT;" & Fichier, Range("A1")) .RefreshStyle = xlOverwriteCells .TextFileOtherDelimiter = "|" .Refresh False .Delete '<supprime la liaison End With End With Set W = Worksheets("CPN1") W.Activate Application.ScreenUpdating = True End Sub
Cordialement,
Freudsw

22/10/2015, 16h03
lionel86500
Bonjour,

Tu as mal écris la séquence de récupération de la date (ligne 3 de ton code)

Pour récupérer la date dans le format que tu souhaite
il faut faire comme cela
Code:

1 2 3 s1 = Format(Date, "yyyymmdd") MsgBox s1
23/10/2015, 14h57
Freudsw

salut Daniel,

Effectivement, ce n'etait pas la bonne séquence. je viens de m'en rendre compte. mais ce que je veux savoir c'est comment remplacer tous les autres caractere pour que la recherche ne se base pas sur eux !
Genre, la code va directement m'importer le fichier qui commence par PL_201508... et peut importe de ce qui vient apres .

Merci encore
Cordialement,
Freudsw
23/10/2015, 17h29
Marc-L

Bonjour,

comme seul un nom de fichier exact peut-être ouvert, voir du côté de la fonction VBA Dir bien documentée dans l'aide …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
23/10/2015, 17h47
Freudsw

Merci marc pour ta réponse

je me suis documenté sur cette commande mais je n'ai pas bien compris comment l'utiliser...

j'ai cherché dans le forum et la plupart disent qu'en mettant une * ça remplace les caractére qu'on ne veut pas prendre en compte.
du coup j'ai essayé de proceder comme suit :

Code:

Fichier = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\" & "PL_" & Format(Dat, "yyyymm") & "*"

mais l'etoile est considéré comme un caractere normale...donc ça me renvois le chemin suivant :

Code:

"\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\PL_201508*"

je suis bloqué !!!

Merci encore

cordialement,
Freudsw
23/10/2015, 17h49
SfJ5Rpw8

bonjour,

il est ou le Dir ?
23/10/2015, 17h52
Freudsw

salut bbil,

justement je n'ai pas utilisé cette commande car je ne sais pas ou la placer...
tu as une idée ?

merci,
Freudsw

Pour la commande dir qu'attends tu pour chercher dans l'aide en ligne Excel ?? :f1:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Dim stRep as string
Dim stFichier as string
stRep = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\"
 
stFichier = Dir ( stRep &  "PL_" & Format(Dat, "yyyymm") & "*")
 
if stFichier <> "" then
 
   MsgBox stRep & stFichier
end if

Merci pour l'aide

Justement j'ai cherché dans l'aide et j'ai même essayé de l'utiliser mais ça ne marchait pas ....

Merci encore, le code marche trés bien :

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
28
 
Sub import()
    Dim W As Worksheet
    Dim Plage As Range
    Dim Fichier As String
    Dim Dat As Date
    Dat = DateSerial(Year(Date), Month(Date) - 2, Day(Date))
    Dim stRep As String
    Dim stFichier As String
Application.ScreenUpdating = False
 
stRep = "\\srvdatasdr-prod\madonne_prod$\Madonne_Output\Seuil\Sent\"
stFichier = Dir(stRep & "PL_" & Format(Dat, "yyyymm") & "*")
Fichier = stRep & stFichier
    Set W = Worksheets("Raw Data")
    W.Activate
    With W
       With .QueryTables.Add("TEXT;" & Fichier, Range("A1"))
            .RefreshStyle = xlOverwriteCells
            .TextFileOtherDelimiter = "|"
            .Refresh False
            .Delete '<supprime la liaison
       End With
    End With
    Set W = Worksheets("CPN1")
    W.Activate
    Application.ScreenUpdating = True
End Sub

Cordialement,
Freudsw

23/10/2015, 18h07
SfJ5Rpw8

Tu n'as pas pris en compte mon IF .... il était la pour le cas ou tu n'aurais pas de fichier correspondant à tes critères
23/10/2015, 23h36
Freudsw
Oui effectivement, je l'ai enlevé car à chaque fois il me met un message d'alerte en montrant le chemin du fichier; peut être qu'il faudrait mettre le contraire:
Code:

1 2 3 4 if stFichier = "" then MsgBox "Fichier introuvable" end if
cordialement,
Freudsw