Discussion :

[Speed41]

Bonjour,

j'utilise cette fonction

Code :

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

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

[kiki29]

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 :

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

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 :

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

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

[Didier Gonard]

Bonjour,

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

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 :

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

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

[Speed41]

Super merci à tous