Discussion :

[GeoTrouvePas]

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

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

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 ?

[patricktoulon]

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

[halaster08]

Bonjour,

Code :

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

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

[patricktoulon]

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

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

[Marc-L]

Bonjour !

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 …

[patricktoulon]

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

mais je pense que l'erreur viend d'ailleurs