Fichier introuvable

Le
Michel (pen ar bed)
Bonjour,

Avec le code suivant j'importe un fichier texte dans la colonne B1 de
ma feuille, c'est bon ça fonctionne
-
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:Documents and
SettingsMichelfichier.txt", Destination:=Range("B1"))
.Refresh BackgroundQuery:úlse
End With

maintenant je veux que le fichier soit passé dans une variable je fais
ceci
fichier = "C:Documents and SettingsMichelfichier.txt"
With
ActiveSheet.QueryTables.Add(Connection:="TEXT;fichier",Destination:=Range("B1"))
.Refresh BackgroundQuery:úlse
End With

Et là j'ai une erreur 1004 sur la ligne .Refresh "Impossible de trouver
le fichier texte pour l'actualisation des données externes"

Quelle bêtise je fais ?

Merci de l'aide

M.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17723461
Bonjour,
Modifies comme ceci :

With
ActiveSheet.QueryTables.Add(Connection:="TEXT;" &
fichier,Destination:=Range("B1")).Refresh BackgroundQuery:úlse
End With

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel (pen ar bed)" news:
Bonjour,

Avec le code suivant j'importe un fichier texte dans la colonne B1 de ma
feuille, c'est bon ça fonctionne
----------------------------
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:Documents and
SettingsMichelfichier.txt", Destination:=Range("B1"))
.Refresh BackgroundQuery:úlse
End With
---------------------------------------------------
maintenant je veux que le fichier soit passé dans une variable je fais
ceci
fichier = "C:Documents and SettingsMichelfichier.txt"
With
ActiveSheet.QueryTables.Add(Connection:="TEXT;fichier",Destination:=Range("B1"))
.Refresh BackgroundQuery:úlse
End With

Et là j'ai une erreur 1004 sur la ligne .Refresh "Impossible de trouver le
fichier texte pour l'actualisation des données externes"

Quelle bêtise je fais ?

Merci de l'aide

M.




Michel (pen ar bed)
Le #17724071
Dans son message précédent, Philippe.R a écrit :
Bonjour,
Modifies comme ceci :

With
ActiveSheet.QueryTables.Add(Connection:="TEXT;" &
fichier,Destination:=Range("B1")).Refresh BackgroundQuery:úlse
End With




Merci, c'est OK
bafbabs
Le #19688391
Michel (pen ar bed) a écrit le 02/11/2008 à 13h24 :
Dans son message précédent, Philippe.R a écrit :
Bonjour,
Modifies comme ceci :

With
ActiveSheet.QueryTables.Add(Connection:="TEXT;" &
fichier,Destination:=Range("B1")).Refresh
BackgroundQuery:úlse
End With





Merci, c'est OK


bonjour,

j'ai un problème similaire. Je souhaite importer un fichier csv dont le nom sera variable dans une feuille Excel. Etant débutant en macro (2jours), je suis passé par le mode enregistrement. Je suis arrivé à une procédure que j'ai légèrement modifiée pour permettre d'avoir un nom de fichier variable.(contenu dans une cellule d'une autre feuille).


'Importer le csv
Dim strFichier As String
Dim vCellule As String
Sheets("Procédure").Select
strFichier = Cells(8, 5)
vCellule = Cells(6, 3)



Sheets("Base").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFichier, Destination:=Range("A1"))
.Name = vCellule
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True


End With

Mais cela ne fonctionne pas, il me met :
"erreur d'exécution 1004
impossible de trouver le fichier texte pour l'actualisation de cette plage de données externes.
Assurez vous que le texte n'a été ni déplacé, ni renommé et réessayez"

Il bloque sur la ligne " .Refresh BackgroundQuery:úlse"

Quelqu'un aurait-il une solution ?

Merci
Publicité
Poster une réponse
Anonyme