Export au format CSV

Version imprimable

(re)Bonjour tout le monde,

Mon objectif : Exporter certaines feuilles de mon classeur au format CSV (ces feuilles seront ensuite récupérées par d'autres classeurs via des requêtes)

Mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub SaveMaster() Dim Feuille As Worksheet For Each Feuille In ThisWorkbook.Sheets If Feuille.Name Like "MASTER_*" Then Feuille.Activate Application.DisplayAlerts = False Feuille.SaveAs Filename:="G:\Master Data\" & Feuille.Name, FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = True End If Next End Sub
Mon soucis :
La macro en elle même marche très bien mais après exécution, mon classeur qui s'appelait "Link.xlsm" se retrouve nommé MASTER_LISTE.csv et ne peut plus être enregistré.

Auriez vous une solution ?

22/12/2017, 15h45
patricktoulon

re

bonjour
il te faut en faire une copie d'abords par vba puis sauver le activeworkwook.qui est en fait le nouveau csv puis faire un close pour fermer le nouveau csv a chaque fois

sinon tu a bien d'autre methodes en exemple sur le forumet dans le forum contribution

au pire tu fait ca avec l'enregistreur de macro qui te donnera le code tout cuit ;)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveMaster()
    Dim Feuille As Worksheet
    For Each Feuille In ThisWorkbook.Sheets
        If Feuille.Name Like "MASTER_*" Then
            Feuille.copy 'ou feuille.move suivant si tu veux les laisser ou non dans premier classeur.
            Application.DisplayAlerts = False
            activeworkbook.SaveAs Filename:="G:\Master Data\" & Feuille.Name, FileFormat:=xlCSV, CreateBackup:=False
            Application.DisplayAlerts = True
            activeworkbook.close
        End If
    Next
End Sub

22/12/2017, 16h10
patricktoulon

re

:aie:
il aurait été préférable de le laisser decouvrir le code par l'enregistreur de macro
c'est quand meme le B a Ba qu'il faut savoir pour l'utilisation et transfert de format de fichier
22/12/2017, 16h19
GeoTrouvePas

Merci Patrick et halaster08,

Ne t'inquiète pas Patrick, je sais très bien me servir de l'enregistreur de macro. Je ne l'ai pas précisé dans mon message mais j'avais déjà envisagé cette solution. J'espérais juste qu'il existerait quelque chose de plus efficace et rapide.

Mon soucis est que lors de cet export j'ai un ou plusieurs userform d'ouvert. Du coup la macro plante lors du "Feuille.Copy"
22/12/2017, 16h59
Marc-L

Bonjour !

Citation:

Envoyé par GeoTrouvePas

Exporter certaines feuilles de mon classeur au format CSV

Vérifier déjà manuellement via Enregistrer sous au format CSV si le fichier texte créé convient et,
dans la négative, préciser alors quel est exactement ce format CSV attendu, ayant vu de tout et n'importe quoi …
22/12/2017, 17h11
patricktoulon

re

re
peut etre mettre tes userforms en question en affichage non modal

mais je pense que l'erreur viend d'ailleurs