Discussion :

[guigui69]

Bonjour à tous,

je voudrait savoir si il est possible en vba de réalise ceci:

j'ai un document excel avec plusieurs feuille (6).
j'ai besoin de transformer 2 feuilles en deux fichier csv mais sans enregistrer le fichier excel (donc avec les 6 feuille) en fichier csv.

Est-ce possible ?

Merci

guigui69

[FCL31]

Si je ne me trompe pas, tu as la reponse dans les

Comment exporter un fichier Excel vers CSV : http://access.developpez.com/faq/?page=Excel#ExcelToCVS

[guigui69]

Oui j'avais deja vu,

mais je voudrait savoir si il est possible par une macro d'exporter 2 feuille (onglet) dans 2 documents csv distinct. Les 2 onglets sur la feuille principale seront toujours les même.

Merci

guigui69

[CodeFacile]

Oui on peut toujours exporter vers un fichier CSV .
Sachant que : le fichier csv ne permet de sauvegarder qu'un onglet du classeur actif . En interactif , il y a une série de message qui indique qu'il y a perte d'infos ( différents onglets , couleur présentation ) ; C'est pourquoi en VBA , il vaut mieux mettre le DisplayAlerts à false .

Exemple si l'on veut sauvegarder 2 onglets : OngletA et OngletB du fichier fic_excel.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
 
 
 Application.DisplayAlerts = False
 
workbooks ( "fic_excel.xls").open 
 
activeworkbook.worksheets ("OngletA").select
 ActiveWorkbook.SaveAs Filename:= le_nom_fichier_onlet_A_CSV ,   FileFormat:=xlCSV, CreateBackup:=False
 
activeworkbook.close
 
workbooks ( "fic_excel.xls").open 
 
activeworkbook.worksheets ("OngletB").select
 ActiveWorkbook.SaveAs Filename:= le_nom_fichier_onlet_B_CSV ,   FileFormat:=xlCSV, CreateBackup:=False

[guigui69]

Merci il me retourne l'erreur 438 a ce niveau workbooks ( "fichier_fac.xls").open
aurait-je commis une erreur (j'ai copier coller et modifier les nom des fichiers)

merci

guigui69

[guigui69]

Je te remercie pour ton aide,

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
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/04/2009 
'
 
'
 
 Application.DisplayAlerts = False
 
Workbooks("essai_factor_v2.xls").Open
 
ActiveWorkbook.Worksheets("essai_factor_facture").Select
 ActiveWorkbook.SaveAs Filename:=le_nom_fichier_onlet_A_CSV, FileFormat:=xlCSV, CreateBackup:=False
 
ActiveWorkbook.Close
 
Workbooks("essai_factor_v2.xls").Open
 
ActiveWorkbook.Worksheets("essai_factor_client").Select
 ActiveWorkbook.SaveAs Filename:=le_nom_fichier_onlet_B_CSV, FileFormat:=xlCSV, CreateBackup:=False
 
 
 
End Sub

Voici le code vba

il me retourne erreur 438 propriété ou méthode non gérer par cette objet avec ceci de surligné: "Workbooks("essai_factor_v2.xls").Open"

Est-je commis une erreur si oui la quel ?

Merci

guigui69

[guigui69]

J'ai modifier le code comme ceci:

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
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/04/2009 par fguillot
'
 
'
 
 Application.DisplayAlerts = False
 
Workbooks.Open ("essai_factor_v2.xls")
 
ActiveWorkbook.Worksheets("essai_factor_facture").Select
ActiveWorkbook.SaveAs Filename:=le_nom_fichier_onlet_A_CSV, FileFormat:=xlCSV, CreateBackup:=False
 
ActiveWorkbook.Close
 
Workbooks.Open ("essai_factor_v2.xls")
 
ActiveWorkbook.Worksheets("essai_factor_client").Select
 ActiveWorkbook.SaveAs Filename:=le_nom_fichier_onlet_B_CSV, FileFormat:=xlCSV, CreateBackup:=False
 
 
 
End Sub

Pas d'erreur, mais je ne voit aucun fichier créé. Quel erreur est présent dans le code?

Merci

guigui69