Enregistrer en CSV dans le fichier source

Version imprimable

27/03/2017, 18h32
pierrepat

Enregistrer en CSV dans le fichier source

Bonjour,

Débutant en macro je ne sait trop par où commencer. Je souhaitais faire une manipulation plutôt "simple".

J'ai essayer d'enregistrer la macro mais je n'arrive pas au résultat voulu.

Je souhaite :

- Enregistrer la feuille active en .csv dans le même dossier que le fichier source (qui lui se deplacera selon les utilisateur).

-Je souhaiterai que le .csv porte le nom de l'onglet qu'il représente.

En espérant avoir été assez clair,

Merci d'avance pour vos conseil.
27/03/2017, 19h39
unparia

Bonjour
Nous connaissons maintenant tes souhaits.
Nous ne connaissons par contre rien de ce que tu as au moins tenté d'écrire **** pour qu'ils soient exaucés ...;)

**** ne serait-ce qu'à partir du code que tu obtiendrais en utilisant l'enregistreur de macros ...

Tu demandes un conseil ? -->> tu l'as --->> commence par lire et analyser le code que tu obtiendrais en utilisant l'enregistreur de macros.
28/03/2017, 10h08
Menhir

Citation:

Envoyé par pierrepat

J'ai essayer d'enregistrer la macro mais je n'arrive pas au résultat voulu.

Enregistrer la macro, ce n'est que le premier pas. Il faut ensuite utiliser l'aide pour comprendre ce que le code fait et pouvoir le modifier pour l'adapter à ce qu'on veut qu'il fasse.

Pour enregistrer un fichier (sous CSV ou autre ) : https://msdn.microsoft.com/fr-fr/lib.../ff841185.aspx
Lire aussi : https://msdn.microsoft.com/fr-fr/lib.../ff198017.aspx

pour récupérer le nom d'un onglet : https://msdn.microsoft.com/fr-fr/lib.../ff196974.aspx
28/03/2017, 11h49
patricktoulon

re

bonjour
il y a un point qu'il faudrais déjà eclaircir
tu dis que le chemin change selon l'utilisateur
ca veut dire quoi ? que ton fichier est partagé ou que chaque utilisateur aura son exemplaire
dans le cas du classeur partagé ta demande n'a aucun sens
dans le cas de X exemplaire par utilisateur tu a la constante "thisworkbook.path" qui te donne le chemin du classeur
puisque tu a fait cela avec l'enregistreur de macro tu devrais facilement trouvé comment remplacer le chemin dans le code obtenu par celui ci plus le nom
j'ai tout dis
04/04/2017, 12h58
pierrepat

2 pièce(s) jointe(s)

Bonjour,

Veuillez trouver ci après le fichier sur lequel je travail ainsi que le détail de la macro dans le fichier .doc.

Dans le fichier .doc vous trouverez le détails de la macro avec une première partie qui fonctionne bien. (sauvegarde d'un onglet)

Et en dessous une macro qui ne fonctionne pas (sauvegarde de plusieurs onglets)

Pièce jointe 260858
Pièce jointe 260862
04/04/2017, 14h06
Menhir

Beaucoup de participants à ce forum n'ouvrent pas les pièces jointes, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Il est assez mal vu sur ce forum de se contenter de balancer un fichier pour éviter de s'expliquer et de répondre aux questions posées.

Re,

Voici le code en question en "clair"

Celui ci me permet de sauvegarder un onglet du classeur en csv, "à coté" du fichier source et fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Fonctionne 
Sub CSV_Parcellaire()
'
' Nommer
'
    sNomPDF = Sheets("Parcellaire").Range("O1").Value & "_" & Sheets("Parcellaire").Range("B1").Value & "_" & Sheets("Parcellaire").Range("B2").Value
    sNomPDF = Replace(sNomPDF, "/", "")
 
 
 
' Convertir en csv
 
    Sheets("Parcellaire").Select
ChDir _
        ThisWorkbook.Path
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & sNomPDF & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
 
' Fermer le csv
 
        ActiveWorkbook.Close
End Sub

Celui-ci devrait me permettre de sauvegarder plusieurs onglets du classeur mais malheureusement il plante au moment de convertir en.csv

Code:

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
 
Sub CSV()
'
' Nommer
'
    sNomParcellaire = Sheets("Parcellaire").Range("O1").Value & "_" & Sheets("Parcellaire").Range("B1").Value & "_" & Sheets("Parcellaire").Range("B2").Value
    sNomParcellaire = Replace(sNomPDF, "/", "")
 
    sNomCultDiv = Sheets("Culture Diversifiée").Range("J1").Value & "_" & Sheets("Culture Diversifiée").Range("B1").Value & "_" & Sheets("Culture Diversifiée").Range("B2").Value
    sNomCultDiv = Replace(sNomCultDiv, "/", "")
 
    sNomProAnimale = Sheets("Production animale").Range("U1").Value & "_" & Sheets("Production animale").Range("B1").Value & "_" & Sheets("Production animale").Range("B2").Value
    sNomProAnimale = Replace(sNomProAnimale, "/", "")
 
    sNomAutres = Sheets("Autres produits").Range("G1").Value & "_" & Sheets("Autres produits").Range("B1").Value & "_" & Sheets("Autres produits").Range("B2").Value
    sNomAutres = Replace(sNomAutres, "/", "")
 
  ' convertir en csv
 
    Sheets("Parcellaire").Select
ChDir _
        ThisWorkbook.Path
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & sNomParcellaire & ".csv"
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("Culture diversifiée").Select
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & sNomCultDiv & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("Production animale").Select
    ActiveWorkbook.SaveAs Filename:= _
         ThisWorkbook.Path & "\" & sNomProAnimale & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Sheets("Autres produits").Select
    ActiveWorkbook.SaveAs Filename:= _
         ThisWorkbook.Path & "\" & sNomAutres & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
 
 
 
' Fermer le csv
 
        ActiveWorkbook.Close
End Sub

En espérant être suffisant explicite, je vous remercie du temps que vous prendrez pour me répondre.

PS : le fichier sur lequel je travail est en PJ ci-dessous

04/04/2017, 17h24
Menhir

Citation:

Envoyé par pierrepat

Celui-ci devrait me permettre de sauvegarder plusieurs onglets du classeur mais malheureusement il plante au moment de convertir en.csv

Sur quelle ligne ? Quel texte d'erreur ?
04/04/2017, 18h25
pierrepat
Plante à partir de la ligne :
Code:

1 2 3 ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path & "\" & sNomParcellaire & ".csv" _ , FileFormat:=xlCSV, CreateBackup:=False
Message d'erreur :

Erreur '1004' :
La méthode 'SaveAs' de l'objet '_Workbook' a échoué
04/04/2017, 20h32
patricktoulon

re

re
essai un debug.print sur la concaténation du chemin juste pour voir

Code:

debug.print ThisWorkbook.Path & "\" & sNomParcellaire & ".csv"