Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fichier introuvable

Fichier introuvable

3 réponses
Avatar
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
Settings\Michel\fichier.txt", Destination:=Range("B1"))
.Refresh BackgroundQuery:=False
End With
---------------------------------------------------
maintenant je veux que le fichier soit passé dans une variable je fais
ceci
fichier = "C:\Documents and Settings\Michel\fichier.txt"
With
ActiveSheet.QueryTables.Add(Connection:="TEXT;fichier",Destination:=Range("B1"))
.Refresh BackgroundQuery:=False
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.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Philippe.R
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)" a écrit dans le message de
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.




Avatar
Michel (pen ar bed)
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
Avatar
bafbabs
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