C
Crazygil
Guest
Salut à tous,
Je suis en train de tenter d'enregistrer un fichier d'excel en fonction de la date du jour. Or mon problème, c'est que je n'arrive pas à lui dire de sauvegarder en ".xls"
J'ai eu beau tenter avec la ligne habituel "FileFormat:=xlNormal" mais cela ne change rien.
Mon code sous VBA est le suivant:
Sub SauvegarderAvecDate()
'Saisie ds informations
fichier = InputBox("Entrez le nom du fichier", "SAUVEGARDE", 1)
jour = Day(Date)
mois = Month(Date)
année = Year(Date)
' Sauvegarde du classeur
ActiveWorkbook.SaveAs ((année & "." & mois & "." & jour & " - ") & fichier)
End Sub
Alors si quelqu'un arrive à me dépanner je lui en serai grés. Je suis persuadé en plus que c'est un truc très simple (une erreur de ponctuation de ma part peut être...)
Bonne soirée à tous en attendant
Crazygil
Je suis en train de tenter d'enregistrer un fichier d'excel en fonction de la date du jour. Or mon problème, c'est que je n'arrive pas à lui dire de sauvegarder en ".xls"
J'ai eu beau tenter avec la ligne habituel "FileFormat:=xlNormal" mais cela ne change rien.
Mon code sous VBA est le suivant:
Sub SauvegarderAvecDate()
'Saisie ds informations
fichier = InputBox("Entrez le nom du fichier", "SAUVEGARDE", 1)
jour = Day(Date)
mois = Month(Date)
année = Year(Date)
' Sauvegarde du classeur
ActiveWorkbook.SaveAs ((année & "." & mois & "." & jour & " - ") & fichier)
End Sub
Alors si quelqu'un arrive à me dépanner je lui en serai grés. Je suis persuadé en plus que c'est un truc très simple (une erreur de ponctuation de ma part peut être...)
Bonne soirée à tous en attendant
Crazygil