Discussion :

[Ceubex]

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 :

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

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

[Ceubex]

Alors j'ai trouvé :

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
 
    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 ?

[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 !

[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 ?