Discussion :

[Ceubex]

Bonjour,

J'ai un fichier CSV que je dois importer depuis cette adresse http://j.netsur2.com/journal.csv et je dois obligatoirement utiliser cette fonction (je met le lien dans la variable url) :

Code :

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

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
    With Worksheets("Journal").QueryTables.Add(Connection:= _
        "TEXT;" & url _
        , Destination:=Worksheets("Journal").Range("A1"))
        .Name = "xxx"
        .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)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Mais lorsque je lance la fonction, ça affiche un panneau qui me demande l'identifiant et le mot de passe avant de télécharger quoi que se soit alors qu'il n'y a aucun mot de passe sur ce fichier ou sur le serveur (on peut le télécharger normalement en lien direct).
Par contre si j'execute le script avec http://bi2.io/json/sales.csv là ça passe tout seul et il n'y a pas le panneau.

Il faut vraiment que je supprimer ce panneau, vous savez pourquoi il apparait ? Il doit y avoir un truc différent au niveau du serveur mais je ne vois pas quoi

[mercatog]

J'ai utilisé le même code épuré, j'obtiens les données sans identifiant ni mot de passe (néamoins la connexion est assez lent)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim StrUrl As String
 
StrUrl = "http://j.netsur2.com/journal.csv"
With Worksheets("Journal")
    .UsedRange.Clear
    With .QueryTables.Add(Connection:="TEXT;" & StrUrl, Destination:=Worksheets("Journal").Range("A1"))
        .Name = "journal"
        .FieldNames = True
        .AdjustColumnWidth = True
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .WorkbookConnection.Delete
        .Delete
    End With
End With
End Sub

[Marc-L]

Bonjour,

le fichier étant plutôt gros car contenant plus de 167 000 lignes …

A noter aussi qu'il peut s'ouvrir directement comme un classeur - même via une URL ! - sans utiliser QueryTable …

[Ceubex]

J'ai utilisé le même code épuré, j'obtiens les données sans identifiant ni mot de passe (néamoins la connexion est assez lent)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim StrUrl As String
 
StrUrl = "http://j.netsur2.com/journal.csv"
With Worksheets("Journal")
    .UsedRange.Clear
    With .QueryTables.Add(Connection:="TEXT;" & StrUrl, Destination:=Worksheets("Journal").Range("A1"))
        .Name = "journal"
        .FieldNames = True
        .AdjustColumnWidth = True
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .WorkbookConnection.Delete
        .Delete
    End With
End With
End Sub

C'est drôle j'execute exactement ton code et moi il me met un message. J'ai essayé avez deux windows 7 sous Excel 2010 et ça me fait ça. C'est peut être un problème de config sur les deux PC en fait.

[Marc-L]

Sujet croisé maintes fois sur les forums avec l'objet QueryTable : effectuer une recherche au cas où …

Sinon :

A noter aussi qu'il peut s'ouvrir directement comme un classeur - même via une URL ! - sans utiliser QueryTable …

Ou encore importation directe dans une variable tableau à recopier dans la feuille, exemple dans cette discussion …