Discussion :

[Ludo11150]

Bonjour,

je suis novice en vba.
j' ai une macro vba qui me permets de créer un ou plusieurs fichiers .csv à partir des onglets d'un autre fichier .xls:

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
Public ws As Worksheet
Public chemin_csv As String
Public chemin_export_xpe As String
Dim newWk As Workbook
 
chemin_export_xpe = "D:\export_XPE\"
chemin_csv = chemin_export_xpe & "CSVs\"
 
For Each ws In Worksheets
                    Set newWk = Workbooks.Add(xlWBATWorksheet)
                    ws.Copy newWk.Sheets(1)
                    newWk.SaveAs (chemin_csv & ws.Name & ".csv")
                    newWk.Close
                    Set newWk = Nothing
Next ws

Les fichiers sont créés, par contre au lieu de récupérer les valeurs du fichier source, je récupère les formules.
Quelqu'un aurait-il une solution pour copier les valeurs et non les formules?
Merci pour votre aide.

[Marc-L]

Bonjour, bonjour,
en fait le fichier n'est pas enregistré au format texte car la ligne n° … Ah zut !‼

Bref le fichier est toujours un classeur Excel, le nom ne faisant pas le format …


Comme je n'ai pas cette version sous le coude, deux solutions :

• soit utiliser l'Enregistreur de macros pour sauvegarder au bon format et récupérer le code ainsi généré;

• soit consulter l'aide de la méthode Workbooks.SaveAs pour ajouter le paramètre de format de fichier …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Ludo11150]

Merci beaucoup
j'ai ajouté xlCSV après le saveas:

Code :

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

newWk.SaveAs (chemin_csv & ws.Name & ".csv"), xlCSV

Mille mercis