Importer un CSV distant dans une Feuille

Version imprimable

Bonjour,

J'ai un CSV de 500 000 lignes et je souhaite qu'une macro l'importe dans la feuille "Journal". Je ne peux pas trop faire de bidouille du genre "on prend le CSV en local et ensuite on l'ouvre" parce que c'est pour des utilisateurs très lambda qui doivent faire du clic bouton. J'aimerais aussi éviter (si c'est possible) de créer un fichier intermédiaire avec la macro. J'avais trouvé ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 sCSVLink = "http://:@monsite.com/journal.csv" Set wnd = ActiveWindow Application.ScreenUpdating = False Sheets("Journal").Cells.ClearContents Workbooks.Open Filename:=sCSVLink ActiveSheet.Cells.Copy 'Bug !!! wnd.Activate Sheets("Journal").Paste Application.DisplayAlerts = False Windows(sfile).Close False Application.DisplayAlerts = True Application.ScreenUpdating = True
Mais ça bug parce qu'il y a trop de ligne pour faire un copier coller. Je sèche un peu sur mon problème j'avoue

Alors j'ai trouvé :

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
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;http://xxx/journal.csv" _
        , Destination:=Range("A1"))
        .Name = "nvaview_1"
        .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

Par contre avec ce code, une boite de dialogue s'ouvre pour me demander le login/mot de passe de mon site alors qu'il n'y en a pas. Comment l'enlever ?

27/06/2014, 09h39
Marc-L

Bonjour, bonjour !

P'tit rappel :

un fichier .csv s'ouvre aussi directement comme un classeur et même via un double clic via l'Explorateur de fichiers !

Donc une seule ligne de code nécessaire : consulter l'aide VBA intégrée de la méthode Workbooks.Open …

Et ne pas oublier le Générateur de macros, l'ami du débutant !
27/06/2014, 11h31
Ceubex

Oui mais moi j'ai vraiment besoin de procéder ainsi.
Sais-tu comment faire pour enlever la demande d'identifiant et mot de passe ?