Discussion :

[gandalf20000000]

Bonjour,


Dans le cadre d'une de mes macros, je copie (en valeur) le contenu d'un onglet d'un fichier excel, dans un fichier type csv.

Quand je réalise l'opération manuellement, tout va bien.
Quand je crée une macro qui copie en valeur les donnes dans le csv, ca ne marche pas! Toutes les valeurs par lignes sont consolidé dans la 1ere colonne séparés par des tabulations.


Il y a t'il un moment de résoudre ce probleme?

Mon code est fort simple :

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
    Application.DisplayAlerts = False
    Application.Workbooks.Open ("xxx/jardinage.xls")
    Application.Workbooks.Open ("xxx/jardinage.csv")
    Application.DisplayAlerts = True
 
 
    Windows("jardinage.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("jardinage.csv").Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
    'Application.DisplayAlerts = False
    'ActiveWorkbook.Save
    'ActiveWindow.Close
    'Windows("jardinage.xls").Activate
    'ActiveWindow.Close
    'Application.DisplayAlerts = True

[CodeFacile]

Bonjour,

Le problème ne vient pas de la macro. C'est le format du fichier qui est mauvais .
On ne voit pas ,dans la partie de code fournie , comment est créé le fichier csv ?
Dans tous les cas , il n'y a pas besoins de faire de copie .Il suffit d'enregistrer le fichier au format csv

Code :

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

1
2
3
4
5
6
7
8
 
 
  Application.Workbooks.Open ("xxx/jardinage.xls")
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:= _
        ("xxx/jardinage.csv", FileFormat:=xlCSV, CreateBackup:=False
 ActiveWorkbook.close
 Application.DisplayAlerts = true