Sauvegarder un autre classeur avec une macro

Bonjour le forum,

je sèche sur un truc tout bête mais pour lequel je ne trouve pas de solution. Voici:

J'ai un classeur de macros (MesMacros.xlsm) et un autre classeur issu d'un fichier .csv à sauvegarder (MonClasseur.csv). Je voudrais depuis le classeur MesMacros.xlsm

1) tester si MonClasseur.csv est bien ouvert

2) le sauvegarder au format .csv avec des points virgule en séparateur, en écrasant l'original.

Une aide serait la bienvenue. Merci.

Bonjour François,

Bonjour le Forum,

Le code ci-dessous permet de savoir si un fichier est ouvert :

On Error GoTo WbNotOpen
Set Wb = Workbooks("" & Mon_Fichier & "")
WbNotOpen:
MsgBox "Le fichier n'est pas ouvert", vbCritical

Et celui-ci dessous de sauvegarder un fichier par dessus l'original, et au format CSV :

Application.DisplayAlerts = False
Wb.SaveAs Filename:=Wb.Path & "\" & Wb.Name, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True

Donc sa donne le code :

Sub SaveCSV()
Dim Wb As Workbook
On Error GoTo WbNotOpen
Set Wb = Workbooks("" & Mon_Fichier & "")
Application.DisplayAlerts = False
Wb.SaveAs Filename:=Wb.Path & "\" & Wb.Name, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
Exit Sub
WbNotOpen:
MsgBox "Le fichier n'est pas ouvert", vbCritical
End Sub

Je te laisse tester et revenir vers nous

A dispo!

Ca marche impec, merci de ton aide rapide et efficace. Tu m'enlèves une belle épine du pied. J'ai juste ajouté Local:=True à la ligne de sauvegarde pour préserver le format de mon fichier et et une commande pour ferme le fichier .

Sub SaveADDR_NORM()
Dim Wb As Workbook

On Error GoTo WbNotOpen

    Set Wb = Workbooks("BlueDataV2_ADDR_NORM.csv")

    Application.DisplayAlerts = False
        Wb.SaveAs Filename:=Wb.Path & "\" & Wb.Name, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
        Wb.Close SaveChanges:=False
    Application.DisplayAlerts = True

Exit Sub

WbNotOpen:
    MsgBox "Le fichier n'est pas ouvert", vbCritical

End Sub

Merci