Dim Chemin, feuille, fichiers as string
Chemin = "C:\temp"
Fichier = "janvier.csv"
Feuille = "Janvier"
dans la ligne suivante je n'arive pas à remplacer les parametres en dur
"chemin et fichier" par le contenu des variables Chemin et Fichier
--------------------------------------------
With
Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:\temp\janvier.csv",
Destination:=Sheets(Feuille).Range("A1"))
---------------------------------------------------
La ligne fonctionne bien comme ci-dessus
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Kenavo,
La ligne fonctionne bien comme ci-dessus donnes plutôt le code de celui qui ne va pas si tu veux.
Peut y avoir diverses raisons. En outre, pas forcé que cela en soit la cause mais il faut noter que lorsque tu déclares
Dim Chemin, feuille, fichiers as string
seul la variable fichiers est en string
Chemin et feuille n'étant pas typés il deviennent, par défaut des variants Pour tout typer il faut déclarer ainsi:
Dim Chemin as string , feuille as string, fichiers as string
@+
-- lSteph
Bonjour, avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus
Merci de l'aide M.
Kenavo,
La ligne fonctionne bien comme ci-dessus
donnes plutôt le code de celui qui ne va pas si tu veux.
Peut y avoir diverses raisons.
En outre, pas forcé que cela en soit la cause
mais il faut noter que lorsque tu déclares
Dim Chemin, feuille, fichiers as string
seul la variable fichiers est en string
Chemin et feuille n'étant pas typés il deviennent, par défaut des variants
Pour tout typer il faut déclarer ainsi:
Dim Chemin as string , feuille as string, fichiers as string
@+
--
lSteph
Bonjour,
avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string
Chemin = "C:temp"
Fichier = "janvier.csv"
Feuille = "Janvier"
dans la ligne suivante je n'arive pas à remplacer les parametres en dur
"chemin et fichier" par le contenu des variables Chemin et Fichier
--------------------------------------------
With
Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv",
Destination:=Sheets(Feuille).Range("A1"))
---------------------------------------------------
La ligne fonctionne bien comme ci-dessus
La ligne fonctionne bien comme ci-dessus donnes plutôt le code de celui qui ne va pas si tu veux.
Peut y avoir diverses raisons. En outre, pas forcé que cela en soit la cause mais il faut noter que lorsque tu déclares
Dim Chemin, feuille, fichiers as string
seul la variable fichiers est en string
Chemin et feuille n'étant pas typés il deviennent, par défaut des variants Pour tout typer il faut déclarer ainsi:
Dim Chemin as string , feuille as string, fichiers as string
@+
-- lSteph
Bonjour, avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus
Merci de l'aide M.
JB
Bonjour,
Dim Chemin, feuille, fichiers As String Chemin = "C:temp" fichier = "janvier.csv" feuille = "Janvier" With Sheets(feuille).QueryTables.Add(Connection:="TEXT;" & Chemin & "" & fichier, Destination:=Sheets(feuille).Range("A1"))
JB
On 22 mar, 17:07, Michel (pen ar bed) wrote:
Bonjour, avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus
Merci de l'aide M.
Bonjour,
Dim Chemin, feuille, fichiers As String
Chemin = "C:temp"
fichier = "janvier.csv"
feuille = "Janvier"
With Sheets(feuille).QueryTables.Add(Connection:="TEXT;" & Chemin &
"" & fichier, Destination:=Sheets(feuille).Range("A1"))
JB
On 22 mar, 17:07, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string
Chemin = "C:temp"
Fichier = "janvier.csv"
Feuille = "Janvier"
dans la ligne suivante je n'arive pas à remplacer les parametres en dur
"chemin et fichier" par le contenu des variables Chemin et Fichier
--------------------------------------------
With
Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv",
Destination:=Sheets(Feuille).Range("A1"))
---------------------------------------------------
La ligne fonctionne bien comme ci-dessus
Dim Chemin, feuille, fichiers As String Chemin = "C:temp" fichier = "janvier.csv" feuille = "Janvier" With Sheets(feuille).QueryTables.Add(Connection:="TEXT;" & Chemin & "" & fichier, Destination:=Sheets(feuille).Range("A1"))
JB
On 22 mar, 17:07, Michel (pen ar bed) wrote:
Bonjour, avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus
Merci de l'aide M.
francois.forcet
On 22 mar, 17:07, Michel (pen ar bed) wrote:
Bonjour, avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus
On 22 mar, 17:07, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
avec des déclarations comme ceci
Dim Chemin, feuille, fichiers as string
Chemin = "C:temp"
Fichier = "janvier.csv"
Feuille = "Janvier"
dans la ligne suivante je n'arive pas à remplacer les parametres en dur
"chemin et fichier" par le contenu des variables Chemin et Fichier
--------------------------------------------
With
Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv",
Destination:=Sheets(Feuille).Range("A1"))
---------------------------------------------------
La ligne fonctionne bien comme ci-dessus
Dim Chemin, feuille, fichiers as string Chemin = "C:temp" Fichier = "janvier.csv" Feuille = "Janvier" dans la ligne suivante je n'arive pas à remplacer les parametres en dur "chemin et fichier" par le contenu des variables Chemin et Fichier -------------------------------------------- With Sheets(Feuille).QueryTables.Add(Connection:="TEXT;C:tempjanvier.csv", Destination:=Sheets(Feuille).Range("A1")) --------------------------------------------------- La ligne fonctionne bien comme ci-dessus