Copie d'une plage *.csv vers la dernière d'un *.xlsm

**rouchi** · 03/01/2018, 15h57

Bonjour à tous,

Je sèche durement là.
Je souhaite faire une copie d'une plage A2:R1000 du fichier test.csv vers data.xlsm
Puis refaire de même avec les deux mêmes fichiers mais ayant une plage différente (la fin du tableau) de V2:AM1000

Les cellules S ; T ; U du data.xlsm ont des formules de dates du coup pas d'écrasement.

Je lance le code à partir du fichier data.xlsm

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub import()
'
Workbooks.Open Filename:= _
"\\10.4.95.13\MALEK\exp_oxyg\STAT_GALERIE.csv"
Range("A2:R15000").Select
Selection.Copy
Application.Run "'Rapport Global d''activité.xlsm'!data2"
Range("A" & Rows.Count).End (xlUp)(2)
Workbooks("STAT_GALERIE").Worksheets(STAT_GALERIE).Range("V2:AM15000").Copy
Application.Run "'Rapport Global d''activité.xlsm'!data2"
Range("V" & Rows.Count).End (xlUp)(2)
 
End Sub

Rien ne se copie... puis j'ai une erreur ici

Code :

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

Range("A" & Rows.Count).End (xlUp)(2)

Please HELP...

**unparia** · 03/01/2018, 16h28

Bonjour
Déjà :
cette instruction :

Code :

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

Range("A" & Rows.Count).End (xlUp)(2)

n'a absolument aucun sens, pas plus de sens que si tu écrivais deux lignes de code disant par exemple

Code :

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

1
2
Dim cellule as range
cellule

**rouchi** · 03/01/2018, 17h30

Que fallait-il écrire alors?

cela :

Code :

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

Range("A").End (xlUp)(2)

**unparia** · 03/01/2018, 19h30

Que fallait-il écrire alors?

Je refuse CATEGORIQUEMENT de répondre personnellement à une telle question !
A moins que tu ne m'expliques, toi, ce que je devrais dire au lieu par exemple de crier par la fenêtre :
"maison"
et rien d'autre (ce qui n'aurait AUCUN SENS)

**kiki29** · 04/01/2018, 00h51

Salut, relire Dernière ligne et la dernière colonne renseignées d'une feuille

**rouchi** · 09/01/2018, 11h35

Bonjour KIKI29,

Merci pour votre réponse.

Mais je me rends compte que copier un CSV sur un XLSX ne copie pas les données comme je le voudrais.

Mais je vais chercher la bonne procédure.. Merci votre lien que je vais consulter de suite.

**Phil'oche** · 09/01/2018, 14h31

Allez, une petite piste :

- tu démarres l'enregistreur de macro
- dans ton menu "données", choisis "Données externes/A partir du texte"
- tu choisis ton fichier à importer
- tu lui appliques ce que tu veux (type de séparateur, type de données, etc...)
- tu finis l'importation das une feuille vierge
- tu arrêtes l'enregistreur de macro
- tu vas voir le code que ça a généré...

**rouchi** · 09/01/2018, 15h31

Excellente piste !!!!

Merci beaucoup,

Voici le code généré... c'est très bon début.

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
32
33
34
35
36
Sub test3()
'
' test3 Macro
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;Z:\MALEK\exp_oxyg\STAT_GALERIE.CSV", Destination:=Range("A2:R1000"))
        .Name = "STAT_GALERIE"
        .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 = 2
        .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, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
End Sub

**rouchi** · 09/01/2018, 18h12

Merci pour votre précieuse aide !!

Je suis presque au bout de mon idée. Mais si je reviens au sujet du post, je n'y arrive pas à mettre ma copie à la première ligne vide de la colonne A.

J'ai fait plusieurs tests pourtant, mais je n'y arrive pas Grrrrrrrr

Pour le CSV je suis passé par un fichier Temp.xlsx, et c'est depuis ce fichier que je lance ma copie dans mon fichier principal. A la fermeture du temp pas de sauvegarde.
Tout fonctionne à merveille, sauf la copie à la première ligne vide de la colonne A (puis aussi sur la colonne V mais si je trouve pour la A je ferai de même pour la V)

C'est entre la ligne 41 et 42 que j'ai ce problème.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub import_oxy()
'
' import_oxy Macro
'
 
'
    Workbooks.Open Filename:="Z:\MALEK\exp_oxyg\temp.xlsx"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;Z:\MALEK\exp_oxyg\STAT_GALERIE.CSV", Destination:=Range("$A$1"))
        .Name = "STAT_GALERIE"
        .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 = 2
        .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, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
    Application.DisplayAlerts = False
    Range("A1:R13700").Select
    Selection.Copy
    Windows("Rapport Global d'activité v2.xlsm").Activate
    Application.Run "'Rapport Global d''activité v2.xlsm'!data2"
    Range("A36374").Select
    ActiveSheet.Paste
    Range("V36374").Select
    Windows("temp.xlsx").Activate
    Range("V1:AM1370").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Rapport Global d'activité v2.xlsm").Activate
    ActiveSheet.Paste
    Range("V36374").Select
    Application.Run "'Rapport Global d''activité v2.xlsm'!retour_data"
    Windows("temp.xlsx").Activate
    Range("A1").Select
    Workbooks("temp.xlsx").Close SaveChanges:=False
    Application.DisplayAlerts = True
 
End Sub

**Menhir** · 09/01/2018, 18h26

Pour ouvrir un CSV, je conseille fortement d'utiliser OpenText plutôt que Open.
Les paramètres de cette méthode permettent de bien mieux contrôler le format des données importées.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel

Et c'est beaucoup plus simple à utiliser que des tables de requêtes.

Autre conseil : tu devrais supprimer tous les Select/Selection et autres Activate de la seconde partie de ton code.
Ca serait plus lisible, plus rapide et plus agréable à l'exécution.

**rouchi** · 09/01/2018, 18h42

Merci pour votre réponse,

Je dois avouer ne pas être un champion du VBA.

Le première partie est le résultat d'une macro. Pour la seconde si je supprime les select et activate cela risque de plus marcher avec ma méthode plutôt simple.

J'ai éssayé de le faire en mode "pas très intelligent lOoOl" en gros en elevant tout les select et activate... A la première ligne de la seconde partie j'ai une erreur de compilation...

Je suis passé de ça :

Code :

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

Range("A1:R13700").Select

A ça :

Code :

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

Range("A1:R13700")

**Menhir** · 09/01/2018, 19h03

Envoyé par rouchi

si je supprime les select et activate cela risque de plus marcher

C'est un pointe de vue que j'ai du mal à partager.

avec ma méthode plutôt simple.
J'ai éssayé de le faire en mode "pas très intelligent lOoOl" en gros en elevant tout les select et activate...

En mode plus réfléchit (ne parlons pas d'intelligence, c'est une notion que j'aurai du mal à définir), ça donne ça :

Code :

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

1
2
3
4
5
    Range("A1:R13700").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("à modifier").Range("A36374").PasteSpecial(xlPasteAll)
    Range("V1:AM1370").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("à modifier").Range("A36374").PasteSpecial(xlPasteAll)
    Workbooks("temp.xlsx").Close SaveChanges:=False

Il faudrait modifier les noms dans les Worksheets marqués "à modifier" (tu ne les indique pas dans ton code).
Je n'ai pas non plus compris ce que venaient faire là les Applications.Run.
Et je ne comprends pas pourquoi tu fais deux Paste sur la même cellule (le second rend le premier inutile), ce qui est sans doute une erreur.

A noter aussi que si tu utilisais OpenText sur ton CSV, tu n'aurais pas besoin de passer par un fichier temp intermédiaire.

**rouchi** · 09/01/2018, 19h58

Effectivement !!

C'est beaucoup plus propre.

Cela dit je ne colle pas deux fois la même cellule, il y a la colonne A et la Colonne V

Voici :

Code :

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

1
2
3
4
5
6
7
 Application.DisplayAlerts = False
    Range("A1:R13700").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Range("A36374").PasteSpecial (xlPasteAll)
    Range("V1:AM1370").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Range("V36374").PasteSpecial (xlPasteAll)
    Workbooks("temp.xlsx").Close SaveChanges:=False
    Application.DisplayAlerts = True

Il fonctionne parfaitement, merci.

Mais, comment remplacer ça :

Code :

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

Range("A36374")

Par la première cellule vide de la colonne A ?

Car cette onglet est déjà bien rempli...

**rouchi** · 09/01/2018, 22h15

Voilà ! Trop happy là.

Cela fonctionne, merci pour votre aide vous êtes géniaux !

Code :

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

1
2
3
4
5
6
7
8
Application.DisplayAlerts = False
    Range("A1:R13700").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial (xlPasteAll)
    Range("V1:AM1370").Copy
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Cells(Rows.Count, "V").End(xlUp)(2).PasteSpecial (xlPasteAll)
    Workbooks("temp.xlsx").Close SaveChanges:=False
    Application.DisplayAlerts = True
    Application.Run "'Rapport Global d''activité v2.xlsm'!retour_data"

**rouchi** · 09/01/2018, 22h21

Décidément, VBA est trop compliqué

Maintenant que la copie fonctionne, je voulais étirer une formule de la colonne S pour qu'elle s'arrête à la dernière cellule de la colonne A non vide.

Voilà mon résultat qui, sans que je me sens étonné, ne fonctionne pas....

Code :

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

1
2
3
4
Dim DernLigne As Long
 
    DernLigne = Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Cells(Rows.Count, "A").End(xlUp).Row
    Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Range("S").AutoFill Destination:=Worksheets("cumul").Range("S" & DernLigne)

**Phil'oche** · 10/01/2018, 09h57

... ce qui parait logique, vu que :

Code :

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

Workbooks("Rapport Global d'activité v2.xlsm").Worksheets("cumul").Range("S").AutoFill Destination:=Worksheets("cumul").Range("S" & DernLigne)

est incorrect !

Juste avant ta méthode AutoFill, Range("S") ne veut rien dire...

De même que Worksheets("cumul").Range("S" & DernLigne)...

**rouchi** · 10/01/2018, 10h11

Mdrrrr

En gros j'ai écrit n’importe quoi....

**Phil'oche** · 10/01/2018, 10h19

Envoyé par rouchi

Mdrrrr

En gros j'ai écrit n’importe quoi....

Je n'irais pas jusque là...

Mais en mettant "AutoFill" en surbrillance dans ton code, puis touche F1, tu verrais :

Code :

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

1
2
3
4
Visual Basic pour Applications 
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange

Ce qu'on peut raccourcir en :

Code :

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

Worksheets("Sheet1").Range("A1:A2").AutoFill Destination:=Worksheets("Sheet1").Range("A1:A20")

Or là, tu es loin de fournir des "Range" aux 2 endroits de ton code...

**Menhir** · 10/01/2018, 11h11

Envoyé par rouchi

Mais, comment remplacer ça :

Code :

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

Range("A36374")

Par la première cellule vide de la colonne A ?

Code :

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

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

**rouchi** · 10/01/2018, 13h38

Si je veux tirer une formule qui se trouve dans la colonne S et que je souhaite qu'elle s'arrête a une ligne précise, prendre comme repère la dernière ligne non vide d'une autre colonne (peu importe tant que c'est entre la A et la R).

C'est possible non ?

D'où dans mon code la présence de la colonne S et de la A.

Copie d'une plage .csv vers la dernière d'un .xlsm

Macros et VBA Excel

Discussions similaires

Partager

Partager