Discussion :

[renaultt2]

Bonjour

Je veux récupérer un fichier CSV dans Excel.
Si je fais une macro Excel cela fonctionne bien.

Cette Macro est exécutée tous les mois.
Donc le mois et le nom du fichier changent.
Je veux créer une variable pour le nom du fichier et du Mois.
Et là cela ne fonctionne pas.
Exemple :

Code :

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

1
2
3
 ActiveWorkbook.Queries.Add Name:="sne", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""\\NXPFile001.commun01.svc\VDI_CA-GIP$\Homedir_VDI_CAGIP\U54KR63\My Documents\Thierry\Production\LCL\Suivi acces passerelles SGF\2021\Fichiers Aout 2021\sne.FCS108m",[Delimiter="";"", Columns=12, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Source,{{""Column1"", type" & _
        " text}, {""Column2"", type text}, {""Column3"", type date}, {""Column4"", type text}, {""Column5"", Int64.Type}, {""Column6"", Int64.Type}, {""Column7"", Int64.Type}, {""Column8"", Int64.Type}, {""Column9"", Int64.Type}, {""Column10"", Int64.Type}, {""Column11"", Int64.Type}, {""Column12"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""

Ce code fonctionne.

donc je crée 2 variables

Code :

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

1
2
Dim MaVar As Variant
Dim MaMois As Variant

Code :

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

1
2
MaVar = InputBox("Saisir le nom du fichier")
MaMois = InputBox("Saisir le mois")

Code :

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

1
2
3
 ActiveWorkbook.Queries.Add Name:="sne", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""\\NXPFile001.commun01.svc\VDI_CA-GIP$\Homedir_VDI_CAGIP\U54KR63\My Documents\Thierry\Production\LCL\Suivi acces passerelles SGF\2021\Fichiers " & MaMois & " 2021\" & MaVar & ",[Delimiter="";"", Columns=12, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Source,{{""Column1"", type" & _
        " text}, {""Column2"", type text}, {""Column3"", type date}, {""Column4"", type text}, {""Column5"", Int64.Type}, {""Column6"", Int64.Type}, {""Column7"", Int64.Type}, {""Column8"", Int64.Type}, {""Column9"", Int64.Type}, {""Column10"", Int64.Type}, {""Column11"", Int64.Type}, {""Column12"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""

Et là j'ai le message suivant :

erreur d’exécution : 1004
[expression error] Le nom "Source" n'a pas été reconnu. veuillez Vérifier qu'il est correctement orthographié.

je pense qu'il y a un problème dans la façon de coder MaMois et MaVar.

Pouvez-vous m'aider svp
Cordialement

[Ben_L]

Bonjour,

A ma connaissance, la présence d'un signe "$" à la fin d'un nom de dossier, sous Windows, indique que ce dossier est partagé.
Ce signe "$" ne doit pas être intégré à la chaîne de caractères permettant d'accéder au dossier.

Cdt

[jurassic pork]

hello il te manque un double guillemet après Fichiers pour que le nom du dossier puisse contenir des blancs :

Code :

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

passerelles SGF\2021\Fichiers """ & MaMois

Par contre vérifier la suite parce qu'il n'y a plus peut être le bon nombre total de guillemets ( -> où se situe la fermeture de guillemet dans la première expression qui fonctionne)
Ami calmant, J.P

[barpasc]

utilisez debug.print pour savoir ce que contiennent les variables

[renaultt2]

Cela ne fonctionne toujours pas.
j'ai essayer avec

Code :

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

passerelles SGF\2021\Fichiers """ & MaMois & """

Code :

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

passerelles SGF\2021\Fichiers "" & MaMois & ""

Code :

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

passerelles SGF\2021\Fichiers """MaMois"""

Code :

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

passerelles SGF\2021\Fichiers """ MaMois """

Code :

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

passerelles SGF\2021\Fichiers "" MaMois ""

Je ne sais pas comment faire ?

[renaultt2]

utilisez debug.print pour savoir ce que contiennent les variables

Comment le coder dans mon cas ?
Merci.

[Ben_L]

Bonjour,

La position proposée pour le double guillemet n'est pas la bonne.
Celui-ci doit se trouver après le nom complet de votre fichier, soit après l'extension. Ce qui donnerait :

Code :

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

[...]passerelles SGF\2021\Fichiers " & MaMois & " 2021\" & MaVar & """,[Delimiter="";"", Columns=12[...]

Cdt

[renaultt2]

Merci, cela fonctionne super bien.