Problème dans la procédure Sub Export

Bonjour,

J'aimerais absolument que mes données de l'onglet 'Export' soient sauvegardées automatiquement dans le ficher Export lorsque je clique sur le bouton 'Exporter' et que mon Workbook demeure ouvert.

En ce moment, lorsque je clique sur le bouton 'Exporter', le Workbook se ferme et les données de l'onglet 'Export' ne sont pas sauvegardées.

Est-ce que c'est possible ?

Merci à la personne qui m'aidera.

Sub Export()
    ActiveWorkbook.RefreshAll
    Sheets("Export").Select
    ActiveWorkbook.SaveAs Filename:=Left(Range("Fichier"), Len(Range("Fichier")) - 4) & "csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    ThisWorkbook.Close SaveChanges:=False
End Sub

Bonjour Catherine,

A priori, c'est la dernière ligne qui pose problème :

Sub Export()
    ActiveWorkbook.RefreshAll
    Sheets("Export").copy
    ActiveWorkbook.SaveAs Filename:=Left(Range("Fichier"), Len(Range("Fichier")) - 4) & "csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
End Sub

Et regardez le filename, je me demande si vous n'avez pas oublié un "."

Cdlt,

Bonjour,

J'ai essayé ton code mais j'obtiens un erreur :

Bonjour,

Et comme ceci :

Sub Export()
    nomfichier = Left(Range("Fichier"), Len(Range("Fichier")) - 4) & ".csv"
    ActiveWorkbook.RefreshAll
    Sheets("Export").copy
    ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
End Sub

Cdlt,

Bonjour,

Il n'y a plus d'erreur mais mon fichier ne s'enregistre pas et il ouvre le fichier .csv.

Bonjour,

Je ne sais pas quoi vous dire alors, ça devrait marcher normalement...

Sur vous êtes sur Mac, essayez avec la dernière ligne :

ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat:=xlCSVMac, CreateBackup:=False, Local:=True

ou sinon, sur windows, avec :

ActiveWorkbook.SaveAs Filename:=nomfichier, FileFormat:=xlCSV

Sinon, j'espère que vous obtiendrez une meilleure réponse.

Cdlt,