"Enregister sous" au format XL

[Crazygil]

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

 

[Hervé]

bonsoir

j'ai testé ta macro avec excel2002 et elle fonctionne (?????)

salut
Hervé

 

[Crazygil]

Salut Hervé

Ma macro fonctionne certe mais tu ne dois pas avoir d'extension de fichier dans l'arborescence windows. En type de fichier Windows t'indique fichier et non excel. Est c'est bien là mon problème. Mais je planche encore dessus, je suis têtu.

 

[Batiscaf]

Bonjour Crazygil, Le Forum,

Cette option fonctionnait à l'époque sous mon excel 97 avec windows 98, pour une de mes précédentes macros.

Je lui faisais déjà ouvrir un répertoire via Excel, du coup il avait l'air de proposer ce format dès l'enregistrement.
De plus, j'avais également indiqué l'extension à la fin.

ChDir "C:\Mes Documents"
ActiveWorkbook.SaveAs FileName:= _
"C:\Mes Documents\" & ActiveSheet.Name & " au " & Date & ".xls" _
, FileFormat:=xlNormal,

ou peut-être aussi avec ce format :
FileFormat:=xlExcel9795,

J'ai pas mieux.

Batiscaf

 

[Crazygil]

Salut à toi O mon sauveur Batiscaf,

Je le savais bien que c'était un truc tout bête

J'avais déjà tenté de rajouté l'extension xls et le fileformat mais sans adjoindre au premier les "". Et une fois ceux-ci rajouter c'est trop bon.

Donc merci encore à tous et voilà la source désormais si vous voulez faire comme moi:

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 & ".xls"), FileFormat:=xlNormal
End Sub

Sur ce bonne journée à tous!!

 

[Hervé]

bonjour

Je confirme que j'avais bien l'extension .xls avec ta premiere macro.

content que ton problème soit résolu.

salut
Hervé