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