exporter feuille avec le mois en cours ou la date

[mix770]

Bonjour le Forum,

j'ai une petite macro qui exporte et enregistre une feuille avec le nom dans un dossier, si je veux en exporter une autre j'ai un MSG "le fichier existe déja voulez vous le supprimer" je souhaiterai que la macro exporte la feuille "point controle" avec la date jj/mm/aa.
si quelqu'un peut m'aider
merci à vous


Sub export_contrôles()
'exporte l'onglet "point controles"
c = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=c & "\" & ActiveSheet.Name
End Sub

 

[DoubleZero]

Re : exporter feuille avec le mois en cours ou la date

Bonjour, mix770, le Forum,

Comme ceci ?

Option Explicit
Sub export_contrôles()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & ActiveSheet.Name & " - " & Format(Date, "dd mm yy"), FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

A bientôt 🙂

 

[mix770]

Re : exporter feuille avec le mois en cours ou la date

Bonjour,
merci beaucoup, cela fonctionne mais le fichier apparait avec un point d'exclamation. et message impossible d'ouvrir format inconnu
merci à toi

 

[mix770]

Re : exporter feuille avec le mois en cours ou la date

Bonjour,
merci beaucoup, cela fonctionne mais le fichier apparait avec un point d'exclamation. et message impossible d'ouvrir format inconnu
merci à toi

Regarde la pièce jointe 342847

 

[DoubleZero]

Re : exporter feuille avec le mois en cours ou la date

Re-bonjour,

Toutes mes excuses : je n'avais pas fait attention 😱 à l'extension du fichier joint en #1.

Autre suggestion :

Option Explicit
Sub export_contrôles()
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & ActiveSheet.Name & " - " & Format(Date, "dd mm yy") & ".xls"
End Sub

A bientôt 🙂

 

[mix770]

Re : exporter feuille avec le mois en cours ou la date

merci à toi
c'est génial 🙂
bonne journée