Discussion :

[pierrepat]

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.

[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.

[Menhir]

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

[patricktoulon]

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

[pierrepat]

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)

SC Co01_V11_030417_Tableau-productions_certipaqbio.xlsm
Macro csv.docx

[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.

[pierrepat]

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 :

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
 
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 :

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
 
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