Discussion :

[bigboss60]

Bonjour,

J'ai créé cette macro excel pour sauvegarder un tableau Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sauvegarde le fichier
    Application.DisplayAlerts = False
    Workbooks(Classeur2).SaveAs NewFic
    Classeur2 = ActiveWorkbook.Name
    Workbooks(Classeur2).Close
    Application.DisplayAlerts = True
    MsgBos "Fichier enregistré sous:" & Chr(13) & NewFic
    Range("DAT_COPE_CONSO_SCAP") = Format(Date, "DD/MM/YYYY")& "à &
Format(Time(), "HH:MM")
End Sub

Mon problème est que je voudrais enregistré automatiquement ce fichier en format excel 2003.
Comment précisé ce détail dans ma macro? Merci de votre aide.

Cordialement

[Godzestla]

Bonjour,

Cela dépend de la version d'excel que tu utilises (ce que tu ne précises pas ).

D'une manière générale, trouvé dans l'aide de saveas.

Saves changes to the workbook in a different file.

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression Required. An expression that returns one of the above objects.

Filename Optional Variant. A string that indicates the name of the file to be saved. You can include a full path; if you don't, Microsoft Excel saves the file in the current folder.

FileFormat Optional Variant. The file format to use when you save the file. For a list of valid choices, see the FileFormat property. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used.

FileFormat Property
See AlsoApplies ToExampleSpecificsReturns the file format and/or type of the workbook. Read-only XlFileFormat.

XlFileFormat can be one of these XlFileFormat constants.
xlCSV
xlCSVMSDOS
xlCurrentPlatformText
xlDBF3
xlDIF
xlExcel2FarEast
xlExcel4
xlAddIn
xlCSVMac
xlCSVWindows
xlDBF2
xlDBF4
xlExcel2
xlExcel3
xlExcel4Workbook
xlExcel5
xlExcel7
xlExcel9795
xlHtml
xlIntlAddIn
xlIntlMacro
xlSYLK
xlTemplate
xlTextMac
xlTextMSDOS
xlTextPrinter
xlTextWindows
xlUnicodeText
xlWebArchive
xlWJ2WD1
xlWJ3
xlWJ3FJ3
xlWK1
xlWK1ALL
xlWK1FMT
xlWK3
xlWK3FM3
xlWK4
xlWKS
xlWorkbookNormal
xlWorks2FarEast
xlWQ1
xlXMLSpreadsheet

expression.FileFormat
expression Required. An expression that returns one of the objects in the Applies To list.

Remarks
Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.

Example
This example saves the active workbook in Normal file format if its current file format is WK3.

If ActiveWorkbook.FileFormat = xlWK3 Then
ActiveWorkbook.SaveAs fileFormat:=xlNormal
End If

[bigboss60]

J'utilise la version 2007 d'excel mais cette macro sera utiliser par des personnes utilisant la version 2003 aussi. En utilisant la version 2007, il enregistre automatiquement au format Office 2007. C'est pour ca que je voudrais obliger ma macro à enregistré au format excel 2003.

Merci d'avance

[Godzestla]

regarde dans le help du saveas de ton excel 2007, tu devrais trouver quel est le format a préciser pour sauver en version 2003.

[fring]

Bonjour,

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
NewFic = "Le_Chemin\Le_nom.xls" '<-- ne pas oublier l'extension .xls
Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003

[Godzestla]

@Fring

Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003

Où peut-on trouver ce genre d'info (à l'exception de ton cerveau et ce post ) ?

[fring]

J'utilise la version 2007 d'excel mais cette macro sera utiliser par des personnes utilisant la version 2003 aussi

Un petit détail qui m'a échappé...
Il faut donc d'abord vérifier la version d'excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NewFic = "Le_Chemin\Le_nom.xls" '<-- ne pas oublier l'extension .xls
If Application.Version < 12 Then '<-- si version inférieure à 2007
    Workbooks(Classeur2).SaveAs Filename:=NewFic
Else
    Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003
End If

[JackOuYA]

oui c'est bien 56 je suis sous 2002 ... c'est pour cela que je n'arrive qu'as la constante xlExcel7 mais il existe xlExcel8

56 = xlExcel8 (97-2003 format in Excel 2007, xls)

à oui pour voir la valeur d'une constante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Msgbox xleXcel7

[Invité]

Bonjour

Pour info, l'explorateur d'objet (F2) vous donne les valeurs des constantes, elles se trouvent en bas quand vous en sélectionnez une.

Starec