Discussion :

[FrancisZheng]

Bonjour :

Je voudrais utiliser les codes pour ouvrir un fichier a.csv puis copier une plage de cellules.

Mais d'après mon test, je ne sais pas pourquoi

Code :

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

Workbooks("ExportStat_Campagne_Destinataires.csv").Close

a réussi à fermer le fichier mais

Code :

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

Workbooks("ExportStat_Campagne_Destinataires.csv").Open

n'arrive pas à l'ouvrir.

Ensuite, pour la copie :

Code :

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

1
2
3
4
    Windows("ExportStat_Campagne_Destinataires.csv").Activate
    Activate.Sheets.Range("A1:B4").Select
    Selection.Copy
    Workbooks("data.xlsm").Sheets("Sarbacane Lien").Cells(1, 1).Paste

Il ne renvoie pas d'erreur, mais il ne recopie pas non plus. Quelqu'un aurait une idée? Merci d'avance.

[parmi]

Bonjour,

Ajoute le chemin et chnge le Open de place

Code :

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

Workbooks.Open "tout le chemin\ExportStat_Campagne_Destinataires.csv"

[FrancisZheng]

Merci. Cela fonctionne bien. Mais j'ai rencontré un problème du séparateur.

Voici mon code pour recopier :

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
    Dim MyDocuments, strFileName, myToday, file, strConnection As String
 
    strConnection = "TEXT;" & "C:\Users\stg_pao\Desktop\ExportStat_Campagne_Destinataires.csv"
    With ActiveSheet.QueryTables.Add(Connection:= _
         strConnection, Destination:=Workbooks("data.xlsm").Sheets("Commerciaux").Range("$A$1"))
        .Name = "temp"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Par exemple, dans une cellule du fichier original csv c'est écrit : "a,b,c" , après la copie dans mon classeur ça devient 3 cellules dans une même ligne : "a" "b" "c" .

[FrancisZheng]

Problème résolu :

Code :

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

1
2
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True