Discussion :

[Ceubex]

Bonjour,

J'ai cette fonction qui télécharge un CSV et le met dans une feuille "Journal". Mais j'ignore pourquoi, à chaque fois que je la lance, une boite de dialogue me demande le mot de passe et l'identifiant pour accéder au serveur. Or ça n'a pas de sens, le serveur n'est protégé par aucun mot de passe, le fichier CSV non plus. J'ai essayé avec deux PC différents sur deux réseaux différents et ça fait toujours ça.

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
29
30
31
Sub importer_nva_csv(url As String)
 
    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
End Sub

Dans cette boite de dialogue si je clique sur OK sans rien mettre, ça me la remet et si je clique sur Annuler ça passe et l'action s'exécute comme prévue mais ça dérangera beaucoup mes utilisateurs

[Ceubex]

J'ai remarqué que ça ne faisais pas cela avec tous les serveurs. Par exemple sur le CSV http://bi2.io/json/sales.csv ça ne le fais pas mais sur http://j.netsur2.com/journal.csv ça le fais.
Cela doit venir d'une directive du serveur mais comment arranger cela sur le serveur du coup ?

[Marc-L]

Bonjour,

juste pour information, une QueryTable peut être contournée car un fichier .csv peut être ouvert directement
comme un classeur quelconque par exemple, sans compter la lecture directe d'un fichier texte …

Et aucun souci de mon côté avec ton deuxième lien !

[Ceubex]

Je sais mais on m'impose de procéder ainsi.
Tu n'as pas ce soucis en exécutant la macro avec le deuxième lien ?? ça s'est bizarre, moi je l'ai systématiquement avec Excel 2010

[Marc-L]

Non aucun souci … avec la version 2003 !

Regarder dans l'aide de ta version pour voir s'il y aurait une option particulière.

En attendant qu'un autre intervenant puisse tester avec une version 2010 …


__________________________________________________________________________________________
Définition Facebook : le seul endroit où tu parles à un mur sans être ridicule …