Excel 2010 utiliser xlDialogSaveAs en format Excel 2003

Version imprimable

12/10/2011, 09h02
Speed41

Excel 2010 utiliser xlDialogSaveAs en format Excel 2003

Bonjour,

j'utilise cette fonction

Code:

Application.Dialogs(xlDialogSaveAs).Show ("toto.xls")

pour sauvegarder un fichier excel mais voilà certaines personnes on changé de version d'excel et son passé sous excel 2010 et leurs fichiers se sauvegardent en xlsx et don ceux ayant encore la version 2003 se trouvent bloqué

Comment ajouter que je veux que le fichier se sauvegarde sous excel 2003 ?

par avance merci

PS besoin professionnel

Salut, il existe des packs de compatibilité voir http://www.microsoft.com/downloads/f...displaylang=fr

Ici le code en version 2002 et comme la compatibilité est "en principe" ascendante

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub Tst()
Dim Fichier As String
 
    Fichier = ThisWorkbook.Path & "\" & "Test.xls"
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
    Application.DisplayAlerts = True
End Sub

Voir aussi l'aide en ligne sur GetSaveAsFilename

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub Tst2()
Dim Fichier As Variant
    Fichier = Application.GetSaveAsFilename("Test.xls",fileFilter:="Excel (*.xls), *.xls")
    If Fichier <> False Then
        Application.DisplayAlerts = False
        ThisWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
        Application.DisplayAlerts = True
    End If
End Sub

Bonjour,

penser à utiliser la :faq: http://excel.developpez.com/faq/?pag...cel#FileDialog

Citation:

Pour afficher la boîte de dialogue "Sauvegarder":

'(la valeur 4 Permet de spécifier les classeurs "Excel 97-2003" lorsque vous êtes dans Excel 2007)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Utilisation_FileDialog_Sauvegarde()
    Dim objSaveBox As FileDialog
 
    'Définit la fenêtre "Enregistrer sous"
    Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
 
    With objSaveBox
        'Définit un nom par défaut dans le champ "Nom de fichier".
        .InitialFileName = "Nom fichier.xls"
 
        'Définit le type de fichier par défaut:
        '(la valeur 4 Permet de spécifier les classeurs "Excel 97-2003" lorsque vous êtes dans Excel 2007)
        .FilterIndex = 4
 
        'Affiche la boîte de dialogue
        .Show
        'Enregistre
        .Execute
    End With
 
End Sub

cordialement,

Didier

13/10/2011, 20h56
Speed41

Super merci à tous

:ccool: