Boite de dialogue demandant un login/password sans raison avec QueryTables.Add
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:
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